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FOREWORD 


This  is  the  second  of  three  volumes  describing  the  Performance 
Analyses  and  Design  Synthesis  (PADS)  computer  program.  This 
volume  is  devoted  to  programming  and  numerical  techniques. 
Volume  X contains  a complete  program  formulation  and  Volume  III 
is  a users  manual. 

The  development  of  PADS  was  conducted  by  McDonnell  Douglas 
Astronautics  Company  at' Huntington  Beach,  California,  under 
NASA  contract  NAS  9-12059,  under  the  cognizance  of 
Mm  Robert  Abel,  NASA,  MSC,  Houston,  Texas.  The  key 
MDAG  personnel  who  formulated  and  programmed  PADS  are 
Messrs.  Murray  H.  Rosenberg,  John  W.  Hensley,  and 
Michael  Beach.  Valuable  programming  assistance  was  given 
by  Larry  Ong,  Fred  Gangloff,  and  Sheldon  Herman,  


ABSTRACT 


The  Performance  Analysis  and  Design  Synthesis  (PADS)  computer 
program  has  a two-fold  purpose.  It  can  size  launch  vehicles  in 
conjunction  with  calculus -of- variations  optimal  trajectories  and 
can  also  be  used  as  a general-purpose  branched  trajectory  opti- 
mization program.  In  the  former  use,  it  has  the  Space  Shuttle 
Synthesis  Program  as  well  as  a simplified  stage  weight  module 
for  optimally  sizing  manned  recoverable  launch  vehicles.  For 
trajectory  optimization  alone  or  with  sizing,  PADS  has  two  tra- 
jectory modules.  The  first  trajectory  module  uses  the  method  of 
steepest  descent;  the  second  employs  the  method  of  quasi- 
linearization, which  requires  a starting  solution  from  the  first 
trajectory  module. 
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Section.  1 
INTRODUCTION 

The  PADS  computer  program  is  actually  a merger  of  four  separate  programs. 
Each  of  the  separate  programs,  hereafter  called  modules,  has  its  own  func- 
tion to  perform.  Above  all  of  these  modules  is  a main  program  which  calls 
the  appropriate  modules  into  action  whenever  the  problem  at  hand  requires. 
This  main  program  also  controls  auxiliary  activities  concerned  mainly  with 
reading  in  data  and  communicating  data  from  one  module  to  another.  The 
main  modules  and  auxiliary  functions  fit  naturally  into  an  overlay  structure 
which  permits  loading  this  very  large  program  into  a moderate  core  size  on 
either  the  CDC  6000  or  UNIVAC  1108  computer.  This  overlay  structure  is 
illustrated  in  Section  2 of  this  volume.  The  basic  modules  and  auxiliary 
functions  of  PADS  are  listed  and  defined  below, 

Basic  Modules 

Abbreviation  Purpose 

SD  or  Optimize  trajectory  and 

TOPM  staging  approximately  and 

provide  starting  solution 
for  the  quasi-linearization 
module 

Solve  Euler- Lagrange 
boundary  value  problem 
(calculus  of  variations) 

(6,  0)  Phase  I Sizing  SIZE  Synthesize  generalized  two- 

stage  launch  vehicle 
(simple  sizing) 
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(4,  0)  Quasi-Linearization  QL  or 

GROPE 


Overlay  Name 

(3,  0)  Steepest  Descent 


Overlay  Name  Abbreviation  Purpose 

(7,  0)  Space  Shuttle  SSSP  Synthesize  two-stage 

Synthesis  Program  manned  recoverable  launch 

vehicle 

Auxiliary  Functions 

(1,0)  INPUT  Editor  INEDIT  Read  NAMELIST  type  input 

and  store  input  data  on 
file  for  access  by  various 
modules 

(2,  0)  First  Input  Scan  GEINP  Scan  and  prepare  basic 

input  data  for  SD  and/or 
QL  module  execution 

(3,  1)  ■ Second  Input  Scan  SDINP  Scan  boundary  conditions 

and  set  up  steepest  descent 
module  data 

SIZIN  Alter  weights  and  other 

physical  dataTaccording  to 
sizing  computation  in  SSSP 
or  SIZE  module  in  prepar- 
ation for  trajectory 
computation 

This  volume  is  organized  according  to  the  structure  of  the  program.  The 

next  section  describes  how  the  main  program  and  auxiliary  functions  interact 

with  and  permit  communication  between  modules.  Descriptions  of  the  coding 

. * 

in  each  module  are  given  in  later  sections. 

The  coding  documentation  includes  subroutine  glossaries,  listings,  flow  • 
charts,  and  descriptions  of  purpose  and  logic  flow.  Where  possible,  sub- 
routine description's  are  tied  back  to  the  formulation  document. 


(5,  0)  . Sizing  Trajectory 

Interface 
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The  documentation  of  each  module  consists  of  the  description  of  the  executive 
program,  followed  by  a set  of  common  glossaries  pertinent  only  to  that 
module.  This  is  followed,  in  turn,  by  alphabetically  ordered  subroutine 
descriptions.  ' 

The  final  section  of  thi.s  volume  contains  a discussion  of  ground  rules  for 
modifying  the  computer  program. 
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PADS  Main  Program 


CONTENTS 


Overall  PADS  Program  Organization 


UNIVAC  Logic  Unit  Description. 


Program 

Subroutine 

PADS 

Block 

Block 

Block 

Block 

Block 

Block 

Block 

Subroutine 

Subroutine 

Sub  routine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Sub  routine 

Sub  routine 

Subroutine 

Subroutine 


PADS 
PA  DS1 

Overlay  Structure 

/ARCDAT/ 

/BICUBE/ 

/GLOBAL/ 

/LASTAB/ 

/ORBIT/ 

/SIZING/ 

/TABLE/ 

COORDS 

CRASH 

DCTOE 

INBVAD 

ISPRAT 

MATADD 

MTMLT 

PAGES 

PAYLOD 

PRINT 

SPLIZ 

TABIN 

WTDRP 
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Section  2 

OVERALL  PADS  PROGRAM  ORGANIZATION 

The  main  program  of  PADS  is  called  PADS1.  Its  flow  chart  is  presented  in 
a figure,  with  listing  and  glossary  of  terms  placed  directly  after.  The 
listings  given  in  this  section  are  flow-listed  to  indicate  transfers  within 
each  routine.  The  listings  have  been  made  for  the  CDC  6500  version  of 
PADS,  with  some  notes  where  appropriate  to  indicate  differences  in  the 
UNIVAC  version.  A key  difference  between  CDC  and  UNIVAC  listings  is 
that  the  CDC  listing  contains  a complete  picture  of  all  common  blocks, 
whereas  the  UNIVAC  listing  only  has  INCLUDE  statements  for  the  common 
blocks . 

Following  the  PADS1  description  is  a diagram  of  the  PADS  overlay  structure, 
and  COMMON  block  glossaries  and  subroutine  descriptions  that  are  shared 
by  different  modules. 
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Program  PADS 


Purpose 

Program  PADS  is  a dummy  main  program  used  to  call  the  main  executive 
routine,  PADS1. 

Description 

The  CDC  version  of  PADS  defines  the  required  logical  units  in  its  argument 
list.  The  UNIVAC  version  has  no  spch  requirement. 
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PADS 


1.  PAOGRAB  PABS(  IMPin  = lOO2,0llTPUT=:lGG2,TAPe<>=8UTPt)T,TAPE5  = INPUT,  PADS 

2.  »TAPE1=1G02,TAPE12=:1002,TAPE1=H:02,TAPE10::TAFE12>  AAA 

3.  CALL  PADS1  PADS 

A.  EHD  PADS 


20  OCT  12  G.01-A6 


SUBROUTINE 
PADS  1 


i± 


SUBROUTINE 
PADS  1 


1.S  * 

1 

tv 


SUBR0UT INE 
PADS  1 


13 

i 

1 

i\ 


Subroutine  PADS1 


Entry  Points  SI Z ERR,  SDERR,  QLERR 


Purpose 

PA  OS  I is  the  main  executive  routine  for  the  PADS  program. 

Des  cription 

As  the  main  executive  routine,  PADS1  calls  in  the  various  modules  of  the 
program.  These  modules,  shown  in  the  PADS  OVERLAY  STRUCTURE,  are 
actually  a block  of  coding  headed  by  an  executive  routine.  The  way  that 
PADS1  calls  in  a module  is  different  in  the  UNIVAC  system  than  with  the  CDC 
software.  The  CDC  software  requires  calls  to  the  OVERLAY  routine  to 
bring  in  the  program  module,  whereas  in  the  UNIVAC  version,  simple  calls 
to  the  appropriate  executive  routine  are  used.  (See  program  flow  list.  ) 
Additional  differences  in  the  UNIVAC  version  of  PADSl'exclude  the  use  of 
blocked  binary  files*  and  the  sharing  of  file  buffers,  **  These  aspects  are 
not  available  or  necessary  on  the  UNIVAC  machine.  In  the  CDC  version  the 
routines  OPENMS,  READMS,  and  WRITMS  are  FORTRAN  library  routines*** 
that  set  up,  read,  and  write  on  random  access  storage.  The  UNIVAC  version 
of  PADS  has  special  versions  of  these  routines  that  in  turn  call- UNIVAC -MSC 
peculiar  routines  RINIT,  RREAD,  and  RWRITE  (random  access  drum  storage 
and  retrieval  routines). 

The  CDC  6000  system  of  disc  storage  is  entirely  logical  unit  number- oriented 
whereas  random  storage  on  the  UNIVAC-MSC  system  is  not.  Following  is  a 
chart  showing  how  non-core  storage  is  set  up  on  the  UNIVAC  system. 

Entry  Points 

The  entry  points  SIZERR,  SDERR,  and  QLERR  are  control  error  returns 
that  are  called  from  various  points  in  the  different  modules  to  return  control 
to  the  proper  place  in  the  executive  routine  (PADS1).  Depending  on  flag 
setting,  corrective  action  is  taken  or  the  next  case  of  input  data  is  requested. 

*CDC  listing:  CALL  FTNBIN  (1,  3,  IBLKN).  See  CDC  Scope  3.  0 manual. 

**CDC  listing:  CALL  EQUBUFF  (5LINPUT,  10,  IIN,  IFET,  IEF) 

***CDC  FORTRAN  Manual 


UNIVAC  Logical  Unit  Descriptions 


Internal  Logical 


Number 

Purpose 

Type 

1 

Input  data  file  created 
by  INEDIT 

FASTRAND 

3 

Scratch  random  file  used 
by  INEDIT 

E.S.  Drum 
Random 

h 

INEDIT  scratch  and  Q-L 
Scratch 

H.S.  Drum 
Sequential 

5 

INPUT 

Card 

Reader 

6 

OUTPUT 

Printer 

9 

Arc  data  and  boundary 
conditions 

H.S.  Drum 
Random 

10 

Scratch  file  used  in 
TRAN  3 

FASTRAND 

11 

Starting  solution  file 

FASTRAND 
or  Tape 

12 

Used  in  Q-L  solution 

H.S.  Drum 

sequen- 

tial 

33 

Bi variant  aero 
coefficients  set 
number  6 

H.S.  Drum 
Random 

3h 

Bi  variant  aero, 
coefficients  set 
number  7 

H.S.  Drum 
Random 

35 

Bivariant  aero 
coefficients 
set  number  8 

H.S.  Drum 
Random 

36 

Bivariant  air 
breather  engine  data 
set  number  9 

H.S.  Drum 
Random 

39 

Steepest  descent 
trajectory  storage 

H.S.  Drum 
Random 

ko 

Steepest  descent 
trajectory  storage 

H.S.  Drum 
Random 

kl 

Steepest  descent 
adjoint  storage 

H.S.  Drum 
Random 

15 


Description 

Control  card  assigned 
as  FASTRAND  file  *A* 

t 

Automatically  assigned 
to  second  half  of  drum 
to  overflow  on  to  FASTRAND 

Automatically  assigned  to 
first  half  of  drum 


Automatically  assigned  to 
second  half  of  drum  to 
overflow  on  to. FASTRAND 

Assigned  as  FASTRAND 
file  fH* 

Assigned  as  File  I either 
tape  (to  save)  or  FASTRAND 

Automatically  assigned  to 
first  half  of  drum 

Automatically  assigned  to 
second  half  of  drum  to 
overflow  on  to  FASTRAND 

Automatically  assigned  to 
second  half  of  drum  to 
overflow  on  to  FASTRAND 

Automatically  assigned  to 
second  half  of  drum  to 
overflow  on  to  FASTRAND 

Automatically  assigned  to 
second  half  of  drum  to 
overflow  on  to  FASTRAND 

Automatically  assigned  to 
second  half  of  drum  to 
overflow  on  to  FASTRAND 

Automatically  assigned  to 
second  half  of  drum  to 
overflow  on  to  FASTRAND 

Automatically  assigned  to 
second  half  of  drum  to 
overflow  on  to  FASTRAND 


PADSl 


x 


FORTRAN 

s/noo!. 

SgMT  T:« 

cm  H3S 

CODE 

DESCRIPTION 

STORAGE 

MUiLM'U 

6L0LK 

LOC 

SU6R  1 

COOE  VAR 

QAA 

0 

Constant,  ITI5.982T 

/DATA  /(  . 

8) 

P AOS  I 

0 

CAR 

ER 

,E_ 

l 

Earth  radius.  (FT) 

/GL08AL/( 

2 ) 

COORDS 

I 

ER 

R 

CRASH 

I 

REN 

E0UA3-. 

I 

ER 

GEINP 

I 

ER 

P ADS  1 

J 

ER 

PDBC 

I 

ER 

SONG 

I 

ER 

TRTOSZ 

I 

ER 

FTNN 

0 

Feet  to  naut.  oi . conversion,  l . 6H5791629xlO~\ 

/OATA  /( 

T) 

OUT 

PAnsi 

I 

o 

FTNrt 

PTNPl 

TRTOSZ 

I 

FTNN 

en 

GM 

0 

Product  of  Heston's  universal  gravitational 

/GL06AL/( 

67) 

CRASH 

I 

sn 

constant  and  the  aass  of  the  earth.  (FT^/SEC^) 

OUT 

PADSl 

I 

o 

Grt 

GfS 

PDBC 

I 

GN 

SR 

l 

Gravitational  acceleration  at  surface  of  the  .earth. 

/GLOBAL/ ( 

1 ) 

ACCEL 

I 

GR 

“ r 

(FT/5EC2 ) 

BL5 

I 

GR 

EQUA3 

I 

GR 

FH3 

I 

GR 

GEINP 

I 

G 

GEINP 

I 

GR 

GEINP 

0 

IG 

OUT 

I 

GR 

PADSl 

I 

GR 

PDBC 

I 

SR 

REUS 

I 

GR 

50INP 

I 

GR 

SIZE 

I 

GR 

* 

SIZ1 

I 

GR 

SIZ2 

I 

GR 

SIZ3 

I 

GR 

SIZ*i 

I 

GR 

SONG 

I 

GR 

STAU 

I 

GR 

I COfJVR 

i 

A seven  »ord  array  not  used* 

/GLOBAL/! 

96) 

PADSl 

I 

ICONVR 

ID 

D 

A four  nerd  array  containing  the  basic  deck. 

/GLOBAL/t 

21  > 

BLICO 

I 

ID 

reference  run,  case  and  part  case  nurabers  In  that 

FRENCH 

I 

ID 

order . 

GEINP 

I 

ID 

P AD51 

D 

ID 



PRINT 

1 

ID 

SDIHP 

I 

ID 

TOPN 

I 

ID 

VEHDF 

I 

ID 

IFATAL 

# 

.1 

Fatal  error  flag. 

/GLOBAL/t 

17  ) 

BLICO 

N 

IF  AT  A L 

GEINP 

0 

IFATAL 

PADSl 

1 

IFATAL 

SOI  NP 

N 

IFATAL 

, 

.SPLica 

N 

IFATAL 

STPIT 

0 

IFATAL 

TOPN 

n 

IFATAL 

I FLOP 

U 

0 L convergance  failure  counter 

/PA0S1 ■ /( * 

) 

PADSl 

Ul 

IFLOP 

KSOL 

0 

An  Internal  flag  that  has  the  sene  significance  as 

/GLOBAL/C 

9*1 ) 

FNTG 

I 

KSOL 

ITPSO. 

P AOS  1 

,0 

KSOL 

SDINP 

n 

KSOL 

LUN 

rt 

Program  control  flag. 

/GLOBAL/t 

6) 

AST3 

i 

LUN 

LUP1  = 0:  Steepest  descent  only;  . - 

FNTG 

i 

LU« 

LUfl  “ Is  Steepest  descent  and  adjoint 

GEINP 

i 

LUN 

tr ansfor.at i on  stored  on  tape; 

PADSl 

N 

LUN 

LUN  = 2:  Steepest  descent  and  BL; 

SO  I NP 

I 

LUN 

LUI1  = 3:  BL  only. 

TOPN 

N 

LUN 

PI 

rr 

0 

Constant  3.1*11592653 

/DATA  /< 

1 ) 

OUT 

I 

PI 

PADSl 

D 

PI 

30  OCT  72  P.OIt‘16 


TT 


FOR  f RAN 

5vn»gL 


HATH 

SVUftOi. 




CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 
9L0CS  LOC  SUBR  CODE  VAR 


RAO 

0 

Radian  to  angle  conversion,  57.29577951 

/DATA 

/( 

2 1 

BEROCO 

I 

DEG 

BLGCON 

I 

RAD 

ENVPRH 

I 

RAD 

EQUA3 

I 

RAD 

FNTG 

I 

RAD 

GUI3A 

I 

RAD 

HOOELA 

I 

RAD 

CITX3A 

I 

RAD 

OUT 

I 

RAD 

P ADS  1 

D 

RAD 

SDINP 

I 

RAD 

TRTOSZ 

I 

RAD 

ROT 

D 

Angie  to  radian  conversion,  .01795329252 

/DATA 

/( 

3 1 

BLICO 

1 

RDI 

0ER3A 

I 

RDI 

FNTG 

I 

RDI 

GUI3A 

I 

RDI 

PlOOELA 

I 

RDI 

P10DELB 

I 

RDI 

PADS  1 

D 

RDI 

PROPB 

I 

RDI 

PROPIN 

I 

RDI 

REU3 

i 

RDI 

SDINP 

1 

RDI 

SORG 

I 

RDI 

SC 

D 

Constant  In  Sutherlands  equation,  198 

/DATA 

/( 

9) 

PADS  1 

D 

SC 

PAT  63 

l 

SC 

THPF 

0 

Constant  in  Sutherlands  equation,  392 

/DATA 

/{ 

6 ) 

PADS1 

D 

THPF 

PAT63 

I 

TF' 

T*OD 

D 

Booster  liftoff  selqht  (ib) 

/ S I Z I NG/( 

1) 

PADS  1 

D 

TZDD 

SIZIN 

I 

TZ 

TARPER 

a 

TZ 

UHF 

0 

Constant  in  Sutherlands  equation. 

/DATA 

/{ 

5 ) 

PADS  1 

D 

UNF 

.301«I0*6 

PAT63 

i- 

umiF 

30  OCT  72  G. 01-96 


fort^am  rath 

SYFIBOL  5VRBDU 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 
TuTc* LOC  5UBR  CODE  VAR 


CAR 

0 

Constant,  1715. R82T 

/DATA  /< 

8)  PADS! 

D 

CAR 

EB 

Ea 

• i 

Earth  rodloo.  (FT) 

/GLOBAL/t 

2)  COORDS 

I 

ER 

R 

CRASH 

I 

REA 

EQUA3 

I 

ER 

* 

GEIHP 

3 

ER 

PADS  1 

1 

ER 

PDBC 

1 

EH 

SOUS 

I 

ER 

TRTOSZ 

1 

ER 

FT«R 

D 

Feet  to  naut.  ■!.  convorslan,  1 . 645791629x10'** 

/DATA  /( 

7)  OUT 

I 

ft«r 

TRTOSZ 

1 

FTHB 

GR 

GO 

0 

Product  of  Heaton's  universal  gravitational 

/GLOBAL/t 

67)  CRASH 

I 

GH 

constant  and  the  toss  of  the  earth.  (FT^/SEC^J 

OUT 

I 

SR 

PDBC 

I 

6n 

6R 

I 

Gravitational  acceleration  at  surface  of  the  earth. 

/ GLOBAL/t 

1)  ACCEL 

I 

GR 

yr 

(FT/5EC2) 

BL5 

X 

SR 

E0UA3 

I 

SR 

FH3 

I 

GR 

GEIUP 

I 

G 

GEIhP 

I 

GH 

SEINP 

o. 

1G 

OUT  ' 

I 

GR 

PADS  1 

1 

GR 

PDBC 

1 

GR 

REU3 

I 

GR 

SD1NP 

I 

GR 

SIZE 

I 

SR 

sizi 

I 

6R 

’ 

SIZ2 

X 

GR 

S1Z3 

I 

SR 

. 

• 

SIZ4 

1 

SR  ’ 

sons 

I 

SR 

, STAU 

I 

GR 

1 CGNVR 

I 

A seven  oord  array  not  used. 

/global/{ 

96)  PA0S1 

I 

ICQHVR 

ID 

0 

A four  sord  array  containing  the  basic  deck. 

/GL0BAL/( 

21)  BLICO 

I 

ID 

reference  run,  case  and  part  case  nuabers  in  that 

FRENCH 

1 

ID 

order. 

GEIHP 

I 

ID 

PADS1 

D 

ID 

PRIHT 

I 

10  . 

SOIUP 

i 

10 

TOPR 

I 

10 

VEUOF 

I 

ID 

I FATAL 

I 

Fatal  error  flog. 

/ GL0BAL/( 

17)  8LIC0 

n 

I FATAL 

GEJNP 

0 

I FATAL 

PADS1 

i 

I FATAL 

SOINP 

Fl 

1 FATAL 

SPL1C0 

n 

1 FATAL 

STP1T 

0 

I FATAL 

, 

TOPR 

n 

1 FATAL 

I FLOP 

kj 

Q L convergancc  failure  counter 

/PA051  /<* 

) PADS! 

u 

IFLOP 

IPASS 

rt 

Sizing  Iteration  countor 

/SIZlNG/( 

291  ) GE1NP 

0 

IPASS 

PAD51 

n 

IPASS 

PAY02 

j 

IPASS 

SIZE 

r\ 

IPASS 

SIZIH 

i 

IPASS 

SSSP 

a 

IPAS5 

JTYP 

i 

Sizing.  Flog. 

/SIZING/C 

313)  FNTG 

i 

JTYP 

6EIWP 

0 

JTYP 

ROOELA 

i 

JTYP 

PADS1 

i 

JTYP 

PRDP1N 

i 

JTYP 

SIZIH 

i 

JTYP 

* 

TRTOSZ 

I. 

JTYP 

XSDL 

0 

An  Internal  flag  that  has  the  sane  significance  as 

/global/( 

94)  FMTG 

i 

KSOL 

ITPSO- 

PADSl 

0 

KSOL 

SOI  HP 

n 

KSOL 

53 
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FORTRAN 

SYnBQL 


HATH 

SYMBOL 


CODE 


-DESCRIPTION. 


STOBASE 
BLOCK  L0 


SUBROUTINE  I 
SUBR  CO'OT" 


Lim 

n 

Progroo  control  flog. 

/GL06AL/(> 

4) 

A5T3  * 

I 

LUfl 

/ LUR  =*  0:  Steepest  descent  only; 

FtfTG 

1. 

LUfl 

LUD  - It ’Steepest  descant  and  adjoint 

GEIWP 

’ I 

• LUfi-  * 

transfora at  1 p n stored  on  tape;  . 

P AOS  1 

a 

LUB 

Lltn  - 2:  Steepest  descent  end  QL$  . 

SBI  HP 

I 

LUH 

LUft  ==  3:  0L  only. 

TOPR 

n 

um 

pi 

tr 

D 

Constant  3.1*11592653 

/DATA 

/{ 

t) 

CUT 

I 

pi 

PADS  1 

D 

pi 

RAO 

D 

Radian  to  angle  conversion,  57.29577951 

'/DATA 

/( 

2) 

BEROCO 

I 

DEG  . 

BLGCOB 

I 

RAO  ’ 

EHVHin 

I 

RAD 

. % » 

EOU63 

1 

RAO  . 

FttTG 

I 

RAD 

GUI  3 A 

I 

RAO 

RODELA 

I 

RAO 

STX3A 

I 

RAO 

OUT 

I 

RAD 

PADS1  * 

D 

RAC 

50IKP 

I 

RAO 

TRT0S2 

1 

RAD 

RDI 

D 

Angle  to  rad! in  conversion,  . 01 TH5329252 

/DATA 

/l 

3) 

BLICO 

I 

RDI 

DER3A 

I 

RDI 

FHTS 

l 

RDI  a 

GUI3A 

I 

RDI 

RO DEL A 

I 

RDI 

rtOOELB 

I 

RDI 

PAOS1 

D 

RDI 

PRO  PB 

I 

ROI 

PROP I H 

t 

RDI 

REU3 

I 

Ror 

SOINP 

I 

ROI 

SOflG 

l 

RD! 

sc 

0 

Constant  In  Sutherlands  equation,  198 

/DATA 

/< 

A) 

PA051 

0 

SC 

PAT  6 3 

I 

sc 

TRPF 

0 

Constant  In  Sutherland*  equation,  392 

/DATA 

/{ 

b) 

PAOS1 

D 

TF1PF 

PAT  6 3 

I 

TF 

TRAFLG 

I 

Traffic  control  flag  0.  Siring  loop  not  converged 

/SI7JNG/1 

28A ) 

FRENCH 

0 

TRAFLB 

1.  Siring  loop  converged  2.  Error  in  siting  loop 

IT  ERA 

0 

TRAFLG 

next  case 

PADS! 

I 

TRAFL6 

SIZE 

ft 

TRAFLG 

SSSP 

0 

TRAFL6 

VEHOF 

0 

TRAFLG 

U*F 

D 

Constant  In  Sutherlands  equation. 

/DATA 

/( 

5) 

PADS! 

0 

UHF 

-301sl0'6 

PAT  6 3 

I 

U*UF 
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PA0S1 


1. 

SUBROUTINE  PADS! 

PAQ51 

2. 

DIMENSION 

1 INC  10),IFET{  1701.13 9(  20  ),IR0<20>,  161(601. 

19(2*1), 

PABS1 

3. 

•IBLKNC  31. 

133C 1821.I3HC 1821.135(1821 

AAA 

9. 

*.I34< 162 ) 

POD 

5. 

COrtnQN/ARCOftT/ 

ARCOAT 

6. 

♦5REF 

,EJ 

,XISP 

.TPIULT 

,OTNC 

, BTP1  , 

ARCOAT 

7. 

*1  ATM 

,IHOBE 

,JAER 

. JPRO 

,QrtAX 

, 6RAX  , 

ARCOAT 

8. 

♦XLflAX 

.HDHftX 

■SHOOT 

. ALPAAX 

.PHrtftX 

, HAE.  , 

ARCOAT 

9 . 

♦ KAEB 

, (1AEC 

,HAEO 

.HflEE 

,rtftEF 

,HA£6  , 

ARCOAT 

10* 

♦«T 

.MSP 

. HXCS 

,hzcg 

-rtUDA 

, hubb  , 

ARCOAT 

JI. 

♦rtOB 

,XCS8 

, ZC6R 

,XE 

, ZE 

,*T 

ARCOAT 

12. 

• DftEF 

.HCND 

,RHQB 

.BHULT 

, RErtXX 

ARCOAT 

13. 

♦ .FHATE 

. ARCD(9> 

RETAP 

19. 

DIMENSION 

ARCDACROl 

ARCOAT 

15. 

£QUl VALE9CEC SR£F, ARCDft) 

ARCOAT 

16. 

C0M0N/8ICUBE/  &1C(273> 

PABS1 

17. 

COrtAOK/DATA/ 

DATA 

18. 

♦PI 

,RAD 

,RDI 

,SC 

,URF 

,w’f 

DATA 

19. 

•FINN 

.CAR 

,J0P1 

. J0P2 

. J0P3 

*J0F6 

DATA 

20. 

DATA.* 

PI  .RAD 

.RBI -SC.UHF 

.TRPF.FTNrt.CAR/ 

UH 

21. 

1 

3 

.191592653. 57. 29577951.. 01795329252. 19».. 

UH 

22. 

* .302E-6. 

392.0  . 1. 

695791629E-' 

9 , 1715* 

9827  A 

UH 

23. 

COIWON/  ORBIT/  VI* 

GArtI, 

PSII, 

xmii. 

f. 

3PSIT 

29.* 

* ECC, 

AlWCL, 

ARGP. 

ASCHOD, 

SrtlflAj 

APOGEE, 

ORBIT 

25. 

* PERGEE, 

ANQBLY. 

CAPX# 

CAP  Y , 

ASYBP, 

ENERSV, 

ORBIT 

26. 

♦ HfWTH, 

0VIDV, 

OVIOG, 

ORBIT 

27. 

* OVIDH  , 

DVIDH, 

DVIOPS, 

OVIQRQ, 

DVIDAtl, 

DGIDV, 

ORBIT 

28. 

• D6I0S  * 

OSIDH, 

D6IDH  „ 

OGIOPS, 

DGIORO, 

OGIDHU, 

ORBIT 

29. 

* DPIOV  . 

DPIOG, 

DPIOH  . 

OPIDA  , 

OPIDPS, 

BPIDRO, 

ORBIT- 

30. 

* opiomi. 

DAI  0 V* 

DrtlOS  , 

DflIOH  , 

DrtIDrt  , 

DHIDPS, 

ORBIT 

31. 

* OttIDRO, 

DAI onu 

, OPDV  . 

OPOG  , 

DPOH  , 

DPOH  , 

ORBIT 

32.  ' 

* OPOPS  * 

0PDR0 

, DPDAU  , 

DECDV  , 

DECDG  , 

BECDH  , 

ORBIT 

33- 

* QECDrt  , 

OECDPS 

, DECCJflO, 

DECDAtJ, 

DIOV  , 

DI06  , - 

ORBIT 

3 9. 

* D10H  , 

DIDA  , 

DIDPS  , 

DIDfiO  , 

OIQrtU  , 

OBEDV  , 

ORBIT 

35. 

♦ OftEDS  . 

DBEDH 

, OBEOR  , 

0BE0P5, 

DBEDRD, 

B6EBHU, 

ORBIT 

36. 

♦ ONODV  , 

OUODS 

, ONQOH  , 

ONQDA  , 

DM0DP5, 

BNBORO, 

ORBIT 

37. 

♦ ONOOrtU . 

OSKDY. 

DSADG 

DSrtBH, 

DSrttM, 

OSHBPS 

ORBIT 

38. 

COrtflON/ORBIT/ 

ORBIT 

39. 

* 0SI10R0. 

DSADnu 

'DAPDV, 

DAPDG, 

DAPDH, 

DBPON  , 

ORBIT 

*0. 

♦ GAPDPS, 

OAPDRO, 

DAPDRU, 

DPEOV* 

0PED8, 

DPEDH  , 

ORBIT 

*1. 

♦DPEO* 

.DPEOPS 

.DPEDHO 

,DP£DAU 

,OA«0V 

.BANDS  , 

ORBIT 

92. 

* DANDH  , 

DAHDrt  . 

0AW0P5- 

OANOAO 

DANDAU, 

OCXDV  , 

ORBIT 

93. 

* OCXOG  . 

DCXDH  , 

DCXOfi  . 

OCXOPS 

DCXDfiQ, 

DCXOrtU, 

ORBIT 

99. 

* DCYOV  , 

DCYDG  , 

DCYOH  - 

OCYOrt 

DCYDPS, 

OBVDRO, 

ORBIT 

95. 

♦ ocvdmi. 

DASOV  _ 

OASDS  , 

DASDH 

DASDA  , ’ 

DBSBPS, 

ORBIT 

96. 

♦ DAS0R0. 

OASDAU, 

DENDV  , 

OENDG 

OENQH  , 

OENBH  , 

ORBIT 

97. 

♦ DENDPS. 

OEMDRO- 

OENDflU, 

DBQDV 

DrtODG  , 

orodh  , 

ORBIT 

98. 

* DrtODR  . 

DFUJOPS. 

OnaDRO. 

DrtOOrtU 

ORBIT 

99. 

OIrtENSION  Gft&PRft{  18  1 . PPO<  7 , 1 8 > 

ORBIT 

50. 

EQUIVALENCE  tVI.CRBPR«J.(OVIDV 

.PPO) 

ORBIT 

51  . 

COrtHON/ORftlT/  YrtXRF 

.shxlrr.csxlar.sdoun 

.SCROSS .Tft.TC 

ORBIT 

52. 

♦.SMPSH 

, CSPSfi 

.SNGI 

,CSGi 

,SPSll 

,CPS1I 

ORBIT 

53. 

♦ STOT 

,CSI 

.SMI 

,SNSNU 

,CSANO 

, CBSDHU  , 

ORBIT 

59. 

♦ SINDflU 

;tht 

.UTFUEL 

ORBIT 

55. 

COttflO 9/ GLOBAL/ 

global 

56. 

♦ SR 

,ER 

,OHGZ 

, XLABRF 

YAURF 

,LUH 

global 

57. 

♦,JJOP( 10  1 

.IFATAL 

.NARC 

. N8RAN 

, NFARC 

, 1D(  *1 1 

global 

58. 

♦ ,KTAB(201 

.1  TASK  201 

.SIG  . WAXTAB 

global 

59. 

♦ .SB 

,P5IRF, IPFLS1 . IPFLS2. IPFLS3. 1PFL89. IttEQFLC  20 > 

global 

60. 

..ITPSO  ,KS6L  .KBL08U8) 

1 

RETAP 

61. 

LOGICAL  IFATAL 

F ADS  1 

62. 

EQUI VALENCE!  ICOMVR. 

KGLOBLt  2 ) ) 

AAA 

63. 

REAL  flUB. 

HUB.  ISPB 

. 1SPB.  ibvel.nnb.no 

SUING 

69. 

CDnnON  /SIZING/ 

SHINS 

65.  C 

PHASE  II  SIZING  PARAAERERS 

SIZING 

66. 

♦TZ,  VVC  3 ), 

apt  19),  EflOR.  PZ(  5 ).  VQ, 

, SW(  20), 

sizing 

67. 

»5V(28), 

50(37.5  1. 

SEC  11).  TLAT. 

TLNB, 

SIZING 

68.  C 

PHASE 

1 SIZING  PARARERERS 

SIZING 

69. 

• UBO, 

ULOO, 

DUEB,  OUEO. 

TOLUT  UPB,  TURAT2, 

SIZING 

70. 

*BX1, 

BX2, 

8X3,  BX9, 

I SIZE,  TRAFLS,  TURATO, 

SIZING 

71. 

»0K1, 

0X2, 

0X3,  0X9, 

PRFLG,  1PASS,  IPSAAX, 

SUING 

72. 

»AEX1T, 

TVAuO, 

NO,  WFO, 

10VEL,  I 5PD,  I5PB, 

SIZING 

73. 

»XPL, 

TVACO.  Uhb.  U£0. 

WEB.  UQ, 

tf  LO  . 

SIZING 

79. 

*ovo, 

DVB. 

HUB. 

AUQ. 

VST6.  fclPD 

SIZING 

75. 

»,JTVP, 

BECfi  , 

OSTS  , Q6BI,  ITHBU  , ITIJOU 

t 

SUING 
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76. 

77. 

73. 

79. 

80. 

81. 

82.  SC 
S3.  C 
89.  C 

85.  C 

86.  C 

87. 

88. 

89. 


91. 

92. 

93. 
99. 


95. 

96. 

97. 

98. 

99. 
100, 
101. 
102. 
103. 


109. 

105. 

106. 

107. 

108. 

109. 

110. 
111. 
112. 
113. 
119. 

115. 

116. 
117. 


118. 


119. 

120. 
121. 
122. 
123, 


129. 


125. 

126. 


.C 


♦ SVOPSQ  , SVOCOM  , 1 HUNT  ,IOPSTG  .ISZDC19) 

DIMENSION  TZOOllCil 
COPWON/POUEL/  ITZLEt 1567 
EQUIVALENCE! TZ00.T2) 

DATA  T ZOO/ 101*0/ 

OlflENSION  PT(5 ) 

WAIN  PROGRAM  FOR  PADS  “NASA  HOUSTON 
UR  1 1 TEN  BY  fiCDONNELL-DOlfGLAS  ASTRONAUTICS  COflPAHY 
HUNTINGTON  BEACH  CALIFORNIA  1972 

I SET-UP  STORAGE  FILE5 
CO ma N/T ABLE/  TABLE!  2100) 

COrmQN/LASTAO/  LASTAB,1PCT! 33  7, IPPHTR, WTAPr,HAXPCT,BLA«K 
DATA  10  / 4*0  / 

DATA  IPPNTR.NTAPE.BLANl^flAXPCT  / 0,1, 4H  ,33  / 

UN!  1 > =6lTAPE39 
1!N(2)  =6LTAPE40 
IINt  3 ) -6LT APE41 
IIN<4>  =6LTAPE11 
- 1IW5)=6LTAPE36 
l IN! 6)  =5LTAPE9 
IIN(7)=6LTAPE33 
II Nt  8 )=6LTAPE34 
IIM(9)=6LTAPE35 
II N( 10  )=5LTAPE3 

CALL  EOUBUFFt 5LIHPUT . 10, IIW,IFET,I£F ) 

IF(lEF.Ea.O)  SO  TO  10 
CALL  ST P IT! 88 ) 


10  CONTINUE 

CALL  QPENHS! 33,133,182,0) 
CALL  OPENHS! 39,139,182,0) 
CALL  GPENP15!  35,135,182,01 
CALL  OPENrtSC 36,136,182,0) 
CALL  OPENKSt 39,139,20,0) 
CALL  OPENfiS! 90, 190,20,01 
CALL  0PEN11SM1, 191,60,01 
CALL  0PE«rtS<9,  19,  22,01 
CALL  0PEN«5! 3,PT,5,01 

* IBLXN!2>=12 
1BLKN! 3 >=9 

CALL  FTNBIH! 1,3,1BLKH> 

CALL  OVERLAY! 9 Hi ABl ,1,0,0) 

20  CALL  OVERLAY! 4H6EIN,2, 0,0 ) 
G«=SR*ER*ER 
II  TEST  FOR  SIZING 
IFLOP  =0 

1FCJTYP  . EQ.C ) GO  TO  100 


5 GO  TO  C11,2I),JTVF 
11  CALL  0VERL6YC4HPHSI, 6,0,0) 
GO  TO  50 


127. 

128. 


129. 

130. 


131. 

132. 

133. 


139. 


135. 

136. 

137. 


138. 

139. 


190. 

191. 

192. 

193. 
199. 


195. 


* 21  CALL  OVER LAY ( 4H5SSP, 7, 0,0  ) 
ENTRY  SIZERR  . 


50  IFTTRAFLG-1.  ) 51,300,20 

C HI  SET-UP  data  for  TRAJECTORY 

51  .CALL  0VERLAY(5HSIZIN  .5,0,0) 

C IV  QL  OR  SD  TRAJECTORY 

IF!  Lim-2)  60,80,100 

C I V“R  STEEPEST  DESCENT  SIZING 


60  LUfl  =1 

GO  TO  100 

C IV-B  QL  ALL  THE  NAY TEST  FOR  FIRST  SIZING  PASS 


80  IF! JPAS5-2 ) 100,100,200 

C IV-C  STEEPEST  DESCENT  TRAJECTORY 


IPO  CALL  0VERLAY(5HITOPfl,3.O,O) 
ENTRY  SDERR 
K$QL=l 

IF! IFAT AL ) GO  TO  20  * 

1F(  LUH  -2)  IIP,  115,200 

' 110  IF! JTYP  \GT.O>  SO  TO  5 


UH 

PAOSI 

OPTSTG 

PADS1 

PAOSI 

AAA 

P ADS  1 

P ADS  1 

PAOSI 

PAOSI 

PAOSI 

PAOSI 

AAA 

PAOSI 


AAA 

PAD51 

PAOSI 

PAD51 

PADS1 

POkf 

PAOSI 

PAOSI 

PADS  1 

PAOSI 

AAA 

PAOSI 

PAOSI 

PAOSI 


PAOSI 

PADS! 

PAOSI 

PADS1 

PON 

PAOSI 

PAOSI 

PADS! 

PAOSI 

AAA 


10 


3 


PAOSI 

AAA 

PAOSI 

PADS! 


PAOSI 


PAOSI 

PAOSI 

PAOSI 

JULY20 

PAOSI 


PAOSI 


PAOSI 

PAOSI 


PAOSI 

AAA 


UH 

PAOSI 


PAOSI 
PAOSI 
PAOSI 
P ADS  1 


PAOSI 

PAOSI 

PAOSI 


PAOSI 

PAOSI 

PAOSI 

PAOSI 

PAOSI 

'.PAOSI 

PftQSl 

PAOSI 


i^T 


3 


1300-1 


60-—1  80—| 


n 

Too- 


110~jlt5-)ZC0- 


5H 


100- 

100- 

100- 


zo- 


zo- 


ZO  OCT  U G.01-K6 


V-A  TEST  FOR  C0NV§r6a&CE  FAILURE  AND  5IZIN6  FLAB 
ENTRY  OLERR 

lFtJTYP  .EO.O)  60, TO  20 
IFC ICOHVR.EB.O)  60  TO  5 
V-B  QL-CONVERGANCE  PROBLEM  RETURN  TO  SD 
LOB  =2 

IF<  1FATAL)  60  TO  20 
IFLOP  MFL0P*1 
I FI  I FLOP  * GT ■ I ) 60  TO  20 
IFUPASS.LE.2)  IPASS-3 
GO  TO  100 

VI  TEST  FOR  HUNTING 

300  GO  TO  20 
END 
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BL0CK 

ARCDAT 


FORI  BAN 
$V(ARQ  L 


HATH 

vn?OL 


DESCRIPTION 


SUtJH  COOE  VAR 


STORAGE 
BLOCX  LOTT 


SREF 

s . 

Aerodynamic  reference  arts 

m2>~ 

/ ARCDAT /( 

l) 

BNTG 

1 

’ ARCOA 

ref 

E0UA3 

I 

5REF 

FNTG 

I 

AR  CD  A 

FXOAT 

I 

ARCOA 

EXDAT 

0 

I ARCDA 

GEINP 

(A 

ARCOA 

SOI  NP 

I 

ARCOA 

SIZIN 

I 

ARCOA 

51  ZIN 

IA 

SREF  ‘ 

thrust 

I 

SREF 

VT 

1 

SBEF 

EJ 

A i* 

Nozzle  exit  area 

(FT2) 

/ ARCDAT/C 

2) 

PRDPB 

I 

EJ 

ex  1 1 

PROPIN 

1 

EJ 

SI  ZIN 

0 

EJ 

XISP 

I 

Vacuum  specific  inpulse 

(SEC) 

/ARCDAT /( 

3) 

ilAPUL 

I 

XISP- 

*P 

SIZIN 

-0 

XISP 

TIAULT 

T 

Thrust  Multiplier. or  number  of  engines 

/ARCDAT/( 

A) 

ESUA3 

1 

TF1ULT 

■ult 

FXOAT 

(A 

TIAULT 

PRDPB 

I 

TIAULT 

PROP  I N 

I 

TIAULT 

, 

SIZIN 

0 

TIAULT 

OTNC 

At 

Integration  interval 

(SEC) 

/ AR  CDAT/t 

5) 

BNTG 

1 

OTNC 

FNTG 

I 

DTNC 

GEINP 

(A 

OTNC 

PR0P.IN 

I 

OTNC  - 

pTPI 

Print  frequency  for  trajaetory- 

/ ARCDAT / ( 

6) 

FNTG 

I 

DIPT 

GEINP  - 

>IA 

OTPI 

1 AT  H 

Atmosphere  option  flag 

/ARCOAT/t 

7 ) 

EQUA3 

I 

IATIA 

FXDAT 

I 

IATR 

OUT 

I 

IATIA 

PDBC 

I 

IATIA 

VT 

I 

IATIA 

inoo 

Control  «ode  option  flag 

/ARCDAT/(‘ 

8) 

FXDAT 

(A 

JlAODE 

SDINP 

I 

I NODE 

JAER 

Aerodynamic  oodel  option  flag 

/ARCDAT/( 

9 ) 

BEROCO 

I 

JAER 

E8  LI  A3 

I 

'JAER 

GEINP 

I 

JAER 

OUT 

I 

JAER  ' 

PRDPB 

I 

JAER 

PROPIN 

1 

JAER  - 

VT 

‘l 

JAER  - 

JPRO 

Propulsion  model  optjon  flag 

/ ARCDAT /,(  ’ 

10) 

E3UA3 

I 

JPRO 

GEINP 

I 

JPRQ 

IlAPUL 

I 

JPRO 

„ 

IA0DELA 

I 

JPRO 

- 

PROPB 

I 

JPRO 

PROPIN 

I 

JPRO 

OflAX 

Q _ „ 

rtaxioua  dynaaic  pressure  instantaneous  inequa 
1 i ait 

Uiy 

/ ARCDAT / ( 

U) 

PROPS 

I 

OIAAX 

^flAX 

( P5F  ) 

' 

. 

GIAAX 

G 

flaxioua  total  acceleration  g load 

/ ARCDAT/( 

12) 

6L5  . 

I 

GNAX 

ORX 

F.H3 

I 

GIAAX 

IADOELA 

I 

OIAAX 

'PROPB 

I 

GIAAX 

PROPIN 

I 

GIAAX 

xlaiax 

LJ1AX 

flax i bud  aer o dynasi c lift 

' ( LBS  ) 

/ ARCDAT/( 

13) 

IADOELA 

I 

X Lit  AX 

HOIAAX 

®A1AX 

flaxinu*  heating  rate  Inequality  constraint 

/ARCDAT/( 

1 A ) 

PRBP8 

I 

HOPIAX 

GflpOT 

* 

Pitch  rate 

( DEG/SEC) 

/ARCDAT /( 

15  ) 

0ER3A 

I 

GlAOOT 

V*T 

nODElA 

I 

GIADOT 

(AO  DELB 

I 

GlAOOT 

PROPB 

-1 

GlAOOT 

-PROP  I N 

I 

GlAOOT 

,30  OCT  72  <j.01-H6 
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F OR  1 RAN 
SYMBOL 

NATH 

SYMBOL 

DESCRIPTI  0I\1 

5 1 OR  AS 

E 

SUBROUTINE  USAGE 

BLOCK 

LOC 

SUBR 

KUSH 

ALFMAX 

Rjuloum  angle  of  attack  . iOEG) 

/ ARCDAT/l 

16) 

1NBVA0 

n 

ALFPIAK 

RAX 

MOOELA 

I 

ALFMAX 

MODELS 

i 

ALFMAX 

PHMAX 

Belly  Boon  f I og 

/ARCOAT/l 

in 

MAEA 

Curve  number 

/ARCDAT/t 

18) 

ETJUA3 

I 

AREA 

GEJNP 

I 

(IAEA 

- 

PROPS 

i 

P1AEA 

PROP  I N 

I 

NAEA 

NAEB 

Curve  number 

/ARCDAT/t 

19  ) 

EQUA3 

i 

PIAEB 

MAEC 

Curve  number 

/ARCDAT/( 

20) 

E0UA3 

I 

' NAEC 

mred 

Curve  nuaber 

/ARC0AT/( 

21) 

EQUA3 

i 

HAED 

NAEE 

Curve  number 

/ARCDAT/( 

22  ) 

E0UA3 

i 

NAEE 

nj»EF 

Curve  nuaber 

/ ARCDAT/C 

23  ) 

EDUA3 

i 

NAEF 

PIAE6 

Curve  number 

/ ARCDAT/i 

29) 

EBUA3 

t 

NAES 

NT 

Curve  number  -thrust  tsble 

/ARCDAT/( 

25) 

FXDAT 

I 

NT 

P.R0PB 

[ 

NT 

PROPIN 

i 

NT 

THRUST 

i 

NT 

misp 

Curve  nuober  ItISP  loss  table 

/ARCDAT/t 

26) 

I'nPUL 

i 

MISP 

PROPB 

i 

NISP 

PROPIH 

i 

NISP 

MAXCG 

Curve  number  -xcg  toble 

/ ARCOAT/l 

27) 

ESUA3 

i 

(1XCG 

nzcs 

Curve  nuaber-  zcg  table 

/ARCDAT/T 

28) 

E9UA3 

I 

NZCG 

MUDB 

Description  not  input 

/ ARCDAT/( 

30) 

BLICO 

I 

NUDB 

GEINP 

i 

flUDB 

PROPB 

I 

NUDB 

FROPIN 

I 

NUDB 

ROB 

Curve  number  - base  dreg  table 

/ARCOAT/i 

31  ) 

E0UA3 

I 

MBB 

XCGR 

XCGR 

‘ Reference  xcg  location  (Ft) 

/ ARCDAT/(  ‘ 

32) 

VT 

I 

XCGR 

2CGR 

ZCGR 

Reference  icg  location  (FT) 

/ ARCDAT / < 

33) 

VT 

I 

ZCGR 

XE 

XE 

Engine  thrust  centroid  body  x station 

•/ARCOAT/t 

39) 

-EL2 

t 

XE 

ZE 

ZP 

Engine  thrust  centroid  body  i station 

/ARCDAT/T 

35) 

EL2 

I 

ZE 

E 

VT- 

i 

ZE 

XT 

XT 

• Aerodynamic  trio  surface  body  i station' 

/ ARCDAT/( 

36) 

VT 

i 

XT 

DREF 

Aerodynamic  reference  length 

/ ARCDAT / ( 

37) 

VT 

I 

DREF 

RHOB 

0. 

Atmosphere  base  density  for  heating  calculation 

/ARCDAT/t 

39) 

DER3A 

.1 

RHOB  ' 

r b 

• t LB/FT »»3  ) 

•FXDAT 

0 

RHDB 

P 0 Y 3 A 

i 

RHOB 

OflULT 

= 0 OR  1 

Heating  flag  multiplier 

/ARCDAT/t 

90  ) 

DER3A 

i 

8NULT 

FXDAT 

0 

BOULT 

* 

PDY3A 

I 

8WLT 

REMAX 

R 

tlaxinuia  unit  reynoids  number  Inequality  constraint 

/ARCDAT/t 

91  ) 

PROPB 

i 

REMAX 

e7RAX 

FBATE 

Input  rated  v ae uun.  t hr  us  t per  engine  (LBS) 

/ARCDAT/T 

92  ) 

E0UA3 • 

i 

FRATE 

FXDAT 

l 

PRATE 

PROPB 

■I 

• FRATE 

PROPIN 

i 

FRATE 

SIZIN  ' 

0 

FRATE 

27 
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F 0 H t H ft  N HA  I H HCCf'  DIDTIfUl  5 1 PRASE  SJBEQUTlNf  USAT.E 

Symbol  sypibol  UtoUnlr  I iUlu  buolb  ldc  budR  coot  var 


AMIN 

x_ 

The  s ®a 1 1 t st  v a 1 

ue  of 

the 

first  Independent  variable 

/8ItU8E/( 

. 1 ) 

BL1C0 

fl 

PW9IN 

of  i hi var I aft  table. 

BLYNE 

I 

APIIN 

1 NBVAD 

I 

APIIN 

AP1AX 

X .. 

The  largest  value  of  the 

first  Independent  variable  of 

/BICUBE/t 

2) 

BLICO 

0 

MAX 

N 

a bivariate  table. 

BLYNE 

I- 

A FI  ft  X 

I NBVAD 

I 

An  A X 

IF 

Last  file  in  the 

gr  i d 

1 n 

phich  interpolation  occurred. 

/BI CUBE/I 

3 > 

BLYNE 

(1 

IF 

I NBVAD 

(1 

IF 

IFPIAX 

N 

Total  number  of 

fllu 

In 

grid. 

/BICUBE/t 

A) 

BLICO 

PI 

' IRI9AX 

BLYNE 

I 

I F PI  AX 

I NBVAD 

I 

IFPIAX 

pipiin 

V 

The  saa  M p st  va  1 

ue  of 

the 

second  independent  variable 

/BICUBE/I 

5 ). 

BL1  CO 

0 

APIIN 

'0 

of  a bivariate  table. 

BLVNE 

I 

19  Ptl  N 

P1I9AX 

The  largest  value  of  the 

second  independent  variable 

/BICUBE/I 

6) 

BLICO 

0 

ft  n ft  x 

* « 

of  o bivariate  table. 

BLYNE 

I 

PINA  X 

IR 

Last  r ank  in  the 

gr ! d 

i n 

ohich  interpolation  occurred. 

/BI CUBE/( 

7 J 

BLICO 

n 

IF 

BLYNE 

pi 

IR 

I NBVAD 

pi 

IR 

IRPIAX 

Total  nuobcr  of 

ranks 

i n 

grid. 

/BICUBE/I 

8) 

BLICO 

pi 

IFPIAX 

BLYNE 

i 

I RPIAX 

* 

I NBVAD 

i 

IRP1AX 

I UNIT 

Logics]  unit  nunber  on 

ahi ch  bi cubic  spline 

/BICUBE/I 

9 ) 

BLICO 

pi 

I UNIT 

coefficients  are 

stored  for  this  table. 

BLYNE 

i 

I UNI  T 

IN6VAD 

i 

IUNIT 

IRECT 

Grid  rectangle  associate' 

oith  IR  and  IF. 

/BICUBE/I 

10) 

BLICO 

n 

IRECT 

BLYNE 

19 

IRECT 

INBVAD 

PI 

IRECT 

IREC 

Logical  record  on  IUNIT  that  contains  spline 

/ BI CUBE/I 

in 

BLICO 

n 

IREC 

coefficients  for 

rectangle  IRECT. 

BLYNE 

n 

IREC 

INBVAD 

n 

IREC 

C 

ft  3E  nord  array 

containing  the  spline  coefficients  for 

/BI  CUBE/t 

12) 

BLYNE 

0 

C 

the  too  bivariate  functions  at  rectangle  IRECT. 

BLYNE 

I 

CLOO 

INBVAD 

0 

c 

CLIO 

Description  not 

I nput 

/BICUBE/t 

13) 

BLYNE 

I 

CLIO 

CLZO 

Description  not 

i nput 

/BICUBE/( 

in 

BLYNE 

I 

CL20 

CL30 

Description  not 

i nput 

/BICUBE/t 

15  ) 

BLYNE 

l 

CL30 

CLOi 

Description  not 

i nput 

/BICUBE/t 

16) 

BLYNE 

I 

CLOI 

CLU 

Description  not 

i nput 

/BICUBE/t 

17  ) 

BLYNE 

•I 

CLU 

CL21 

Description  not 

I nput 

/BICUBE/t 

18) 

BLYNE 

I 

CL21 

CL3I 

Description  not 

1 nput 

/BICUBE/t 

19  ) 

BLYNE 

I 

CL31 

CL02 

Description  not 

i nput 

/BICUBE/t 

20) 

BLYNE 

I 

CL02 

CL12 

De  scr i p 1 1 o n not 

i nput 

/BICUBE/t 

21 ) 

BLYNE 

I 

CL1Z 

CL22 

Description  not 

i nput 

/BICUBE/t 

22) 

BLYNE 

I 

CL22 

CL32 

Description  not 

! nput 

/BICUBE/t 

23) 

BLYNE 

I 

CL32 

CL03 

Oescr 1 ptl o n not 

i nput 

/BICUBE/t 

29) 

BLYNE 

1 

CL03 

cm 

Description  not 

1 nput 

/BI CUBE/t 

25  ) 

BLYNE 

I 

CL1 3 

CL23 

Description  not 

i nput 

/fUCUBE/l 

26) 

BLYNE 

I 

CL23 

CL33 

Description  not 

! nput 

/BI CUBE/t 

27) 

BLYNE 

I 

CL33 

COCO 

Description  not 

i nput 

/BICUBE/t 

28) 

BLYNE 

I 

COOO 

CD1 0 

Description  not 

1 nput 

/BICUBE/t 

29  ) 

BLYNE 

I 

C010 

C020 

Description  not 

i nput 

/B I CUBE/ ( 

30) 

BLYNE 

I 

CD20 

C030 

Description  not 

! nput 

/BI CUBE/t 

31  > 

BLYNE 

I 

C030 

CD01 

Description  not 

1 nput 

/BICUBE/t 

32) 

BLYNE 

I 

CDOi 

CD1 1 

Description  not 

I nput 

/BI CUBE/t 

33) 

BLYNE 

I 

CD1 1 

CD21 

Description  not 

1 nput 

/BI CUBE/t 

39) 

BLYNE 

I 

CD21 

C031 

Description  not 

1 nput 

/BICUBE/I 

35) 

BLYNE 

I 

CD31 
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FORTRAN 

symbol 

HATH 

SYMBOL 

DESCRIPTION. 

STORAGE 

SUAHOUT  1 YE 

' USAGE 

BLOC* 

LOC 

SU8R 

coot 

VAR 

CD02 

Description  not 

Input 

•/BI  CUBE/t 

36  > 

BLYNE 

i 

C002 

C012 

Description  not 

1 nput 

/B  i CUBE/I 

37) 

BLYNE 

I 

C012 

CQ22 

’Description  not 

1 nput 

/BICUEE/t 

38) 

BLYNE 

I 

C022 

C032 

Description  not 

1 nput 

■ /BICUBE/C 

39) 

BLYNE 

I 

C032 

CD0  3 

Descr 1 ptl on  not 

1 nput 

/BI CUBE/C 

HO  ) 

BLYNE 

I 

C003 

C013 

Description  not 

1 nput 

/BlCUBE/t 

91  ) 

BLYNE 

I 

CD13 

CD23 

Description  net 

Input 

/BI CUBE/C 

92) 

BLYNE 

I 

CD23 

CO  3 3 

Description  not 

1 nput 

* 

/BI CUBE/C 

93  ) 

BLYNE 

C033 

T 

A 160  wo  r d‘  arr  ay 

containing  logical 

record  I REC , 

/BICUBE/f 

AM  ) 

BLICO 

I 

T 

BLYNE 

I 

T 

1NBVA0 

I 

T 

ALFA 

A 31  word  array 

containing  the  oesh 

*0>  xl/* ♦ ♦ / *0 

/BlCUBE/< 

209  ) 

BLICO 

I 

F 

BLICO 

n 

MACH 

BLYNE 

I 

ALFA 

MACH 

A 31  oord  array 

containing  the  aesh 

?Q*. yir--**Vn 

•/BI CUBE/t 

235) 

BLICO 

n 

ALFA 

BLYNE 

I 

MACH 
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BL0CK 

GL0BAL 


o. 


F0R1RAN  RATH 

SYMBOL  SYMBOL 


OR 


9r‘ 


XLAMRF 

YMURF 

LUB 


EPSLON 

INNER 

ITRMAX 

JJOP 

DONE 

IFATAL 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


SUBROUTINE  USAGE 
SUBR  CODE  YAH 


Gr  » vl  t at  1 o no  ! acce  lerotlon  at  surface  of  the 

e or  th. 

/GLOBAL/! 

n 

ACCEL 

I 

GR  - 

(FT/SEC2) 

BL5 

I 

SR 

EQUA3 

I- 

BR 

FH3 

I 

GR 

GEINP 

I 

S 

GEINP 

I 

GR 

GEINP 

0. 

!G 

our  ■ 

I- 

GR 

PA0S1 

I 

GR 

PDBC 

I 

GR 

REU3 

I 

GR 

SUINP 

I 

GR 

SIZE 

I 

GR 

SiZl 

1 

GR 

SIZ2 

I 

GR 

SIZ3 

I 

GR 

SIZ9 

I 

GR 

SOMG 

I 

GR 

STAU 

I 

. SR 

Eorth  radius* 

TFT) 

/GLOBAL/! 

2) 

COORDS 

1 

ER 

CRASH 

I 

REM 

EQUA3 

I 

ER 

SEiNP 

I 

ER 

P AOS  1 

I 

ER 

PDBC 

I 

ER 

SOMG 

I 

ER 

TRTOSZ 

I 

ER  •: 

Earth  rotation  rate 

TRAD/SEC) 

/GLOBAL/! 

3) 

ADID3A 

I 

QMGZ 

CRASH 

i 

OMEGA 

DER3A 

I 

OMGZ 

E0UA3 

I 

OMGZ 

GEINP 

I 

•OMGZ 

MODELA 

I 

OMGZ 

MODELS 

•I 

OMGZ 

PDBC 

I 

OMGZ 

PDY3A 

I 

OMGZ 

SOI  NP 

I 

OMGZ 

TOPM 

I 

.OMGZ 

Reference  latitude. 

( DEG) 

/GLOBAL/! 

H ) 

'CRASH 

n 

RHOO  • 

GEINP 

i 

XLAMRF 

REU3. 

i 

XLANRF 

5 01  NP 

n 

XLAMRF 

Reference  longitude. 

(DEG) 

/GLOBAL/! 

5) 

CRASH 

M 

UMUO 

GEINP 

I 

YMURF 

REU3 

I 

YMURF 

SD1NP 

art 

YMURF 

Program  control  flag. 

/GLOBAL/! 

6) 

AST3 

I 

LUM 

LUM  = 0:  Steepest  descent  only; 

FNTS 

1 

LUM 

LUM  - I-  Steepest  descent  and  adjoint 

GEINP  • 

I 

LUM 

t r ansf ornat i on  stared  on  tape; 

P AOS  1 

n 

LUM  - 

LUM  = 2:  Steepest  descent  and  OL; 

SOI  NP 

i 

LUM 

LUM  = 3;  QL  only. 

TOPM 

LUM 

Trajectory  start  tioe. 

tSEC) 

/GLOBAL/! 

7) 

SD1NP 

0 

TINIT 

QL  Iteration  convergence  criterion. 

/GLOBAL/! 

8) 

Number  of  Ad  aas  *Ho  u 1 to  n inner  loops. 

/GLOBAL/! 

9) 

Maulnun  nunber  of.  OL  iterations. 

/GLOBAL/! 

10) 

A six  oord  array  us'ed  for  various  Internal  f( 

ags . 

/GLOBAL/! 

11) 

Description  not  input 

/GLOBAL/! 

12) 

BL1C0 

>n 

DONE 

Fata  1 error  f 1 ag. 

/GLOBAL/! 

17) 

BLICO 

H 

I FATAL 

GEINP 

0 

IFATAL 

PADS1 

I 

IFATAL 

SOI  NP 

M 

IFATAL 

'SPLlCO 

n 

'IFATAL 

STPIT  . 

0 

IFATAL 

TOPM 

.M 

IFATAL 
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FQlUftAN  FIAT  H 

SYMBOL  SYMBOL 

NARC  R) 

3 

NBRAN 

NFARC  N 

2 

10 

KTAB 
ITAB 
SIS 

FIAXTAB 
Grt 

PSJRF 
IPFLGI 

1 PFL62 
IPFLG3 

1PFLG4 
I NEQFL 

JP3 

ITPSO 
KSOL 

30  OCT  72  G. 01-46 


Gfl 

+ 

r 


DESCR  IPTIOiM 


Nuaber  of  subarea  In  the  problea. 


Number  of  the  last  subarc  on  the  iten  of  s branch 
problen.  If  the  problec  Is  not  a branch  problem,  then 
NBRAN  - 0. 

Number  of  the  last  subarc  on  the  first  branch.  If  the 
problen  is  not  a branch  problen,  then  NFARC  - NARC. 

A four  lord  array  containing  the  basic  Beck,  reference 
run,  case  and  part  case  numbers  in  that  order. 


A 20  uord  array  containing  the  nuuber  of  state  target 
conditions  specified  at  the  end  of  each  subarc. 

A 20  nord  array  containing  the  nuaber  of  nonzero  state 
Initial  conditions  specified  at  the  beginning  of  each  ‘ 
subarc. 

Payoff  sign. 

SIG  < 0:  Payoff  to  be  ainlaized; 

SIG  > 0:  Payoff  to  be  Bixtolzed. 

Largest  unieariant  table  number  in  this  case. 

Product  of  Neaton's  universal  gravitational  constant 
and  the  mass  of  the  earth.  (FT^/SEC^) 

Reference  azimuth.  tQEG) 


IPFL61F0  supresses  print-out  of  velocity  losses  and 
inertial  Euler  angles. 


1PFLG2F0  supresses  print-out  of  orbital  paraoeters.  . 
IPFLG3F0  supresses  print-out  of  iapact  data. 


IPFLG4/0  supresses  print-out  of  inertial  Cartesian 
coordinates. 

A 20  cord  array  that  contains  the  code  nuaber  of  the 
state  variables  Inequality  constraint  that  applies  on 
each  subarc.  A zero  entry  indicates  that  no  SVIC 
app lies. 

Description  not  input 


A non  zero  input  value  Indicates  to  the  steepest 
descent  nodule  that  the  initial  steering  angle' 
profiles  are  stored  on  logical  unit  11. 

An  internal  flag  that  has  the  saae  significance  as 
ITPSO. 


STORAGE  SUBROUTINE  USAGI 
BLOCK  LGC  SUBR  CODE  VAR 


/GLOBAL/! 

16) 

FNTG 

J 

NARC 

GE1NP 

n 

NARC 

PROPIN 

i 

NARC- 

SOINP- 

r 

NARC 

SIZIN 

i • 

NARC 

/GLOBAL/t 

T9) 

SOINP 

0 

NBRAN 

/GLOBAL"/! 

20) 

SOINP 

0 

NFARC 

/GLOBAL/i 

21  ) 

BLICO 

I 

10 

FRENCH 

I 

10 

GEINP 

•I 

10 

PADS  1 

D 

ID 

PRINT 

I 

ID 

- 

SOINP 

I 

10 

TOPn 

I 

ID 

VEH-DF 

I 

10 

/GLOBAL/t 

25) 

GEINP 

I 

KTAB 

• 

SOINP 

I 

KTAB 

SIZIN 

I 

KTAB 

/GLOBAL/I 

45  > 

GEINP 

I 

ITAB 

SOINP 

I 

IT  AB 

SIZIN 

I 

ITAB 

/GLOBAL/i 

65) 

PAY02 

I 

SIG 

501  NP 

n 

SI  6 

- 

TEST 

I 

SIG 

, 

TRAN3 

I ■ 

. SIG 

/GLQBAL/1 

66  ) 

SPLICO 

N 

NT 

SPLIZ 

I 

NT 

SPLYNE 

I 

NT  . 

/GLOBAL/t 

67  ) 

CRASH 

I 

sn 

OUT 

I 

6H 

PADS  1 

0 

Gfl 

PDBC 

I 

GFt 

/GLOBAL/t 

68) 

GEINP 

I 

PSIflF 

REU3 

I 

PS1RF 

SOINP 

ft 

PSIRF 

/GLOBAL/t 

69) 

FNTG 

I 

IPFLG1 

OUT 

I 

IPFLG1 

PDBC 

I 

IPFLG1 

PRINT 

I 

IPFL51 

TRTOSZ 

0 

IPFLGl 

/GLOBAL/t 

70  > 

PRINT 

I 

IPFL6Z 

TRTOSZ 

0 

IPFLG2 

/GLOBAL/t 

71  ) 

OUT 

I 

IPFLG3 

PRINT 

I 

IPFLS3 

TRTOSZ 

0 

IPFLG3 

/GLOBAL/t 

72) 

PRINT 

I 

IPFLG4 

/GLOBAL/t 

73) 

PROPS 

I 

1 NEQFL 

PROPIN 

H 

I NEQFL 

STE3 

fl 

INEQFL 

/GLOBAL/t 

92.) 

ANLATM 

I 

JP3 

MO  DEL A 

n 

I NO  F 

nOOELB 

0 

INQF 

PAT  63 

i 

JP3 

PROPIN 

n 

INQF 

/SLOBAL/t 

93) 

SOINP 

I 

ITPSO 

/GLOBAL/t 

94) 

FNTG'  ‘ 

l 

KSOL 

P ADS  1 

0 

KSOL 

•SOINP 

n 

KSOL 

33 


V 0 H I HAN 
iVMBQL 


flAlH 

SYmBQL 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCK  LOC  bUBR  CODE  VAR 


Logical  unit  on  ahlch  Initial  and  converged  area  ora 
stored.  I NARK  = 11. 

A seven  aord  array  not  used. 


/GLOBAL/T  951 


/GLOBAL/!  96)  PABS1  1 1C0NVR 
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FORTRAN 

symbol 

MATH 

SYMBOL 

DESCRIPTION 

s tor  o' 

.f 

SJABOUTINF.  USAGE 

»LOl> 

LOC 

1) 

COOE 

VAR 

lastab 

Last  word  incjay 

/LASTAB/I 

1 ) 

BLl  CO 

I 

lastab 

GE1NP 

I 

LS  7 UD 

SOINP 

I 

LSTUO 

S PL I CO 

I-' 

LA5TAB 

TABIN 

’ 0 

LA5TAB 

IPCT 

InpM  ca*£_  numbeir 

/LASTA8/( 

2 ) 

TABIN 

n 

IPCT 

IPPNTR 

/LASTAB/i 

35  ) 

PADS! 

0 

IPPNTR 

Tabin 

n 

IPPNTfl 

NT  APE 

Xnp«i-+qpe  UYll+=  1 

7LASTAB/( 

36  ) 

P AOS  1 

D 

NT  APE 

TABIN 

I 

NTAPE 

P1AXPCT 

Ho-viinuM  niAfhtei*  arf  pd»-+  c Ktas.  z 33 

7L AST  AB/( 

37  ) 

P AOS  1 

D 

MAXPCT 

TABIN 

I 

MAXPCT 

blank 

prece+ 

/lastab/( 

30  ) 

P ADS  1 

D 

BLANK 

TABIN 

I 

BLANK 

30  OCT  72  G.01-H6 


36 


BL0CK 

0RBIT 


hihiran  n«iH  nCfPDTDTTnftl  storage  subrquhne  usage 

s Y^hol  symbol  UtObnir  1 iUI\!  block  igl  subr  code  yar 


VI 

V1 

Inertial  velocity 

(FT/SEC) 

/ORBIT 

/( 

1 ) OUT 

I 

VI 

POBC 

I 

CRBPRfl 

PDBC 

19 

VI 

ORBPRM 

Array  of  Intcrtlal  and  orbital 

boundary  conditions 

/ORBIT 

/( 

1) 

GAn] 

7 . 

Inertial  flight  path 

angles 

(RAO) 

/ORBIT 

/( 

2)  OUT 

I 

GAMI 

I 

POBC 

0 

GAfll 

PSII 

Inertial  t>zi  out  h 

(RAO) 

/ORBIT 

/( 

3)  OUT 

I 

esi  I 

! 

PDBC 

n 

PSH 

xnui 

U T 

I ner t i a 1 longitude 

( RAO  ) 

/ORBIT 

/( 

H ) OUT 

I 

XflUl 

HI 

POBC 

19- 

XflUl 

P 

n 

SecJ-latus  reetuo 

(FT) 

/ORBIT 

/( 

5)  OUT 

I 

P 

POBC 

N 

P 

ECC 

€ 

Orbital  eccentricity 

/ORBIT 

/( 

6)  OUT 

1 

ECC 

POBC 

- fl 

ECC 

AIMCL 

1 

Orbital  inclination 

(RAD) 

/ORBIT 

/( 

n out 

I 

A I NCL 

PDBC 

n 

AINCL 

ARGP 

a 

Orbital  arguoent  of  perlgse 

(RAD) 

/ORBIT 

/( 

8)  OUT 

i 

ARGP 

p 

PDBC  - 

a 

ARGP 

AXCNOO 

Q 

Longitude  of  ascending  node 

(RAO) 

/ORBIT 

/( 

9)  OUT 

l 

ASCNQD 

PDBC 

fl 

ASCNOD 

sniMAJ 

a 

Seal- najor  axis 

(FT  > 

/ORBIT 

/( 

10)  OUT 

i 

SOIflAJ 

s 

POBC 

ra 

SfllflAJ 

APOGEE 

R 

Apogee  radius 

(FT) 

/ORBIT 

/( 

11)  OUT 

I 

APOGEE 

9 

POBC 

0 

APOGEE 

PER GEE 

R 

Perl  gee  radius 

(FT  ) 

/ORBIT 

/( 

12)  OUT 

I 

PERGEE 

P 

PDBC 

0 

PERGEE 

ANOMLY 

t 

True  anoooly 

( RAD  ) 

/ORBIT 

/C 

13)  OUT 

I 

ANOflLY 

POBC 

(9 

ANOflLV 

CAPX 

X 

Asynptote  parameter 

T 

/ORBIT 

/( 

19)  PDBC 

0 

CAPX 

CRPY 

Y 

Asymptote  paraaeter 

(FT  ) 

/ORBIT 

/( 

15)  PDBC 

0 

CAP  V 

ASYP1P 

9 

Outgoing  asyaptote 

(RAO) 

/ORBIT 

/( 

16)  PDBC’ 

fl 

ASYflP 

ENERGY 

E 

Energy 

/ORBIT 

/( 

17)  OUT 

I 

ENERGY 

POBC 

0 

ENERGY 

MONTH . 

H 

no  tit  nt  us 

/ORBIT 

/( 

18)  OUT  . 

I 

HflNTfl 

PDBC 

fl 

HflNTfl 

DVIDV 

Partial  derivative  of 

boundary 

condition 

/ORBIT 

/( 

19)  PDBC 

fl 

’OVIDV 

POBC 

I 

PPO 

PPO 

Platr  i x of  boundary  condition  partial  derivatives 

/ORBIT 

/( 

19) 

DVtOG 

Partial  derivative  of 

boundary 

condition 

/ORBIT 

/( 

20  > POBC 

fl 

OVIBG 

OVIDH 

Partial  derivative  of 

boundary 

condition 

/ORBIT 

/( 

21)  POBC 

fl 

OVIDH 

OVIDP1 

Partial  derivative  of 

boundary 

condi  t ion 

/ORBIT 

/( 

22)  PDBC 

0 

OVlDfl 

OVIOPS 

Parti'al  derivative  of 

boundary 

co  ndi  t i on 

/ORBIT 

/( 

23)  PDBC 

fl 

OVIOPS 

DVIDRO 

Partial  derivative  of 

boundary 

condition 

/ORBIT 

/( 

29  ) PDBC 

fl 

DVIDRO 

D VI  D MU 

Partial  derivative  of 

boundary 

condition 

/ORBIT 

/( 

25)  PDBC 

Q 

OVIDrtU 

DGIDV 

Partial  derivative  of 

boundary 

condi  t Ion 

/ORBIT 

/( 

26)  PDBC 

fl 

DGIDV 

DGIDG 

Part  i a i der  i vat  1 ve  ,of 

boundary 

condition 

/ORBIT 

/( 

27  ) PDBC 

fl 

DGIDG 

OGIDH 

Partial  derivative  of 

boundary 

condition 

/ORBIT 

/( 

28)  POBC 

fl 

OGIDH 

OGIOfl 

Partial  derivative  of 

boundary 

condi 1 1 on 

/ORBIT 

/( 

29)  POBC 

0 

OBI  DA 

OGJ DPS 

Partial  derivative  of 

boundary 

co  ndi  t i on- 

/ORBIT 

/( 

30)  PDBC 

fl 

OGIDPS 

DGIDRO 

Partial  derivative  of 

boundary 

condi  t i on 

/orbit 

/( 

31  ) PDBC 

fl 

DGIDRO 

DGIQFHJ  ' 

Parti  a l der i vat i ve  of 

boundary 

condition 

/ORBIT 

/( 

32)  PDBC 

0 

DGIOflU 

DPI  D V 

Part i a I der i vat  t ve  of 

boundary 

condi  t i on 

/ORBIT 

/( 

33)  POBC 

19 

DPIDV 

DP1DG 
30  OCT  72 

G. 01-46 

P art l a I der I vat  t ve  of 

boundary 

co  ndi  1 1 on 

/0RB1-T 

/( 

39)  PDBC 

19 

DP  IDG 

<■» 


FORTRAN 

MATH  , 

DESCRIPTION 

' STORAGE 

SUBROUTINE  USAGE 

' SYMBOL 

SYMBOL 

BLOCH 

LOC 

SlMfl 

CODE  VAR  ■ 

OP  1 OH 

Pirtlal 

derivative 

of 

boundary 

condition 

• /ORBIT  /( 

351 

PDBC 

n 

OP)  OH 

dpiom 

Partial 

der l vat  1 ve 

of 

boundary 

c o n d 1 t'l  o n 

/ORBIT  /( 

30) 

PDBC 

0 

DP  I ON 

DPIDPS  • 

Partial 

derivative 

of 

boundary 

condition' 

/ORBIT  /( 

37  1 

pobc 

n 

DPIDPS 

OPIORO 

Partial 

der  l v it  I ve 

of 

bouhdary 

condttl on 

/ORBIT  /( 

36) 

POBC 

n 

‘ DPI OR 0 

DPlonu 

Partial 

der i vat  I ve 

of 

boundary 

condition 

/ORBIT  /( 

39  ) 

PDBC  , 

0 

DP  1 DMU 

omidv. 

Partial 

der i vati ve 

of 

boundary 

condition 

/ORBIT  n 

90) 

PDBC 

0 

-OMIDV 

OMIDG 

Partial 

der i vatl ve 

of 

boundary 

condl tlon 

/ORBIT  /t 

91  ) 

POBC 

0 

DniDG 

DM1  OH 

P ar  1 1 a 1 

der ] v at i va 

of 

boundary 

condi tlon 

/ORBIT  /( 

92  ) 

PDBC 

a 

DMI  DH 

DP11DM 

Partial 

derivative 

of 

boundary 

condition 

/ORBIT  /< 

93  ) 

PDBC 

0 

DMI  DM 

DMIOPS 

Partial 

der i vat  1 ve 

of 

.boundary 

condition 

/ORBIT  n 

99) 

PDBC 

0 

DMIOPS 

OMIORO 

Partial 

derivative 

of 

boundary 

condition 

/ORBIT  /< 

95  ) 

POBC 

D 

OMIORO 

DMI DMU 

Parti  a 1 

der i v at i ve 

of 

boundary 

condition 

/ORBIT  /< 

961 

PDBC 

D 

DMI DMU 

OPDV 

Partial 

derivative 

of 

boundary 

condition 

/ORBIT  /( 

97) 

PDBC 

M 

DPDV 

DPOG 

•Partial 

der  » v at i ve 

of 

boundary 

condition 

/ORBIT  /( 

• 98) 

POBC 

H 

OPPG 

OPOH 

Partial 

der i vat  I ve 

of 

boundary 

condition 

/ORBIT  /< 

99  ) 

POBC 

M 

OPDH 

OP  DM 

Parti  al 

der  i vat  T,ve 

of 

boundary 

condition 

/0RBI.T./1- 

50) 

PDBC 

0 

BPDM 

OP  DPS 

Parti  a 1 

der 1 vatl ve 

of 

boundary 

conditl on 

/OHBlt  n 

51  ) 

PDBC 

n 

OPDPS 

DPDRO 

Partial 

der i vati ve 

of 

boundary 

condition 

• /ORBIT  /( 

52) 

PDBC 

M 

OPDRO 

OPDMU 

Partial 

der i vat i ve 

of 

boundary 

condition 

/ORBIT  /( 

53) 

PDBC 

0 

OPDMU 

DECDV  ’ 

Partial 

der i vat  t ve 

of 

boundary 

condition 

/ORBIT  /( 

59) 

PDBC 

M 

DECDV 

OECDG 

Parti  al 

der i v at?  ve 

of 

boundary 

condition 

/ORBIT  /( 

55) 

PDBC 

n 

OECDG 

DECDH 

Partia 1 

der 1 vat i ve 

of 

boundary 

condition 

/ORBIT  /( 

56) 

PDBC 

n 

DECDH 

DECDM 

Partial 

der 1 vat i ve 

of 

boundary 

condition 

/ORBIT  /( 

5T> 

PDBC 

0 

DECDM 

OECOPS 

Partial 

der  t vat t ve 

of 

boundary 

condition 

/ORBIT  /( 

58) 

PDBC 

m 

DECDPS 

DECDRO 

Partial 

der  * vat t ve 

of 

boundary, 

condi 1 1 on 

/ORBIT  /( 

59) 

PDBC 

n 

DECDRO 

OECDMU 

Partial 

der i v at l ve 

of 

boundary 

condition 

/ORBIT  /( 

60) 

PDBC 

0 

DECOMU 

DIOV 

Partial 

der i vail ve 

of 

bo  und  ary 

condition 

/ORBIT  /( 

61) 

POBC 

n 

OIOV 

DIOG 

Partial 

der i vat \ ve 

of 

boundary 

condition 

/ORBIT  /( 

62) 

POBC 

M 

0108 

0!  DH 

' Partial 

der I vat  i ve 

of 

boundary 

condition 

/ORBIT  /( 

63  ) 

PDBC 

n 

DIDH 

0!dm‘ 

Partial 

derivative 

0 f 

boundary 

condition 

/ORBIT  /( 

69) 

POBC 

0 

DIOR 

01  DPS 

Partial 

der i vat » ve 

of 

boundary 

condition 

/ORBIT  /( 

65) 

PDBC 

H 

01  DPS 

DIDRO 

Partial 

der 1 vat?  ve 

of 

boundary 

condi t i on 

/ORBIT  /( 

66) 

POBC 

n 

DIDRO 

01  DMU 

Parti  al 

der i v at  1 ve 

0 f 

boundary 

condition 

/ORBIT  /( 

67) 

PDBC 

0 

DIDMU 

OBEDV 

Partial 

der i vati ve 

of 

boundary 

conditl on 

/ORBIT  /( 

68) 

POBC 

0 

OBEDV 

OBEDG 

Partial 

der i v at i ve 

0 f 

boundary 

condition 

/ORBIT  /( 

69) 

POBC 

0 

OBEDG 

DBEOH 

Partial 

der i vati ve 

0 f 

boundary 

condition 

/ORBIT  /( 

70  ) 

POBC 

0 

DBEOH 

DBEDM 

P ar  t i a 1 

der i vati ve 

of 

boundary 

condition 

/ORBIT  /{ 

71 ) 

PDBC 

0 

DBEDR 

DBEDPS 

Partial 

der i v at i ve 

of 

boundary 

condition 

/ORBIT  /( 

72) 

PDBC 

Q 

DBEDPS 

DBEORO 

Partia! 

derivative 

of 

boundary 

condition 

/ORBIT  /{ 

73) 

PDBC 

0 

DBEDRO 

OBEOMU 

Par  t i a 1 

der  i v at  i ve‘ 

of 

bound  ary 

condition 

/ORBIT  /( 

79  ) 

POBC 

0 

OBEOMU 

DNODV 

Parti  a 1 

der  i v at  i ve 

of 

boundary 

condit ion 

/ORBIT  /( 

75) 

PDBC 

0 

DNODV 

DNOOG 

Partial 

der i vat i ve 

of 

boundary 

condition 

/ORBIT  /( 

76) 

PDBC 

0 

DNDOG 

ONOOH 

Parti  a 1 

der i vat i ve 

of 

boundary 

condition 

/ORBIT  /( 

77) 

PDBC 

0 

ONOOH 

DNQDM 

Partial 

der i vati ve 

0 f 

bo  u n dary 

condition 

/ORBIT  /< 

78  ) 

POBC 

0 

onoom 

DNODPS 

Partial 

d er  i v at i ve 

of 

boundary 

condition 

/ORBIT  /{ 

79  ) 

PDBC 

a 

ONODPS 

DNOORO 

Partial 

deri vati ve 

of 

boundary 

condition 

/ORBIT  n 

80) 

POBC 

0 

DNODRO 

ONOOMU 

Partial 

d er  i v at  ] ve 

of 

bound  ary 

condition 

/ORBIT  /( 

81  ) 

POBC 

0 

DNOOMU 

OSMDV 

Partial 

deri vat] v e 

of 

boundary 

condition 

' /ORBIT  /( 

82) 

POBC 

n 

OSMOV  • 

D5M0G 
30  OCT  72 

G. 01-96 

Partial 

der  I v at  I ve 

of 

boundary 

condition 

/ORBIT  /( 

63  ) 

PDBC' 

n 

DSMOS 

lOfUHAN 

fcvnmu. 

(1A1H 

SYMBOL 

DESCRIPTION  ■ 

5T0BA0E 

&LOC*  LOC 

SOBROt 

SU8R 

CODE  VAR 

DSMOH 

Part  Ul 

derivative 

of 

boundary 

condition 

/ORBIT 

/( 

69  ) 

POBC 

a 

.osnort 

DSnon 

■ Partial 

derivative 

of 

bo  under  y 

condlt 1 on 

/ORBIT 

n 

BS  ) 

PDBC 

0 

OSMQN 

osnoPS 

Partial 

de  r 1 vat  1 ve 

of 

boundary 

condition 

/ORBIT 

n 

86  ) 

POBC 

n 

QSflDPS 

QSflDRO 

Partial 

der i vat  1 ve 

of 

boundary 

condition 

/ORBIT 

n 

an 

POBC 

a 

OSDDRO 

osmonu 

Partial 

der 1 vet l ve 

of 

boundary 

conditi on 

/ORBIT 

/( 

88  ) 

POBC 

0 

DSflDflU 

DAPOV 

Partial 

der  I v at  t ve 

o f 

boundary 

condition 

/ORBIT 

/( 

a 9> 

POBC 

0 

OAPDY 

DAPOG 

Parti al 

der 1 v at  1 ve 

of  boundary 

condition 

/ORBIT 

/< 

90) 

POBC 

0 

DAPOS 

DAPDH 

Parti  al 

der I vat  I ve 

o f 

boundary 

condition 

/ORBIT 

n 

' 91  ) 

PDBC 

0 

DAPOH 

dapoa 

Partial 

der i vat  1 ve 

of 

boundary 

condition 

/ORBIT 

n 

92) 

POBC 

6 

DAPDN 

OAPDPS 

.Parti  a I 

der 1 vat  1 ve 

of 

boundary 

condition 

/ORBIT 

/< 

.93) 

PDBC 

0 

OAPDPS 

OAPORO 

Partial 

der 1 vat  1 ve 

of 

boundary 

condition 

/ORBIT 

n 

99  > 

POBC 

0 

OAPORO 

DAPDHU  . 

Parti  al 

der 1 v at  I ve 

of 

boundary 

conditi on 

/ORBIT 

n 

95) 

POBC 

0 

OAPDNU 

DPEDV 

Partial 

der i vat i vc 

of 

boundary 

condition 

/ORBIT 

/c 

96) 

PDBC 

0 

OPEDV 

OPEOG 

Parti  a 1 

derivative 

0 f 

boundary 

Condition 

/ORBIT 

/< 

97) 

PDBC 

0 

OPEOS 

BPEDH 

Parti  al 

derivative 

of 

boundary 

condition 

/ORBIT 

/< 

98) 

POBC 

0 

DPEDH 

DPEDn 

Partial 

derivative 

of 

boundary 

condition 

/ORBIT 

/( 

99) 

PDBC 

o' 

OPEDf) 

DPEDPS 

Parti  a 1 

der i vat i vc 

of 

boundary 

condition 

/ORBIT 

/( 

100) 

PDBC 

0 

OPEOPS 

BPEDRO 

Partial 

der i vitl ve 

of 

boundary 

condition 

/ORBIT. 

n 

.101  > 

POBC 

0 v 

•DPEDHO 

DPEOnU 

Partial 

der 1 vat i ve 

of 

bo  und  ar  y 

condition 

/ORBTT 

/( 

102) 

PDBC 

■ 0 ' 

OPEDflU 

DANDV 

Partial 

der I vat  I ve 

of 

boundary 

condition 

/ORBIT 

/( 

103)  'PBBC  . 

0 

DANDV 

BANDS 

Partial 

der i vat i vc 

of 

boundary 

co  ndit i on 

/ORBIT 

n 

109) 

PDBC 

0 

DAND5 

DANOH 

Partial 

der i vat i ve 

of 

boundar y 

condition 

/ORBIT 

/( 

.105  > 

POBC 

’ 0 

DANBH 

BANDS 

Partial 

der i v at  1 ve 

of  'boundary 

condition 

/ORBIT 

/( 

106  > -PDBC 

o' 

BANDS 

DANDPS 

Partial 

der  I'vat  i ve 

Of 

boundary 

conditi  on 

/ORBIT. 

/< 

107  ) 

POBC 

0 

DANDPS 

DANORQ 

Partial 

derivative 

of 

bo  undar y 

condition 

/ORBIT 

/< 

108) 

PDBC 

0 

DANORO 

DANOnU 

Parti  a 1 

der i vat i ve 

of 

boundary 

condition 

/ORBIT 

/( 

109) 

PDBC 

0 

OANDAU 

DCXOV 

P arti a 1 

der i vat i ve 

of 

boundary 

condition 

/ORBIT 

/< 

110) 

PDBC 

0 

OCXOV 

DCXOG 

P ar t i a 1 

der i v at i ve 

of 

boundary 

condition 

/ORBIT 

/( 

Ul  ) 

POBC 

0 

DCXDS 

DCXDH 

Part  i a 1 

derivative 

of 

boundary 

condition 

/ORBIT 

n 

112  ) 

PDBC 

0 

DCXDH 

DCXOS 

Parti  al 

der i v at  i ve 

of 

boundary 

condition 

/ORBIT 

/< 

113) 

PDBC 

0 

DCXDS 

DCXDPS 

Partial 

der i vat i ve 

of 

bo  undar  y 

condition 

/ORBIT 

/( 

119) 

PDBC 

0 

0CXDP5 

OCXDRO 

Parti  a 1 

derivative 

of 

bo  und  ar  y 

condition 

/ORBIT 

/< 

115  ) 

PDBC 

0 

DCXDRO 

DCXDRU 

Part i a 1 

der i v at ! ve 

of 

bo  undory 

condition 

/ORBIT 

/( 

116  ) 

PDBC 

0 

OCXDSU 

OCYDV 

Par  t ia  1 

der i vat i ve 

of 

boundary 

CO  ndit  i 0 n 

/ORBIT 

/( 

117  ) 

PDBC 

0 

DCYOV 

DCYDG 

Partial 

der i v at i ve 

of 

boundary 

conditi  on 

/ORBIT 

n 

118  ) 

POBC 

0 

'dcyog 

OCYDH 

Parti  a 1 

der i vat i ve 

of 

boundary 

condit i on 

/ORBIT 

n 

119) 

POBC 

0 

OCYDH 

OCYDK 

Partial 

derivative 

of 

boundary 

condition 

/ORBIT 

n 

120) 

PDBC 

0 

DCY0F1 

DCYDPS 

Partial 

derivative 

of 

boundary 

condition 

/ORBIT 

n 

121  > 

POBC 

0 

DCYDPS 

OCYORO 

Partial 

derivative 

of'  boundary 

condition 

/ORBIT 

/< 

122  > 

PDBC 

0 

DCYORO 

OCYDPHJ 

Parti  a 1 

der 1 vat i ve 

of 

boundary 

condition 

/ORBIT 

/( 

123  ) 

PDBC 

0 

DCYDMU 

BASOV 

Partial 

der i v a t i ve 

of 

bo  und  ar  y 

condition 

/ORBIT 

/t 

129  ) 

PDBC 

0 

DA5DV 

DAS  06 

P art i a 1 

derivative 

of  boundary 

condition 

/ORBIT 

/t 

125) 

PDBC 

0 

DA5DG 

OASOH 

Parti al 

der I vat i ve 

of 

bound  ary 

conditi on 

/ORBIT 

/< 

126  > 

PDBC 

0 

DASDH 

OASOM 

Part  1 a l 

der 1 v at  1 ve 

of 

boundary 

conditi on 

/ORBIT 

/( 

127  ) 

POBC 

0 

DASOR 

BAS  OPS 

Parti  al 

derivative 

of 

boundary 

condition 

/ORBIT 

/< 

128  ) 

POBC 

0 

DASOPS 

OASORD 

Partial 

der 1 vat i ve 

of 

bo  undary 

condition 

/ORBIT 

/i 

129  ) 

POBC 

0 

DASDRO 

9ASDIHU 

Parti al 

der 1 vat  1 ve 

0 f 

boundary 

conditi on 

/ORBIT 

/( 

130  ) 

POBC 

0 

DASDNU 

•BENDY 

Part  I a 1 

derivative 

of 

boundary 

condition 

/ORBIT 

n 

131  ) 

PDBC 

6 

DENOV 

OENDG 

Partial 

derivative 

of 

boundary 

condition 

/ORBIT 

/( 

132) 

PDBC 

D 

OENDG 

40 


FORTRAN 

SY(4B0L 

HATH 

SYnaot 

DESCRIPTION 

ST  OjA 

;e 

SUBROUTINE  USAGE 

block 

toe 

S'Jdri 

CODE  VAR 

OENDH 

Partial  derivative  of  boundary 

Condition 

/ORBIT 

/( 

133  ) 

PDBC 

0 

DENOH 

0ENDI4 

Partial  derivative  of  boundary. 

condition 

/ORBIT 

/( 

134  ) 

POBC 

0 

OENOR 

OENOPS 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/< 

135  ) 

PDBC  • 

0 

GEN0P5 

OENORO 

Partial  .derivative  of  boundary 

condition 

/ORBIT 

/( 

136  ) 

PDBC 

0 

OENORO 

DENOmU 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

- 137) 

POBC  ' 

0 

DtA'DAU 

orioov 

Partial  derivative  of  boundary 

cr ndi  t ion 

/ORBIT 

/( 

138) 

PDBC 

0 

drody 

DI40DG 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

139) 

PDBC 

0 

DnODG 

DROOH 

Partial  derivative  gf  boundary 

condition 

/ORBIT 

/( 

140) 

POBC 

0 

OMODH 

DC4Q0I9 

Partial  derivative  of  boundary 

Condition 

/ORBIT 

/( 

141  > 

PDBC 

D 

0I40DPI 

droops 

Partial  derivative  cf  boundary 

esnoitisn 

/ORBIT 

/( 

142  ) 

PDBC 

0 

DROOPS 

DRODRO 

Partial  derivative  of  boundary 

Condition- 

/ORBIT 

/( 

1435- 

PDBC 

0 

C-aODRQ 

omocR'J 

Partial  derivative  of  boundary 

condition 

/ORBIT 

/( 

144  ) 

POBC 

0 

D!40onu 

YRXRF 

Refer erec  longitude 

(RAO  1 

. /ORBIT 

/( 

145  ) 

PDBC 

I 

YfiXKF 

*7 

RED3 

0 

YRXRF 

SNXU4R 

s i n{  p ) 

Sine  of  reference  latitude 

/ORBIT 

/( 

146  ) 

POBC 

I 

5NXLRR 

- 

REUS 

3 

SNXU1R 

csxlrr 

c o s C p ~pr ) 

Cosine  of  refernece  latitude 

/ORBIT 

/( 

14  T-) 

POBC 

I 

csxtnfi 

REU3 

0 

CSXLDR 

S00UW 

5„ 

Dc»n  range 

(FT) 

/ORBIT 

/( 

148  ) 

OUT 

1 

S00UN 

0 

PDBC 

a 

SDDUN  . 

5CR0S5 

S„ 

Cress  range 

(FT) 

/ORBIT 

/( 

144  I 

OUT 

i 

3CR0SS 

vf* 

PDBC 

0 

SCROSS 

TO 

*0 

Down  range  angle 

(RAC) 

/ORBIT 

/( 

1501 

POBC 

14 

TD. 

TC 

'c 

Cress  range  angle 

(RAO  ) 

/ORBIT 

/( 

151  > 

PDBC 

FI 

rc 

SNPSfi 

s 1 n{ 't'  ) 

Sine  cf  reference  azlfcutb 

/ORBIT 

/( 

152  ) 

PDBC 

I 

SNPSR 

r 

REU3 

0 

5NPSR- 

C5PSR 

c o s < V*  ) 

Cosine  of  reference  azlnuth 

/ORBIT 

/( 

153  ) 

PDBC 

! 

CSPER 

r 

REU3 

0 

C5PSR 

SNGI 

si  n ( > 1 3 

S»ne  of  inertial  flight  path  angle 

/ORBIT 

/( 

154  ) 

PDBC 

it 

SN3I 

CSGI 

c o s<  ? j ] 

Cosine  of  inertial  flight  path 

angle 

/ORBIT 

/( 

155) 

PDSC 

14 

CSGI 

SPS 1 1 

s i n(  ’/'j ) 

Sin  of  inertial  azimuth 

/ORBIT 

/< 

156  1 

POBC 

14 

SPSII 

■CSPSII 

c os(  V'j  1 

Cosine  of  inertial  zxiauth 

/ORBJT 

/( 

157  ) 

PDBC 

n 

CPSII 

STOT 

ST 

Total  rjflgt 

(FT) 

/ORBIT 

/< 

158  ) 

OUT 

I 

STOT  ’ 

T 

POBC 

0 

5TQT 

TRTOSZ 

i 

STOT 

CSI 

cost)') 

Cosine  cf  Inclination 

/ORBIT 

/< 

159  ) 

FD3C 

o 

CSI 

5NI 

sint / ) 

Sine  of  i nc  1 inat  left 

/ORBIT 

/( 

HO) 

PDBC 

n 

SNI 

5NGNU 

s i nt  v ) 

See  symbol 

/ORBIT 

/( 

16!  ) 

PDBC 

n 

SNSNU 

C5AN0 

cost  i ) 

See  symbol 

/ORBIT 

/( 

162  ) 

PDBC 

14 

CSANO 

COSDRU 

cost  Jl~Pr  ) 

See  sy *bo I 

/ORBJT 

/( 

163  ) 

POBC 

14 

COSOM 

s i nodu 

s i n(  (i-j/  ) 

See  sy abo 1 

/ORBIT 

/( 

144) 

PDBC 

n 

SINDF1U 

THT 

s\  ' 

Total  range  angle 

(FT  ) 

/ORBIT 

/( 

165  ) 

PDBC 

0 

TUT 

30  OCT  72  G. 01-46 
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BL0CK 

SIZING 


42 


FORTRAN  MATH 

SYMBOL  5YHB0L 


DESCRIPTION 


STORAGE  SUBROUTINE  U5A6E 

STSTHt  iT5c  subr  code  var 


sw 

sv 


so 


SE 


QLlfl 

TLAT 

tlng 

USD 


WLOO 
□ WEB 


DUEO 


TOLMT 

8 NOV  72  G. 01-46 


A synthesis  array  (20) 
options 

containing  counters  and  siting 

/SI  21  NG/C 

26) 

A synthesis  array  (20) 

containing  staging  paraaeters 

/SIZING/! 

46) 

ENVPRH 

H 

SV 

and  nlsc  flags 

- 

FLYBKP 

I 

sv 

ITER8 

I 

SV 

RANGE 

I 

SV 

SIZEMR 

n 

sv 

SI2IN 

i 

sv 

SSSP 

i 

sv 

SUMOUT 

l 

sv 

TAfiPAfi 

0 

sv 

TAMPER 

n 

sv 

TRTOSZ 

* 

sv 

VEHDF 

11 

sv 

UTVOL 

I 

sv 

A synthesis  data  array 

(37,5)  thit  contains  the 

/SIZING/! 

74) 

ENVPBfl 

tt 

sa 

flyback  data  and  some 

injection  quantities 

FLYBKP 

M 

sa 

ISPRAT 

I 

SB 

PDBC 

I 

SB 

PRITVA 

1 

SB 

RANGE 

H 

sa 

REU3 

0 

sa 

SIZE 

0 

SB 

S12EMR 

n 

SB 

SIZIN 

fl 

SB 

STAU 

1 

SB 

sumout 

n 

SB 

T AmP  AR 

0 

SB 

TAMPER 

n 

sa 

THRUST 

« 

SB 

TRTOSZ 

M 

SB 

VEHDF 

n 

SB 

_ 

UTVOL 

o 

SB 

Array  of  synthesis  iteration  propulsion  parameters 

/SIZING/! 

254  ) 

FLYBKP 

0 

SE 

PRJTVA 

1 

SE 

SIZEMR 

I 

SE 

' 

SUMOUT 

1 

SE 

• 

TAMPER 

M 

SE 

THRUST 

I 

SE 

VEHDF 

« 

SE 

UTSCtt 

I 

SE 

UT  VOL 

n 

SE 

Saved  value  of  naxloui 

dynaulc  pressure. 

/SIZING/! 

264) 

ENVPRM 

m 

Bun 

Description  not  input 

/SIZING/I 

270) 

5UMQUT 

I 

TLAT 

Description  not  Input 

/S1ZIN6/I 

271) 

SUMOUT 

I 

TLNG 

Booster  burnout  oeight 

( lb) 

/SIZING/! 

272) 

GEINP 

n 

SIZ 

PAYLOD 

0 

usu 

SIZE 

I 

DAT 

SIZOUT 

I 

N90 

* 

S1Z1 

n 

USD 

« 

SIZ2 

« 

M90- 

SIZ4 

(i 

vao 

TAMPAR 

i 

WBO 

Previous  iteration  value  of  booster  liftoff  oeight 

/SIZING/! 

273) 

SIZE* 

M 

ULOO 

( lb) 

Sensitivity  of  booster 

stage  oeight  to  propellant 

/SIZING/! 

274  > 

PAYLOD 

1 

ONES 

set ght  ( 1 b/ 1 b > 

SIZOUT 

I 

DBEB 

sin 

« 

DUES 

SIZ2 

n 

DWEB 

STAU 

I 

DUES 

UTORP 

n 

DBEB 

Sensitivity  of  orblter 

stage  ueight  to  propellant 

/SIZING/! 

275) 

PAYLOD 

I 

DHEO 

me  I ght  ( lb/  lb) 

SIZOUT 

l 

DNED 

SIZ1 

R 

DVEO 

SIZ2 

M 

DVEO 

SIZ4 

M 

DUEO 

UTDRP 

n 

OWED 

Booster  liftoff  nelght 

si il ng  tolerance  ( lb) 

/SIZING/! 

276) 

SIZE 

n 

TOLUT 

43 


• fortran 

SYMBOL 


MATH 

•SYMBOL 


DESCRIPTION 


STORAGE  - - SUBROUTINE  USAGE 
BLOtK  tot  SU9R  CODE  VAR 


UPB 

Booster  propellant  pclght  (lb) 

/SIZING/) 

277  ) 

SIZOUT 

l 

- UPB 

SIZ1' 

m 

UPB 

SIZ2 

’fl 

UPB 

SIM 

i 

UPB 

TAHPAR 

I 

UPB 

' 

UTDRP 

rt 

UPB 

TUB AT 2 

Second  stOge  t hraxt“to~Dei ght  ratio 

/5XZING/) 

278  I 

SIZOUT 

1 

TURAT2 

SIZI 

0 

TURAT2 

SIZ2 

D 

TURAT2 

SIZ3 

0 

TURAT2 

SIZR 

0 

TURAT2 

BKi 

Value  of  constant  Height  in  booster  stage  might 

/SIZING/) 

2791 

SIZI 

'I 

BKI 

equation 

SIZ2 

i. 

BKI 

UTDRP 

i 

&K1  . 

BK2 

Value  of  linear  ttro  coefficient  In  booster  stage 

/SU1W6/C 

280) 

SIZI 

i 

BKZ  - , 

Height  equation 

51 ZZ 

2, 

BK2 

UTDRP 

Z 

BK2 

BK3 

Value  of  1/3-pouer  tera  coefficient  In  booster  stage' 

/SIZING/) 

2B1) 

SUL 

I 

BK3 

Height  equation 

. 

5IZ2 

I 

BK3 

UTDRP 

I 

BK3  ‘ 

BAR 

Value  of  2/3-pober  tero  coefficient  In  boaster  stage 

/SIZING/) 

282) 

SIZI 

l 

BX* 

*ei ght  aquation 

SIZ2 

T> 

BX*  ' 

, 

UTDRP 

I * 

8X* 

1SIZE 

sizing  option  flog  1.  Flicd  a)o,  aaalolze  *pl  2. 

/SIZING/)- 

283  r SUE 

« 

ISIZE’ 

Fixed  xpl,  ainlaize  olo  3.  Fixed  arbiter,  cinlalze 

SIZOUT  I 

ISIZE 

elo  *.  Fixed  booster,  afnialze  «Io  5.  Fixed 

- 

(t/pH.O.  flaxlelz#  xpl  6*  Fixed  Ct/nll.0.  Oetersine 
f 

- 

TRAFLG' 

Traffic  control 'flag  0.  Sizing  loop  .not  converged  1. 

/SIZING/) 

28*  > 

FRENCH 

0 

TRAFLG 

Sizing  loop  converged  2.  Error  In  sizing  loop  next 

1TER8 

*0 

TRAFLG 

case 

PADS  Is 

i 

TRAFLG  * 

‘ 

SIZE 

ii 

TRAFLG  * 

* 

SSSP 

0 

TRAFLG 

VEHGF 

0 

TRAFLG 

TURATO 

Liftoff  thrust-to-ooi ght  ratio 

/SIZING/) 

285  ) 

SIZOUT* 

1 

TURATO 

SIZI 

0 . 

TURATO 

SIZ2 

0 

TURATO 

SIZ* 

0 

TURATO 

SIZ5 

1 

TURATO 

OKI 

Sooe  as  bki  except  for  orbttor 

/SIZING/) 

2861 

SIZI 

1 

0X1 

SIZ2 

1 

0X1 

SIZ* 

1 

0X1 

UTDRP 

] 

0X1 

OK2 

5s»e  as  &Se2  except  for  orblier 

/SIZING/) 

287] 

SIZI 

2 

0X2 

SIZ2 

I 

0X2 

SIZ*« 

I 

0X2 

UTDRP 

I . 

0X2 

0K3 

Sane  as  bk3  except  for  orblter 

/SIZING/) 

288) 

SIZI 

1 

0X3 

SI  12 

I 

0X3 

. , 

SIZ* 

I 

0X3 

UTDRP 

I 

QX3 

OKR 

Saae  as  bfc*  except  for  orbiter 

/SIZING/) 

2891 

SIZI' 

I 

OX* 

SIZZ 

I 

OX* 

SI  29 

I 

OK* 

UTDRP 

I 

OX* 

PRFLS 

5izing  data  print  flag  1.  Print  header  2.  Print 

/SIZING/) 

290) 

SIZE 

ft 

PRFLS 

identifier  3.  Print  dot* 

SIZOUT 

ft 

PRFLG 

I PASS 

Sizing  iteration  counter 

/SIZING/) 

291  > 

SEINP 

8 

IPASS 

PADS1 

w 

IPASS 

PAY02 

I 

IPASS 

SIZE 

ft 

IPASS 

SIZIH 

I 

IPASS 

SSSP 

n 

IPASS 

8 NOV  72  G.OI-R6 


44 


FORTRAN 

SVttBOL 


NATH 

svhbol 


DESCRIPTION 


STORAGE  SUBROUTINE  OSAGE 
BLOCK  LOG  SLl&B  CODE  VAR 


IPSRAX 

tiakiaua  nu»bcr  of  titrations 

/SIZING/! 

292 1 size 

fi 

IPSWAX 

S5SP 

I 

IPSflAX 

VEHDF 

I 

HIPSrtX 

9EH0F 

0 

1PSRAX 

AEXIT 

Boo*t«r  engine  «xli  oroe 

/SIZING/! 

293 ) SIZ1 

I 

atm 

SIZZ 

I 

AEXIT 

SIZ4 

I 

AEX1T 

SIZ5 

I 

AEX1T 

T ANPAR 

I 

AEXIT 

T VACO 

OrbSter  vacuus  thrust  tlb) 

/SIZING/! 

29'f ) SIZOUT 

I 

T VACO 

SIZ1 

1 

TVACO 

c 

SIZZ 

I 

T VACO 

SIZ3 

2 

TVACO 

SIZ* 

2 

TVACO 

TANPAR 

I 

T VACO 

NO 

Ngaber  of  orblitr  anginas 

/5IZING/! 

295)  SIZOUT 

I 

NO 

5IZ1 

1 

NO 

5IZ2 

I 

NO 

5IZ3 

I 

NO 

SIZ9 

I 

NO 

T AFIPAR 

I 

NO 

UFO 

Or  biter  burnout  ©eight  ( lb) 

/SIZING/C 

296 1 PAVtGO 

« 

UFO 

SIZOUT 

I 

UFO 

SIZ1 

0 

UFO 

SIZZ 

0 

UFO 

SIZ3 

0 

UFO 

SIZ« 

R 

UFO 

TAPIPAR 

I 

UFO 

TRTOSZ 

D 

UFO 

IDVEL 

Total  ideal  velocity  required  to  orbit  (fps) 

/SIZING/! 

297 > SIZI 

I 

IOVEL 

SIZ2 

I 

IDVEL 

SIZ3 

i 

IDVEL 

SIZS 

I 

IOVEL 

TRTOSZ 

D 

IDVEL 

ISPO 

Orbitar  vacuus  specific  lopulse  sec 

/SI ZING/! 

298)  SIZE 

■rt 

ISPO 

SIZOUT 

I 

I5P0 

SIZI 

I 

ISPO 

SIZ2 

I 

ISPO 

SIZ3 

I 

ISPO 

SIZ9 

I 

ISPO 

TABPAR 

I 

ISPO 

JSPB 

Booster  vacuua  specific  lapulse  see 

/SI ZI NG/( 

299)  SIZE 

rt 

1SPB 

SIZOUT 

I 

1SPB 

sizi 

I 

I5PB 

SIZE 

l 

I5PB 

S1Z3 

I 

ISPB 

SIZ9 

I 

ISPB 

T ArtPAR 

r 

ISPB 

XPL 

Payload  aelght  (IbJ 

/5IZIN6/1 

300)  SIZOUT 

I 

XPL 

SIZI 

0 

XPL 

S1Z2 

I 

XPL 

5IZ3 

I 

XPL 

S1Z4 

1 

XPL 

TAnPAR 

I 

XPL 

TVACB 

Booster  vicuuq  thrust  per  engine  lb 

/SI ZI NG/( 

301)  SIZOUT 

I 

TVACB 

1 

SIZI 

I 

TVACB 

SIZ2 

I 

TVACB  , 

S1ZN 

I 

TVACB 

S1Z5 

1 

TVACB 

TArtPAR 

I 

TVACB 

NNB 

Nuafaer  of  booster  engines 

/SIZING/C 

302)  SIZOUT 

I 

NNB 

SIZI 

I 

NNB 

SIZZ 

I 

NNB 

SIZ* 

1 

HHB 

SI  zs 

I 

NUB 

TADPAR 

I 

um 

B NOV  72  G. 01-^6 
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FORTRAN 

•SVnBOL 


HATH 

SVnBOL 


DESCRIPTIOIM 


STORAGE  SUBROUTINE  USAGE 
BLOCK CB^  SUBR  CODE  VAR 


ueo 

Orbh*r  ttago  se  \ ght  (lb) 

/SIZING/! 

303)  PAVLOB  t 

MEG 

SIZOUT  I 

UEO 

SIZl  Ft 

UEO 

size  n 

UEO 

SIZ3  I 

WED 

SIZR  FI 

UEO 

taupar  : 

UEO 

fcJTDRP  n 

UEO 

UEB 

Booster  stag*  ool^ht  ( lb) 

/SIZING/! 

30R>  PAVLOD  I 

UEB 

SIZOUT  I 

UEB 

SIZl  « 

WEB 

SIZZ  « 

UEB 

SIZR  I 

UEB 

TAUPAR  I 

UEB 

WTORP  n 

UEB 

uo 

Initial  orbiter  weight  (lb) 

/SIZING/! 

305)  PAVLOO  0 

UO 

SIZOUT  I 

UO 

sin  n 

uo 

, sizz  n 

UO 

SIZ3  n 

UO 

SIZl  fl 

UO 

TAHPRR  I 

UO 

ULO 

Booster  Httoff  oelght  (lb) 

/SIZING/! 

306)  PAVLOO  0 

WLO 

SIZE  I 

WLO 

SIZOUT  I 

WLO 

SIZl  I 

ULO 

sizz  n 

ULO 

SIZR  n 

ULO 

S1Z5  0 

WLO 

taupar  i 

ULO 

DVO 

Orbiter  Ideal  velocity  (fps) 

/SIZING/! 

307)  SIZOUT  I 

DVO 

SIZl  0 

DVO 

5IZZ  D 

OVO 

SIZ3  n 

DVO 

SIZR  0 

OVD 

TRTOSZ  0 

DVO 

OVB 

Booster  tdcl  velocity  dps) 

/SIZING/! 

308)  SIZOUT  I 

OVB 

5IZ1  H 

DVB 

sizz  n 

OVB 

SIZ3  0 

DVB 

51 ZR  n 

DVB 

rub 

Booster  ease  retie  or  velocity 

/SIZING/! 

309  ) SIZE  IT 

rub 

SIZl  I 

RUB 

SIZZ  I 

RUB 

SIZ3  n 

RUB 

« 

sizr  n 

RUB 

n JO 

Orbiter  sass  ratio 

/SIZING/! 

310)  SIZE  IT 

RUO 

SIZl  « 

nuo 

sizz  . n 

RUO 

SIZR  • IT 

RUO 

VSTS 

Booster  staging  velocity  (fps) 

/SIZING/! 

311.)  SIZE  I 

VSTG 

trtosz  n 

VSTS 

UPO 

Orbiter  propellant  oelght  (lb) 

/SIZING/! 

31Z)  SIZOUT  I 

UPO 

sizi  n 

UPO 

SIZZ  IT 

UPO 

SIZ3  I 

UPO 

sizr  n 

UPO 

TAITPAR  I 

UPO 

UTDRP  IT 

UPO 

JTYP 

Sizing.  Flog. 

/SIZING/! 

313)  POTS  I 

JTYP 

GE1NP  0 

JTYP 

MQOELA  I 

JTYP 

PA0S1  I 

JTYP 

PROPIN  I 

JTYP 

SHIN  I 

JTYP 

TRTOSZ  1 

JTYP 

BECO 

Booster  cut-off  arc 

/SIZING/! 

31R ) SIZE  I 

BECO 

VEHDF  I 

BECO 

8 NOV  IZ  G.01-R6 
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FORTRAN  RATH  . 

SYMBOL  5YMB0L 


DESCRIPTION' 


• storage  subroutine  usase 

BLOCK  LOC  SUBR  COO?  Y«R 


8STG 

Booster  staging  ere 

/SIZING/! 

315)  SIZE 

I 

05YG 

VEHDP 

I 

BSTG 

ORBI 

Orbltcr  Ignition  ore 

/SIZING/! 

316  ) BEU3 

J 

ORBI 

.SIZE 

I 

ORB! 

VEHDP 

1 

ORBI 

ITNBU 

Booster  • apty  ptght  curve  no. 

/SIZING/! 

317]  SIZE 

0 

ITNBU 

S1ZI 

I 

ITNBU 

SIZ2 

1 

msu 

UTDBP 

I 

IT  MOD 

1TNOU 

Drbltcr  enpty  oelght  curve  no  * 

/SIZING/! 

316)  SUE 

0 

IT  WOW 

* 

S1Z1 

1 

ITWOH 

S1Z2 

I. 

I THOU 

S1ZH 

I 

ITNOH 

UTORP 

1 

JTNON 

SVOPSQ 

Saved  control  aatric 

/SUING/! 

3)S)  POV02 

! 

SVDP50 

TRTOSZ 

0 

SVDPSQ 

SVDCON 

Saved  payoff  laprovosent 

/SIZING/! 

320)  TRTOSZ 

0 

SVDCON 

I hunt 

Nunber  of  iterations  for  par&oetor  hunt 

/SIZING/! 

321)  GEINP 

a 

I HUNT 

OPUELL 

i 

EUR 

SSSP 

i 

1 HUNT 

IOPST6 

Description  not  Input 

/SIZING/! 

322)  BE1NP 

0 

I0PST8 

SIZ1N 

0 

I0PSTG 

SSSP 

1 

IDP5TS 

SO  CO 

Solid  engine  cut-off  arc 

/SIZING/! 

326  )'  VEHDP 

I 

'so  CO 

SOSP 

Solid  engine  drop  arc 

/SIZIttG/t 

327 ) VEHDP 

I 

SOSP 

B NOV  72  G. 0 J-H6 
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BL0CK 

TABLE 


48 


F Oil  I RAN  nfllH  mrenDTDTTnM  S 7 OR  ASF  SUBROUTINE  USAGE 

symbol  symbol  uc.oL.nir  I iUlM  block  loc  subb  cooe  var 


LOCI 


T ABLE 
X 

LOCL 


V 

LOCF 


T 


A 50  word  array  that  correspond!  to  tables  1 thru  50.  /TABLE  /( 
Each  entry  Is  an  integer  that  points  to  the  initial 
value  of  the  Independent  variable  of  the  corresponding 
table.  A lero  entry  indicates  table  not  Input. 


A 21C0  ciord  array  used  for  'storing  up  to  50  spline  /.TABLE  /( 

fitted  univariant  tables. 


n splico  n 
splico  n 
spliz  i 
spliz  i 

SPLYNE  I 
SPLYNE  I 
' THRUP  I 
THRUP  0 


LOCI 

X 

LOCI 

X 

LOCI  - 
X 

-LOCI 
' X 


1 > 


A 650  cord  array  that  contains  the  Independent  /TABLE  /( 

variable  entries  of  all  of  the  50  or  less  tables 

Input. 

A 50  nerd  array  that  corresponds  to  tables  1 thru  50.  /TABLE  /( 
Each  entry  is  an  integer  that  indicates  the  last 
interval  in  ohlch  interpolation  of  the  corresponding 
table  occured. 


A 650  eord  array  that  contains  the  dependent  variable  /TABLE  /( 
entries  of  ai]  of  the  50  or  less  tables  input. 

A 50  oord  array  that  corresponds  to  tables  1 thru  50.  /TABLE  /( 
Each  entry  is'  an  integer  that  points  to  the  last  value  . 
of  the  independent  variable,  of  the  corresponding 
table. 


51) 


701)  SPLICO  0 LOCL 
SPLICO  n Y 
SPLIZ  M LOCL 
SPLIZ  I Y 
SPLYNE  H LOCL 
SPLYNE  I Y 
THRUP  0 Y 

751  ) 


1501)  SPLICO  H LOCF 

• splico  n z 

SPLIZ  - I-  LQCF- 
SPLIZ  I Z 
SPLYNE  I LOCF 
SPLYNE  I Z 
THRUP  0 Z ' 


•The  nesh  point  second  derivatives  of  the  cubic  spline  /TABLE  /(•  1551) 
functions  of  all  of  the  50  or  less  tables  Input. 
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SUBROUTINE 

C00RDS 


50 


ER 


1 Earth  radl  u». 
R 


(FT)  /GLOBAL/( 


Z)  COORDS 

J 

ER 

CRASH 

I 

REfl 

E0UA3 

I 

ER 

GEINP 

I 

ER 

PADS1 

I 

ER 

POBC 

I 

ER 

SOHO 

I 

ER 

TRTOSZ 

J 

ER 
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COORDS 


[ 


a 


a 


l. 

SUBROUTINE  COORDSt  COSRHO, 

SIMRHO) 

cooros 

2. 

C 

COORDS 

3. 

c 

SUBROUTINE  TO  CALCULATE  IHERTIAL  POSITION.  VELOCITY.  AND 

COORDS 

9 . 

C. 

EULER  ANGLES  FROM  RELf-.TlVE 

: STATES. 

COOROS 

5. 

c 

COORDS 

6. 

DIMENSION  At  9 ) . DU),  C19), 

DIR  COS  C 9 ) . 

EULER!  3) 

COOROS 

7. 

COMMON/ GLOBAL/  SR, ER 

COORDS 

8. 

CDMMON/PRINT/  API  1 00 ) 

COORDS 

9. 

c 

COOROS 

10. 

c 

DATA  INITIATION 

APBL6 

11. 

c 

COORDS 

12. 

RAO=  1./57. 29577951 

APRLb 

13. 

PI=  3 . 141592653 

APRL6 

19. 

COSA  = COSt  API  29  J.RAD) 

COOROS 

15. 

SINA  = SI  N(  API  29  J.RAD) 

COOROS 

16. 

COSBNlt  = COSt  API  30  J.RAO) 

COOROS 

17. 

SINBN*  = SINI  API  30  J.RAD) 

COORDS 

18. 

C0SGAI9  = C051AP19)»RAD> 

COOROS 

19. 

S INGAM  = SINI  API9>*RA0> 

COOROS 

20. 

SINPSI  = SINI  API  5 J.RAD) 

COORDS 

21. 

- C05P5I  = CDS! API5 J.RAD) 

COORDS 

22. 

. COSKUI  = C05I  API  13 ).  RAO) 

COOROS 

23. 

SINFIUI  = SINI  API  13).  RAD) 

COOROS 

29. 

R = EH  + API  2) 

COOROS 

25. 

c 

APRLb 

26. 

c 

POSITION  TRANSFORMATION 

APRLb 

27. 

c 

APRL6 

26. 

API  8b  ) = R.  COSRHO  . cosmii 

COORDS 

29. 

API  87)  = R.  COSRHO  . SINMU1 

COORDS 

30. 

API  88)  = R*  SI  NR HO 

COORDS 

31. 

c 

COORDS 

32. 

c 

VELOCITY  TRANSFORMATION 

COORDS 

33. 

c 

COORDS 

39. 

RHODOT  = API  3 )/R  • COSGAM.  COSPSI 

COORDS 

35. 

UNI  DOT  = AP l 3 )/R  . COSGAM.  SINPSI/ 

COSRHO 

COORDS 

36. 

ROOT  = AP( 3 } * SIHGAH 

COOROS 

37. 

API  89)  = ROOT*  AP1861/R  - RHODOT* 

AP( 88)* 

COSMUI 

COOROS 

38. 

l - Ural  DOT  . API  87) 

COOROS 

39. 

API  90)  = ROOT.  API  87  )/R  - RHODOT* 

AP(  88  )* 

SINFIUI 

COOROS 

90. 

1 + UfHlDOT  * AP<86) 

COORDS 

91. 

. API  91)  = ROOT.SINRHO  + fl.RHDDOT.COSRHO 

COORDS 

92. 

c 

COOROS 

93. 

c 

EULER  ANGLES 

COOROS 

99. 

c 

coohos 

95. 

DP  1 1=1,9 

COOROS 

96. 

All)  =0. 

COORDS 

97. 

Bt  I ) =0. 

COOROS 

98. 

i cm  =o. 

COORDS 

99. 

AID  = I. 

COORDS 

50. 

At  5 ) = 1. 

COOROS 

51. 

At  9 J s 1. 

COORDS 

52. 

BI  1 ) = COSA 

COORDS 

53. 

013)=  SINA 

APRLb 

59. 

Bl  5 ) = 1. 

COOROS 

55. 

BI  7 ) = -SINA 

APRLb- 

56. 

BI9)  = COSA 

COOROS 

57. 

CALL  PRODUTt  A;  D,  C) 

COOROS 

58. 

00  2 1=1,9 

COOROS 

59. 

BID  = C(I> 

COOROS 

60. 

Z AID  = 0. 

COORDS 

61. 

All)  = 1. 

COORDS 

62. 

At  5)  = COSBNX 

COORDS 

63. 

Alb)  =-SINBNJI 

COORDS 

69. 

At  8 ) = SINBNK 

COORDS 

65. 

At  9)  = COSBNK 

COORDS 

66. 

CALL  PRDDUT  IA,B,C> 

COORDS 

67. 

DO  3 1=1 ,9 

COOROS 

68. 

BII)  = cm 

COORDS 

69. 

3 Al  I ) =0. 

COOROS 

70. 

All)  = COSGAM 

COORDS 

71. 

At  3 >=  5INGAM 

APRLb- 

72. 

At  5)  = 1.  • 

COORDS 

73. 

At  7 ) = -SIN6AM 

APRLb 

79. 

At  9 ) = COSGAM 

COORDS 

75. 

CALL  PRDDUT  I A, D, C) 

COORDS 

76. 

00  0 1=1,9 

COORDS 

77. 

bui  =etn 

COORDS 

78. 

i «m  =o. 

COORDS 

79. 

mu  = -caspsi 

APRL6 

ao. 

At  21  =-SlNPSl 

COORDS 

81. 

At  91  = SIHPSI 

COORDS 

sa. 

At  5 1 = -C0SP5I 

APRL6 

, 83. 

At  9 1 = 1 . 

COORDS 

Q9. 

CALL  PRQDUTt  A, B,DIBCOS ) 

COORDS 

85. 

C 

COORDS 

86. 

C 

RELATIVE  EULER  AM6LES 

COORDS 

87. 

C 

CQOPDS 

88. 

CALL  OCTOE  tOIRCOS, EULER, 1) 

COORDS 

89. 

API  52 1 = EULERt 11/RAD 

COORDS 

90. 

API  53  ) = EULEtl(2)/RAtJ 

COORDS 

91. 

API  59)  = EULERt  3 l/RAD 

COORDS 

93. 

DO  5 1=1,9 

COOROS 

93. 

5 Btl 1 = 0. 

COORDS 

99. 

Bill  = COSHUI 

COORDS 

95. 

Bt21  = sittnui 

APRL6 

96. 

8191=  -S1KRUI 

APRL6 

97. 

Bt  5 > = C05RUI 

COOROS 

98. 

Bt  9 ) = 1. 

COORDS 

99. 

CALL  PROBUTt  0IRC05,B,C> 

COORDS 

100. 

C 

COORDS 

101. 

C 

INERTIAL  EULER  ANSLES 

COOROS 

102. 

c 

COOROS 

103. 

CALL  OCTO EtC, EULER, 1 1 

COORDS 

109. 

APt59>  = EULERt  1 l/RAD 

COOROS 

105. 

APt60)  = EULERt 2 l/RAD 

COOROS 

106. 

AP  t 61 ) = EULERt  3 l/RAD 

COOROS 

107. 

RETURN 

COOROS 

108. 

END 

COOROS 
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DAT  H 
SYMBOL 


DESCRIPTION 


sioraqe 

BLOCH  LOC 


SUBROUTINE  USAGE 
SUBA  LODE  VAR 


On 

GM 

i 

Product  of  Neaton's  universal  gr a v 1 1 it  1 0 n 1 1 

/GLQBAL/{ 

B7  > 

CRASH 

I 

GR 

constant  and  the  mass  of  the  earth.  (FT^/SEC^) 

OUT 

PAOSI 

I 

o 

GN 

GN 

PDBC 

I 

GM 

QnEGA 

OJ 

i 

Earth -rotation  rate  CRAD/SEC) 

/global/( 

3) 

ADI D3A 

I 

OMGZ 

CRASH 

I 

OMEGA 

0ER3A 

I 

QpIGZ 

EQUA3 

I 

OMGZ 

GEINP 

I 

OMGZ 

PIOOELA 

I 

OMGZ 

no  DELS 

I 

OMGZ 

PDBC 

I 

OMGZ 

PDY3A 

I 

OMGZ 

• 

SOI  NP 

I 

OMGZ 

TQPPI 

I 

OMGZ 

REM 

Ed 

i 

Earth  radius.  (FT) 

/GLOBAL/) 

2) 

COOROS 

I 

ER 

R 

CRASH 

i 

REP) 

EQUA3 

I 

ER 

GEINP 

I 

ER 

(. 

PADS1 

I 

ER 

PDBC 

I 

ER 

SONG 

I 

EK 

TRTOSZ 

I 

ER 

RHOO  * 

p 

n 

Reference  latitude.  (DEG) 

/GLOBAL/ ( 

A ) 

CRASH 

IR 

RHOO 

'r 

GEINP 

I 

XLAP1RF 

SEU3 

I 

XLAPIRF 

5DINP 

M 

XLAflHF 

SORT 

F 

Square  root  function 

/SORT  /($ 

) 

ANLATP) 

F 

SORT 

CRASH  F SORT 
OCTOE  F SORT 
DER3A  F SORT 
ENVPRP)  F SORT 
HUNT  F SORT 
PIODELA  F SORT 
flOGELB  F SORT 
OPUJELL  F SORT 
OUT  F SORT 
PAT63  F SORT 
PAYD2  F SORT 
PDBC  F SORT 
PDY3A  F SORT 
STORE  F SORT 
SYP1VRT  F SORT 
UTSCH  F SORT 

UHUO  p n Reference  longitude.  ( OEE ) /GLOBAL/C  5)  CRASH  N UPIUO 

r GE1NP  I YMURF 

REU3  I YPIURF 
SDINP  Pi  YMURF 
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FORTRAN  PlftTH 

iVflBOL  SYMBOL 


DESCRIPTION 


■ UN06. 


0 Flit  of  a t I output  data 


STORAGE 
BLOCK  LOG 


SUBR  CODE  VAR 


BLICO 

0 

. UN06. 

BNDRVC 

0 

, UN06. 

CRASH 

0 

. UN06 . 

FRENCH 

0 

, UN06 . 

FJOAT 

0 

. UN06 . 

GE1NP 

0 

. UN06 . 

HUNT 

0 

.UNDO. 

INEOIT 

0 

-UNOS. 

1TER8 

0 

. UND6. 

HDOELA 

0 

, UN06. 

wo  n j 

0 

. UNOfc. 

(IPSI 

0 

.UN06. 

OUT 

0 

. UN06. 

PAV02 

0 

. UN06 . 

PRINT 

0 

.UN06.' 

PR  I NT  V 

0 

. UN06. 

PfilNTU 

0 

, UND6 . 

PFITEO 

0 

. UN06 . 

PRITVA 

0 

.UNOS. 

PROPIN 

0 

. UN06 . 

PROTHR 

0 

•UN06. 

PRUTSFI 

0 

. UN06. 

RANGE 

0 

. UN0  6 . 

S 

0 

. UN06 . 

SDINP 

0 

. UND6. 

SIZE 

0 

.UN06. 

SIZIN 

0 

. UN06. 

SIZOUT 

0 

. UN06  4 

SOLVE 

0 

. UN06. 

SPLICO 

0 

.UNO*. 

SPLIZ 

0 

• .UN06. 

SPLVNE 

0 

.UN06. 

5SSP 

0 

.UNOfc. 

STAU 

0 

. UN06. 

STPIT  - 

0 

.UNOfc. 

SUMOUT 

0 

. UND6 . 

TABIN 

0 

. UN06. 

TEST 

0 

. UN06 . 

VEHDF 

0 

.UN06. 

LITSCH 

0 

. UNOfc . 

UT  VOL. 

0 

.UNOfc. 
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CRASH 


1.  SUBROUTINE  CRASH 

2 . C 

3.  C PADS  CRASH 

9 - C THIS  ROUTINE  PERFORMS  AUXILIARY  PRINT  COMPUTATIONS  FOR 

5.  C THE  I NST ANTED  US  IMPACT  POINTS  FOR  AN  ELLIPTICAL  ORBIT 

6.  c all  angles  ih  radians 

7.  Z all  DISTANCES  1U  FEET 

8.  C ALL  TIMES  IN  SECONDS 

9.  C 

10.  COPlrtON/PRINT/  API  100 ) 

11.  COrtWDH/SLOBAL/ 

12.  *GR  .ER  ,QM6I  .XLAHRF  . YrtURF  ,LUH 

13.  *,JJ0P(10)  . IFATAL  ,HARC  ,NBRAN  ,NFARC  .1019) 

19.  *. XT AB( 20)IT6B12Q>  ,$IG  ,«A*TA& 

15.  *,G n ,PS1RF,IPFLS1,  IPFL62, IPFLG3, IPFLG9,INEQFL<  20  > 

16.  * I TP50  ,KSOL  .XGL0BL<8> 

17.  REAL  NUTA.  NOBAR  HUI1P 

18.  EQUIVALENCE 

19.  * ( TIME  .APCl))  ,{R1A. Ap< 67 ) > , ( HI P , API  68 ) ) , 

20.  * <E,AP(63))  .{V,Ap(lO)>  GAfUlP,  API  11  )), 

21.  * { GAn2IPfAPC 12)5,1 A, AP(  62 > ) ,(P_AP(73))  , 

22.  * (RHOD.XLAnRF)  UflUO  YflURf ) , t RtO.Efi ) . 

23.  » IOMEGA. Qn62  ) ,lurmtAP(b>)  ,tHH0,AP(7)J 

,29.  C 

25.  C CALCULATION  OF  IIP  FOR  ELLIPTICAL  0RBJT5 

26.  C 

27.  FTNPl  a 1./6076. 10333 

28.  RAD=  1./57. 29577951 

29.  PI=  3.191592653 

30.  TOP!  =2.  * PI 

31-  A = A/FTNR 

32.  P s P/FTNR 

33.  RIA  * Rl A/FTWH 

39.  RIP  * RIP/FTI1N 

35.  RHOO  - RHDO*  RAO 

36.  UttUO  = UflUO*  RAD 

37.  GAM1IP  = GARl I P*RAD 

38.  6AM2IP  a GAM2IP*  RAO 

39.  unu  = unu*  RAD 

90.  RHO  = RHO*  RAD 

91.  SINRP  = 51 Nt RHO ) 

92.  COSRP  = COS( RHO) 

93.  C 

99.  C RADIUS 

95.  C 

96.  RI  = REH  + API  2 ) 

97.  C 

98.  C TEST  FOR  INTERSECTION  OF  ORBIT  WITH  EARTH 

99.  C 

50.  IFCRER.LT. RIP)  GO  TO  1000 

51.  IFCREn.GT.RlA)  GO  TO  1001 

52.  C 

53.  C TRUE  ANOMALY 

59.  C 

55.  COSY  = IIP/RI  ) - 1.3/6 

56.  NUT  A = ACOS(COSV) 

57.  SINY  = S INC  NUT A 7 

59*.  C IHPACT  TRUE  ANOMALY  IHUIIP) 

60.  C 

61.  COSHUIa  IP/REW  -1.  )/E 

'62.  NUIIP=  - ACOSC  COSfJUI  ) 

63.  S1NNUI  = SIN  CNUIIP) 

69.  C 

65.  C ECCENTRIC  ANOMALY 

66.  C 

67.  COSED  = CE  ■*  COSY  >/(  l.+E*CGSY ) 

68.  SINEO  = CSORTC  ABSC  l.-E*En*SlWY)/tl.+E«COSY) 

69.  EC  = AT  AN2C  5 1 NEO, CQ5E0 ) 

70.  C 

71.  C IMPACT  VELOCITY  C VI  IP ) 

72.  C 

73.  VHP  =SORT( V*V+( Sfl/RI  >*2.*  (fll-RG«>7REfl) 

79.  C 

75.  C 1 HP ACT  ELEVATION  FLIGHT  PATH  ANGLE  SAMI IF 
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CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

RETAP 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

APRL6 

APRL6 

CRASH 

CRASH 

CRASH 

CRASH 

CRA5H 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRA5H 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRA5H 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRA5H 
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87.  C 

88.  C 

89. 

90. 

91. 

92. 

93. 

99. 

95.  C 

96 . C 

97.  C 

98. 

99. 
100. 
101. 

102.  C 

103.  C 
l OH.  C 
105. 
108. 

107. 

108.  C 

109.  C 
HO.  C 
111. 

112.  C 

113.  C 
119.  C 

us. 

116.  C 

117.  C 

118.  C 

119. 

120.  C 

121.  C 

122.  C 

123. 
129. 

125. 

126.  C 

127.  C 

128.  C 

129. 

130.  C 

131.  C 

132.  C 

133. 
139. 

135.  C 

136.  C 

137.  C 

138. 

139. 

190.  C 

191.  C 

192.  C 
1 93. 
199.  C 

195.  C 

196.  C 

197. 

198.  C 

199.  C 


G0S61F  - (Rl*V*C0S(6AniXP  ) ) / ( flEH* V 1 1 P ) 

SAnilF  =-  ftCOSCCOSSIF) 

TRUE  ANOMALY  70  IMPACT  { NOOAR-  RAD) 

WUBAR  = (HUIIP  -NUTA) 

WUBAR  = AnOD( NUBAR+TGP1 tTOPI 1 
SINBB  = SIN  (NJBAR) 

COSBO  = CQS(NUBAR)  . 

IMPACT  GEOCENTRIC  LATITUDE  CRHOIIP) 

C A M2 IP  - COS<  GAM21P ) 

SAM2IP  = SIN( GAM2IP ) 

S1NRIP  = COSRP  * CAM2IP  +5INBB  * 

1 SIWRP  »COSBB 

RHOIIP  = ASINCSINR1P) 

COSRIP  = COS( RHOIIP  ) 

IMPACT  AZIMUTH  FLIGHT  PATH  ANGLE  ( GAM2IF ) 

SING2F  = COSRP  * SAM2IP  /COSRIP 
C0SG2F  = ( COSBB*SINRjP-$INRp )/( SINBB )*COSRIP 
6AM21F  - ATANZC5IN62F.C0SG2F) 

6AM2IF  = A MOOt  GAM2IF  + TOPI, TOPI > 

LONGITUDE  FROM  BURNOUT  TO  IMPACT  - t UMUBAR ) 

SUHBAR  = 5INBB«SING2F/C0SnXP 

CUMBAR  =< COSBB-SI NRP»SI NRIP )/(  COSRP*CQSRIP ) 

UMUBAR  =-  AT  AN2( S UMB  AR , CUMBAR ) 

SIN  OF  IIP  ECCENTRIC  ANOMALY  (SIBEF) 

SINEF  =t  SORT  l AB5(  1 -**E*E  H^SKINUI  >/(1.4E  #COSMUI  1* 

COSINE  OF  ECCENTRIC  ANOMALY  AT  IMPACT 

COSEF  - <£  + CO 5 WUl  )/( l.+E*  COSNUI I 

ECCENTRIC  ANOMALY  AT  IMPACT-EIIP 

El IP  = ATAN2(5INEF,C0SEF) 

INITIAL  TIME  SINCE  PERIGEE  -TAUO 

X = A*  SQBTtA/SM) 

TAU  = T0PI*X 

TAUD=X*(EC  “E*SIHEO ) 

TIME  SINCE  PERIGEE  AT  IMPACT  TAU1IP 

TAOIIP  = X*( EIIP  -E*SIN£F> 

TIME  TO  IMPACT  -TAUBAR 

TAUBAfi  = TAUIIP  - TAUO 
IFtTAUBAR.LT.O.O)  TAUBAR=  TAU0AR  ♦ TAU 

IMPACT  LONGITUDE  - UHU1IP  (DEG) 

UMUIIP  i={  UMU  - UMUBAR  W AUD  AJW0.1EGA 
UMUIIP  = A (10D(  UMU11P+  TOPI, TOPI) 

IMPACT  TIME  -TUP  (SEC) 

TI1P  = TIME  + TAUBAR 

RANGE  TO  IMPACT  SBAR  (FT) 

SBAH  =REA*NUBAR 

RANGE  FROM  LAUNCH  SITE  SUP  (FT) 
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151.  x = timuo  - unus  ip> 

152.  SJNROL  = SIMtRHOO) 

152.  COSfiOL  = CO&t  BHOO ) 

i5i.  $x  = siutn 

155.  CX  * COStX) 

155.  COSX  = COSROL  *CQ$RIP*CX+5IHROL*SI«RXP 

157.  COSX  = ACOStCOSX) 

158.  COSX  = AHODCCOSX  ♦ PI.PI) 

159.  SUP  - RE**COSX 

160.  C 

161.  C AZIHUTK  ANGLE  FRO«  LAUNCH  TO  IHPACT  POINT  AZIIP  (RAD) 

162.  C 

162.  IFtX.EQ.O.)  GO  TO  1002 

16H.  60  TO  1010 


165.  1002  IF(firtgilP.lT.fiHPO)  60  TO  1003 


166.  1012  AZUP-0.0 

167.  60  TO  1030 


168.  1003  AZIIP  - PI 

169.  60  TO  1030 


170.  1010  IFCX.EO.PX  ) GO  TO  1011 

171.  50  TO  1020 


172.  1011  I Ft RH01 IP. GE.-RHQO)  GO  TO  1012 

173.  60  TO  1003  


17*1.  1020  CONTINUE 

175.  AZIIP  =■  ACOS!  { 5X/A8S( SX )/SlH( 51 IP/REN) ) 

176.  * •!CDSfiOL*SINRIP-CO$RIP*SlNR0L*CX>) 

177.  * -t(SX/ABS(SX))-K)»PI/2. 


178. 

1030  CONTINUE 

179. 

Apt  76) 

= TIIP/60. 

180. 

AP!77) 

= 5IIP*FTN* 

181. 

API  78) 

£ AZIIP/  RAD 

182. 

APt  79  > 

- VHP 

163. 

APC60) 

= GAH1IF/  HAD 

189. 

APC81) 

= RHOIIP/  RAD 

185. 

API  82) 

~ TAUBAR/60. 

186. 

APt  83) 

^ SBAR«FTNR 

187. 

APC8H) 

= GAR2IF/  RAO 

188. 

APt  85  ) 

= UHUIIP/  RAD 

189. 

APt 69) 

= NUT A /RAD 

190. 

APt 70) 

a TAU  /fcO. 

191. 

RK00 

= RHOO/RAD 

192. 

unuo 

= UrtUO/RAD 

193. 

unu 

s U«U  /RAD 

199. 

RHO 

= RHO  /RAD 

195. 

A * 

= A * FTNH 

196. 

p 

= P • FT NR 

197. 

RI A 

= RI A * Finn 

i 198 . 

RIP 

» RIP  * FINN 

'199. 

GAniiP 

^ GAMIP/  RAD 

1200. 

6AH2IP 

= 6AA21P/  RAO 

201. 

GO  TO  999 

202.  1000  CONTINUE 

203.  CALL  PAGES!  1, 1,0 

20*1.  WRITE!  6 2) 

205.  2 FORHATCIH  ,9HW0  IKPACT) 

206.  60  TO  1030 


207.  1001  CONTINUE 

208.  CALL  PAGES! 1,1,*) 

209.  WRITE! 6.3  ) 

|210.  3 F0RHATt36H  APOGEE  ALTITUDE  BELOW  EARTH  SURFACE) 

211. SO  TO  1030  


212.  999  RETURN 

213.  END 


CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 


CRASH 

CRASH 

CRASH 


CRASH 


CRASH 

CRASH 


CRASH 

CRASH 


CRASH 

CRA5H 


rtort 


CRASH 

CRASH 


CRASH 

CRASH 

CRASH 

CRASH 


CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

CRASH 

pan 

P019 

P019 

PD19 

P019 

PD19 

pon 

pon 

P019 

pon 

CRASH 


1003- 


3 


,1020-j 

[1012J 

i1003- 


1030- 

1030- 


CRASH 

CRASH 

CRASH 

CRASH 

APRL6 


1030- 


CRASH 

CRASH 

CRASH 

APRL6 

APRL6 


1030- 


CRASH 

CRASH 
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SUBR0UT INE 
DCT0E 


so 


F0R1RAN  l-IATH 

SvnfJOL  , SYMBOL 


' COOE  ' 


DESCRIPTION. 


SORT 


f Squirt  root  function' 


BLOCK  -LOC  SU3R  COOE  VAB 


/SORT  /<$  i ANLAT*  f SORT 
CRASH  F SORT 

. ncTOE  r sort 

. 0ER3A  F SORT 


ENV?R«  F 

SORT 

HUNT 

F- 

SORT 

C10DELA 

F 

SORT 

flOOELB  f 

SORT 

OPUELL 

F 

SORT 

OUT 

F 

SORT 

PAT  63 

,-F 

SORT 

PAV02 

F 

SORT 

POBC 

F 

SORT 

P0Y3A 

F. 

SORT 

STORE 

F 

SORT 

SYPWRT 

F 

• SORT 

UTSCH. 

F 

SORT 
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OCTOE 


1. 

SUBROUTINE  OCTOE( DIRCOS, EULER, KROT I 

OCTOE 

2. 

C 

OCTOE 

3k. 

c 

TRANSFQRRS  DIRECTION  COSINES  INTO  EULER  ANGLES 

OCTOE 

H-. 

c 

REF.  SVPAT  ROUTINE  OCTOE 

, OCTOE 

5. 

c 

RROT.ST.O  = VAU,  PITCH  ROLL 

OCTOE 

6. 

c 

KR0I.6T.  0 = PITCH, YAH,  ROLL 

OCTOE 

7. 

c 

OCTOE 

8 * 

DIMENSION  DIRCOST 3,3 > ,EULEA13) 

OCTOE 

9. 

1FTKR0T1  111,111,112 

DCTOE 

10. 

c 

OCTOE 

11. 

c 

EULER  ANGLES  FOR  ROTATION  ORDER  VAU,  FITCH,  ROLL 

DCTOE 

12. 

D 

OCTOE 

13. 

111 

EULERI21  = ATAN2(0IRC0S(  1,21,  OIRCBST  1,1)1 

DCTOE 

19. 

EULERC  3 1 = AT  AH2T 01RCQ5T 2, 3 ),QIRC0S1  3,3 1 > 

OCTOE 

15. 

EULERT 1 1 = ATAU2T - DIR COST  1,3  l.SGRTT 1 .-  DIR  COS  1 1,3 1*0 1 fi COST 1,3>>1 

OCTOE 

16. 

GO  TO  399 

OCTOE 

17. 

c 

DCTOE 

18. 

c 

EULER  ANGLES  FOR  ROTATION  ORDER  PITCH,  VAU,  ROLL 

DCTOE 

19. 

c 

OCTOE 

20. 

112 

EULERt  21  = ATAN2I -OIRCOSI  1,2 ),SORH  l.-DIRC0S41,2I*BtRC0St  1,2)11 

DCTOE 

21. 

EULERt  3 1 = ATANZ(-D1RCDS<3,2),DIRC0ST2,Z)1 

OCtOE 

22. 

EULERT  VI  = ATAN2T'0IRC0S(I, 31, OiRCOSt 1,111 

OCTOE 

23. 

999 

returh 

DCTCr 

29. 

EKD 

DCTOE 
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SUBR0UTINE 
I MB' VAD 
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EUR1RAN 

SYHROL 

HATH 

SYRBQL 

cooe 

DESCRIPTION 

STORAGE 

SU9R0UT  I NE 

USAGE 

BLOCK 

LOC 

SU3R  COOE 

VAR 

ALFRAX 

O' 

n 

HaxJaun  angle  of  attack 

( DEG) 

/ ARCDAT /{ 

16  1 

INBVAO 

n 

ALFRAX 

rax 

RODELA 

i 

ALFRAX 

RODELB 

i 

ALFPIAX 

AP1AX 

x 

i 

The  largest  value  of  the  first  Independent  variable 

/BICUBE/I 

2) 

BLICO 

0 

flRAX 

N 

of  * bivariate  table. 

BLYNE 

I 

ARAX 

INBVAO 

I 

AP1AX 

AMIN 

Xn 

i 

The  smallest  value  of  the  first  Independent 

/ B1 CUBE/ ( 

1 ) 

BLICO 

n 

RRIN 

0 

variable  of  a bivariate  table. 

BLYNE 

i 

ARIN 

* 

INBVAO 

I 

APIIN 

C 

0 

A 32  uord  array  containing  the  spline  coefficients 

/Bi CUBE/C 

12) 

BLYNE 

0 

C 

for  the  two  bivariate  functions  at  rectangle 

IRECT. 

BLYNE 

i 

CLOO 

• 

INBVAD 

0 

C 

IF 

n 

Last  file  In  the  grid  In  phlch  interpolation 

/BICUBE/I 

3) 

BLYNE 

fl 

IF 

occurred. 

INBVAD 

PI 

IF 

I FflAX 

N 

i 

Total  ngnber  of  files  In  grid. 

/Bl CUBE/ ( 

9 ) 

BLICO 

n 

1RPIAX 

BLYNE 

i 

IFP1AX 

1NBYAD 

L 

1FPIAX 

IR 

pi 

Last  rank  in  the  grld'ln  ahich  interpolation 

/BI CUBE/( 

7) 

BLICO 

n 

IF 

o c egrr ed. 

BLYNE 

n 

IR 

INBVAO 

n 

IR 

IREC 

n 

Logical  record  on  IUNIT  that  contains  spline 

/BICUBE/I 

11  ) 

BLICO 

pi 

IREC 

coefficients  for  rectangle  IRECT. 

BLYNE 

n 

IREC 

IAIBVAD 

N 

IREC 

IRECT 

n 

Grid  rectangle  associated  »>th  IR  and  IF. 

/BICUB£/( 

10  ) 

BLICO 

M 

IRECT 

BLYNE 

R 

IRECT 

INBVAD 

n 

IRECT 

IRP1AX, 

i 

Total  nonber  of  ranks  In  grid. 

/BICUBE/t 

8) 

BLICO 

R 

IFPIAX 

BLYNE 

I 

IRPIAX 

INBVAD 

I 

1RRAX 

I UNI  T 

i 

Logical  unit  nunber  on  vhich  bicubic  spline 

/BI CUBE/< 

9) 

BLICO 

n 

IUNIT 

coefficients  are  stored  for  this  table. 

BLYNE 

I 

IUNIT 

1NBVA0 

I 

IUNIT 

T 

i 

A 160  nord  array  containing  logical  record  IREC. 

/B1CUBEVT 

99) 

BLICO 

I 

T 

BLYNE 

I 

T 

1NBVA0 

I 

•T 
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I NBVAD 


1. 
2. 
3 ► 
9. 

5. 

6. 

7. 

8. 

9. 

10. 

11. 

12. 


C 

c 

c 


a 


i*i. 

15. 

16. 

17. 

18. 

19. 

20. 
Zl. 


22. 

23. 

2*1. 


C 


26. 

27. 


SUBROUTINE  IN&VADtlSET) 

'•  INITIALIZES  BIVARIATE  INTERPOLATION 

COMMON  /SI  CUBE/  AMIN,  AMAX,  IF.  IFMAX,  Mrtl  N,  PMAX,  IR,  IfiflAX, 
UUNIT,  IRECT,  IREC,  ti  32'),  T<160>,  FI  70 ) 

COMMON  /ARCDAT/  BET M 40  1 
EOUI VALENCE  (ALFflAX,  BETA! 161) 

CALL  READMStlSET  ♦ 27,  AMIN,  273,  1) 

1FIALFMAX  .LE.  0.)  ALFRAX  =■  3. 1^15926536 

IFIAMIN  . 6T . -AlFflAX  .OR,  ALFflftX  .GT.  AMAX)  STOP  11111 


1 CONTINUE 

IF  = tlFAAX  1 )/2 
IR  = ( 1RMAX  + U/2 
IRECT  = Ifi  ♦ IRMAXoUF  - I) 

IREC  = ( IRECT  - 11/5  + 2 

CALL  READMS< I UNIT,  T,  160,  IREC) 

IB  = 3Z+< IRECT  - 5*IREC  + 9) 

00  10  I = 1,  32 
J =■  I ♦ IB 
10  Cfl)  = T(  J 1 
RETURN 

AIRBREATHER  ENTRY 
ENTRY  1N&VPD 

CALL  READPiSUSET  +27,  Am«,Z73,  1 1 
60  TO  1 
END  - 


INBVAD 

CORN 

COMM 

COMM 

I NtJVfiO 

INBVAD 

INBVAO 

INBVAD 

INBVAO 

INBVAO 

INBVAD 


FIXED 

INBVAD 


INBVAO 

INBVAO 

INBVAO 

INBVAO 

INBVAD 

INBVAD 

INBVAD 

INBVAD 

INBVAO 

FIXED 

FIXED 

FIXED 

FIXED 

INBVAD 
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SUBR0UTINE 
I SPRAT 


Subroutine  ISPRAT 


Entry  ISPIN 
Purpose 

Subroutine  ISPRAT  computes  the  effective  ISP  for  the  dual  engine  simulation 
associated  with  SSP  sizing  problems. 

Description 

The  equations  in  ISPRAT  are  described  in  Section  7 of  Vol  I.  Entry  point 
ISPIN  is  called  to  initialize  the  vacuum  thrust  values  and  ISP  ratio  of  the 
two  engines. 


FORTRAN 

SYMBOL 


CODE 


HATH 

SYMBOL 


DESCRIPTION 


STORAGE 
BLOCK,  LOG- 


SO 


A &ynth«*t*  date  array  137,5)  th*t  contain*  the 
flyback  data  and  sooc  Injteilcn  quantities 


/SIZING/! 


7*0  EHtfPRR 

0 

so 

FLYB*P 

0 

sa 

l SPRAT 

1 

so 

P DDC 

I 

sa 

PfilTVA 

I 

sa 

RANGE 

FI 

sa 

REU3 

0 

sa 

SIZE. 

0 

SQ 

SIZEitR 

r> 

sa 

suits 

H 

so 

STAtl 

I 

so 

SUMOUT 

n 

sa 

TArtPAR 

0 

so 

TAMPER 

n 

sa 

THRUST 

H 

so 

TRTOSZ 

R 

sa 

VEHOF 

R 

sa 

UTVOL 

« 

sa 
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ISPRAT 


1. 

2- 

3. 

9. 

5. 

6. 
7, 
Q * 
9. 

10. 

U. 

12. 

13. 

19. 

15. 


16. 

19. 

20. 
21. 
22. 
23. 
29. 

25. 

26. 
27. 
26. 

29. 

30. 

31. 

32. 


33. 

39. 

35. 

36. 

37. 
36. 
39. 

90. 

91. 

92. 

93. 


SUBROUTINE  I5PRAT(  TRAT.ISR. ISRT, ISRTT, I ) 

COMPUTE  flEAN  I5P  RATIO  FOR  DUAL  ENGINE  SIMULATION 
DURING  THROTTLING 

UHEN  ENGINES  HAVE  DIFFERENT  ISP  VALUES 
HAS  TUO  ENTRV  POINTS 

ISPIN,  INITIALIZES  DATA  AT  ARC  CORNER  POINT 
REAL  ISR, ISRT , ISRTT, KPfil ME 
REAL  HUB,  HUD,  ISPB,  ISPO,  1DVEL.NNB.N0 
COMMON  /SIZING/ 

PHASE  II  SIZING  PARAflERERS 

*TZ,  VVC  3 ),  0P(  19  >,  EROR,  PZ<5),  VQ, 

♦SVU8),  S0C37.5).  SEUl),  TlAT,  TLM6, 

PHASE  I SIZING  PARAMETERS 


5U( 201, 


♦UBO, 
*BK1, 
♦OKI, 
♦AEXlT, 

♦ XPL. 
*OV0, 

*'svop£o 


ULOO, 

8*2/ 

OfiZ, 

TVACO, 

TVACB, 

dyo, 

BECO 


DUEO, 

BK3, 

0K3, 

HO, 

HHO, 

HUB, 

BSTS 


OWED, 

BKS, 

OKN, 

arc, 

WHO. 

HUB, 

ORBI, 

. IDPSTG 


T0LU7, 

1SIZE, 

PfiFLS, 

10VEL, 

UEB, 

USTG,  U! 
ITHOU  , ITNOU 
, 1 52C( 19  ) 


WPB, 

TRAFLS, 

IPfiSS, 

ISPO, 

HO, 


TURAT2. 

TURATD, 

IPSNAX, 

ISPB, 

HUB, 


, SVDC&H  , IHUnf 
E0U1VALENCE  CRV1,TV1 >,tRV2,TV2> 

TRAO=  THAT*. 01 
BEN  = ( KPfllME  + TRAO  -l.l.RVl  ♦ TRA0.RVZ 
ISR  = TROB  *C  KPRIAE.TV1  ♦ TUZIZOEH 
IFtI.EO.l)  SB  TO  103 
ISRT  = ISA«<  l./TRAO  -(RV1+TV21/DEH  > 

IF(I.EO.Z)  GO  TD  102 

ISRTT  = 1SRT..2/ISR  +ISR.< -1 . /TRA0».2+<  I TV1-*TV2 1/BEN1..2 ) 
1SRTT  = 100. .ISRTT 


ISPRAT 

ISPRAT 

ISPRAT 

ISPRAT 

ISPRAT 

ISPRAT 

ISPRAT 

ISPRAT 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

UH 

JULVZ8 

ISPRAT 

ISPRAT 

ISPRAT 

ISPRAT 

ISPRAT 

ISPRAT 

JULY28 

ISPRAT 


103- 

102 


1 


102  ISRT  = 100. .ISRT 


ISPRAT 


103  ISR  = 100. .ISR  ISPRAT 

RETURN  ISPRAT 

C INITIALIZATION  ENTRY  ISPRAT 

ENTRY  ISPIN  ISPRAT 

C TY1  IS  THE  UNTHROTTLE  ENGINE  ,TV2  IS  THROTTLED  THRUST!  VAC)  ISPRAT 

C KPRIIIE  IS  THE  RATIO  ISP-Z  / ISP-1  ( VACUUn  ONLY)  ISPRAT 

TUl-SQt  31,1)  ISPRAT 

TV2=SB<  31,21  ISPRAT 

XPRInE=SO( 31,31  ISPRAT 

RETURN  - ISPRAT 

END  ISPRAT 
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MATADD 


70 


MATADD 


SUBROUTINE  MATAQOCS,  A,  0,  U,  <U 

this  Subprogram  performs  the  double  precision  matrix  addition 

S=A+B,  WHERE  H 15  THE  NUMBER  OF  ROWS  IN  THE  A < 0 ) MATRIX  AND  fl  IS 
THE  DUMBER  OF  COLUMNS  IN  THE  A (B)  MATRIX. 

DIMENSION  A(l),  Bill,  SU ) 


J = 


DO  1 I = 1.  J 
tS(I)  = MI)  + 0(I) 


RETURN 


END 


MAT  ADO 
MATAOO 
MAT ADD 
MATAOO 
MAT ADD 
MATAOO 
MATAOO 
MATADD 
MATAOO 
MATAOO 
MATADD 
MAT  ODD 
MATADD 
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MA 


T 


BAT  ALT 


BftTfitT 
flATKLT 
BAT  ALT 
BATALT 


20  OCT  tZ 


73 


74 


Subroutine  PAGES 


Purpose  ' 

PAGES  keeps  track  of  page  and  line  count  and  returns  a flag  to  indicate  when 
a page  should  be  thrown.  PAGES  is  called  from  print. 
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DESCRIPTION 


I Sensitivity  of  boaster  stage  weight  to  propellant 
wel ght  ( lb/ lb) 


I Sensitivity  of  orblter  stage  weight  to  propellant 
•eight  < lb/  lb) 


D Booster  burnout  Height  (lb) 


I Booster  stage  Height  (lb) 


I Orblter  stage  weight  (lb) 


* Orblter  burnout  pel ght  (lb) 


0 Booster  liftoff  weight  (lb) 


0 Initial  orblter  weight  ( lb) 


STORAGE 
BLOCK  LOC 


/SIZING/! 


27<t)  PaYLOO 

I 

DUES 

SIZOUT 

1 

OUEB 

SIZ1 

A 

DUES 

SI  22 

n 

DUEL 

STAl) 

i 

DUES 

UTOfiP 

n 

DUES 

275)  PAYLOD 

I 

DUEC 

SIZOUT 

i 

OUEO 

SIZl 

n 

DtfEG 

S1Z2 

« 

DUEO 

SIZ5 

OUEO 

WTDHP 

11 

DUEO 

272)  GEINP 

A 

SIZ 

PAYLOO 

c 

UBO 

SIZE 

1 

DAT 

SIZOUT 

I 

UBO 

SIZl 

a 

UBO 

SIZ2 

a 

UBO 

SI 

a 

UBO 

TArtPAR 

i 

UBO 

30*)  PAYLOO 

l 

WEB 

SIZOUT 

i 

UEB 

SIZl 

n 

UrB 

S1Z2 

n 

WEB 

SIZY 

i 

UEB 

TftWPAR 

I 

WEB 

WTORP 

A 

WEB 

203)  PaYLOO 

I 

UEO 

S3Z0UT 

i 

WED 

SIZl 

A 

WED 

S1Z2 

fl 

UEO 

SIZ3 

I 

UEO 

SIZH 

n 

UEO 

TAflPAR 

i 

WED 

WTORP 

n 

UEO 

256)  PAYLOO 

a 

UFO 

SIZOUT 

i 

WFD 

SIZl 

0 

UFO 

SIZ2 

0 

UFO 

SIZ3 

0 

WFD 

Siza 

n 

UFO 

T AflPAR 

i 

WFO 

TRTOSZ 

0 

UFO 

306 ) PAVLOD 

0 

WLO 

SIZE 

I 

WLD 

sizour 

I 

WLO 

SIZl 

1 

ULO 

SIZZ 

a 

ULO 

SIZM 

n 

ULO 

S1Z5 

0 

WLO 

TAHPAR 

I 

WLO 

305 ) PAYLOO 

0 

uo 

SIZOUT 

I 

uo 

SIZl 

A 

uo 

SIZ2 

A 

UO' 

S1Z3 

n 

wo 

SIZM 

ft 

wo 

TAMPAfi 

i 

UO 
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PftVLOD 


O 

I"- 


1. 

SUBROUTINE  PAYLQDl PL, DPI, DP3,U1,U2) 

PAYLOD 

z 

C 

PAYLOO 

3- 

c 

OPT!n&L  STAGING  OPTION  PAYLOAD  CALCULATIONS 

PAYLQO 

4. 

c 

PAYLOO 

5 

REAL  HUB,  FUIO,  ISPB,  ISPO,  IDVEL.NNB, 

NO 

SIZING 

6. 

CCrtrtON  /SIZING/ 

SIZING 

7. 

c 

PHASE  II  SIZING  PARArtERERS 

SIZING 

a. 

#TZ,  V V(  3 >,  OPtlS),  EROR, 

P2(5), 

VO, 

SW(20), 

SIZING 

9. 

*SV(  28  )t  SQ(  37.5).  SEtll),  TLAT, 

TLNS, 

SIZING 

10 

c 

PHA5E  I SIZING  PARANERERS 

SIZING 

u. 

♦UBO,  ULOQ,  DUES,  OUEO, 

TOLUT, 

UPB, 

TURAT2, 

SIZING 

12. 

♦BUI.  BK2,  BK3#  BKS, 

ISIZE, 

TRAFLG, 

TufiATO, 

SIZING 

13. 

*OKI,  0K2,  0K3,  OKS, 

PRFLG, 

IPASS, 

IFSflAX, 

SIZING 

IS. 

•AEXIT,  TVACO,  NO,  UFO, 

IDVEL, 

1SPQ, 

ISPB, 

SIZING 

15. 

*XPL,  7VACB,  NN&,  UEO, 

WEB, 

wo. 

WLp, 

SIZING 

16. 

*dvo,  ov&,  nuB,  huo. 

VSTG. 

UPO 

SIZING  l 

17. 

♦, JTYP,  BEC6  , BSTG  , ORBI, 

ITNBW  . ITNOW  . 

SIZING  l 

18. 

* SVDPSQ  . SWOCOH  , 1HUNT  ,IOPSTG 

,ISZ0119> 

UH 

19. 

WO  - HI 

PAYLOO 

20. 

WFO  = W2 

PAYLOD 

21. 

WBO  = Ml  ♦ WEB 

PAYLOO 

22. 

wlo  = vvm 

PAYLOO 

23. 

c 

PAYLOD 

24. 

c 

PAYLOAD  WEIGHT 

PAYLOO 

25. 

c 

PAYLOO 

26. 

PL-WFQ-UEB 

PAYlOO 

27. 

c 

PAYLOO 

28. 

c 

PAYLOAD  SENSITIVITIES  TO 

PAYLOO 

29. 

c 

PAYLOO 

30. 

c 

1.  QRBITER  FINAL  WEIGHT 

PAYLOO 

31. 

c 

PAYLOO 

32. 

DP1=1.+0WEP 

PAYLOO 

33. 

c 

PAYLOO 

34. 

c 

2.  ORBITER  INITIAL  WEIGHT 

PAYLOO 

35. 

c 

PAYLOD 

36. 

c 

TAYLOD 

37. 

c 

3 BOOSTER  FINAL  WEIGHT 

PAYLOO 

38. 

c 

PAYLOO 

39. 

DP3=-DWHG*(  l.+DWEB) 

PAYLOD 

SO. 

c 

PAYLOD 

SI. 

RETURN 

PAYLOD 

42. 

END 

PAYLOO 
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SUBR0UT INE 
PRINT 


IPfLGl 

IPFLG2 

IPFL63 

1PFLGH 
. UN06. 


I 

I 

I 

1 

0 


A four  oord  array  containing  the  basic  deck, 
reference  run,  cos*  end  port  cose  nuobers  In 
order  . 


IPFLG1F0  supresses  prtnt-out  of  velocity  tos 
Inertial  Euler  angles. 


IPFLG2F0  supresses  print-out  of  orbital  para 
IPFLG3F0  supresses  prlnt-out  of  lopact  data. 


1PFLGHF0  supresses  print-out  of  Inertial  Car 
coordinates. 

File  of  all  output  dots 


/Global/c 

21  ) BLiCO 

I 

ID 

that 

FRENCH 

I 

ID 

GEINP 

I 

ID 

PAOS1 

0 

ID 

PRINT 

I 

ID 

SOINP 

I 

ID 

TORI') 

1 

ID 

« 

VEHDF 

I 

ID 

es  and 

/6L0BAL/I 

69V  FNTG 

I 

IPFLG1 

OUT 

I 

IPFL61 

PD6C 

I 

IPFLG1 

PRINT 

I 

IPFLG1 

TRTOSZ 

0 

IPFLG1 

ieters. 

/GLOBAL/f 

70)  PRINT 

l 

IPFLG2 

TRTOSZ 

0 

IPFLG2 

/GLOBAL/f 

71)  OUT 

I 

IPFLG3 

PRINT 

I 

IPFLG3 

TRTOSZ 

0 

IPFLG3 

: e s I an 

/G.L0BAL/< 

72)  PRINT 

I 

IPFLGA 

/.UN06./<  S 

) BLICO 

0 

. UN06. 

BNDRYC 

0 

.UNO*. 

CRASH 

0 

. UN06. 

FRENCH 

0 

. UH06 . 

FXOAT 

0 

. UN06. 

GEINP 

0 

. UN06- 

HUNT 

0 

. UNOB. 

inedit 

0 

.UN06. 

I TEH 8 

0 

.UNOB. 

I100ELA 

0 

. UNOB . 

MOflJ 

0 

. UN06. 

iipsi 

0 

* UNOB . 

OUT 

0 

. UN06 . 

PAY02 

0 

. UN06 . 

PRINT 

0 

.UNOB. 

PR1NTV 

0 

. UN06 . 

PRINTU 

0 

.UNOB. 

PRITEO 

0 

.UNOB. 

PRITVA 

0 

.UNOB. 

PROPIN 

0 

• ■UNO  6. 

PROTHR 

0 

.UNOB. 

PRUITSn 

0 

. UN06. 

RANGE 

0 

• UNOB. 

S 

0 

. UN06 . 

SOINP 

0 

•UNOB. 

SIZE 

0 

. UNOB. 

SIZIN 

0 

. UNOB. 

SIZOUT 

0 

.UNOB. 

SOLVE 

0 

. UNOB. 

SPLICO 

0 

•UNOB. 

SPLIZ 

0 

.UNOB. 

SPLYNE 

0 

.UNOB. 

SSSP 

0 

.UNOB. 

STAU 

0 

. UNOB. 

5TPIT 

D 

. UNOB. 

SUrtOUT 

0 

.UNOB. 

TABIN 

0 

UNOB. 

TEST 

0 

•UNOB. 

VEHDF 

0 

.UNOB. 

UTSCH 

0 

. UNOB. 

UT  VOL 

0 

■ UNOB 
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PH1*T 


u 

SUBROUTINE  PHI  Nil  ITEH , N,«M ) 

PAINT 

2. 

CO  FWOW/ GLOBAL/ 

GLOBAL 

3. 

•GR  ,ER  .0,62  CLAUDE  , YMURF  , LU, 

global 

9. 

* , J JDPl 10)  . IFATftL  ,NARC  ,NBRAW  MFARC  ,IDC9) 

GLOBAL 

5 

*,XTAB(20),iTAB(20)  ,BI6  .MAX-JAB 

global 

6. 

*,GM  , PS1  RE  1PFLG1,  IPFLG2,  IPFLS3,  1PFLS9, 1 8E3FLC 2G 1 

GLOBAL 

7. 

*,1TPS0  ,XSOL  XGLOBLC  8 ) 

RETAP 

8. 

DIMENSION  LABL1C3  1.LBBL2C  3 1.LA8L3C  3 1.LABL9C3  ),  LABEL!  3 » 

PRINT 

9. 

COMMON  /PRINT/  BI  IDO) 

PRINT 

10. 

DATA  LABL1/6H  SO  I,6HTERAT1,6K0N  NO  /, 

PRINT 

U. 

2 LA6L2/4H  ,4HS0  SOL, 4HUTI0M  /, 

PRINT 

12* 

3 LABL3/6H  QL  1, 6H7ERATI,  6H0N  NO  / , 

PRINT 

13. 

9 LABL9/4H  fcHflL  SOL  6HUTIGU  / 

PRINT 

19. 

c 

JLAG=-1  HEADER  JUST  PRINTED 

PRINT 

15. 

c 

JLAG=.|  HEADER  TO  BE  PRINTED 

PRINT 

16. 

c 

N = 1 SOLUTION  TRAJ 

PRINT 

17, 

c 

N ?0  TRIAL  THAJ 

PRINT 

J 8. 

c 

A - 1 QL  TRAJ 

PRINT 

19. 

c 

« = 0 SO  TRAJ 

PRINT 

2Q. 

c 

X - NON  ZERO  MEANS  USE  FIRST  PASS  LOGIC 

PRINT 

21. 

c 

IPFL81  =1  NO  PRINT  SOU  9 

PRINT 

22. 

c 

IPFLG2  =1  NO  PRINT  ROW  10  AMD  11 

PRINT 

23. 

c 

IPFLG3  =1  NO  PRINT  ROW  12  AND  13 

PRINT 

2*l. 

c 

I PFLG9  =1  NO  PRINT  RON  19 

PRINT 

25. 

c 

L-  NUMBER  OF  LINES 

APRL6 

26. 

c 

PRINT 

27. 

IF( X NE.O)  GO  TO  60 

PRINT 

60 

28. 

I FI  N.eq.O)  SO  TO  150 

PRINT 

150 

29. 

c 

PRINT 

30 

c 

COUNT  LINES 

FMNT 

31. 

151  CONTINUE 

was 

. 

32. 

L=10 

APPL6 

33. 

1FI IPpLGl.EO.03  L=t»I 

PRINT 

39. 

1FC1PFLS2.EQ.0)  L=L*2 

PRINT 

35. 

IF! IPFL63.EQ.O)  L=L+2 

PRINT 

36. 

1FC IPFLS9.EB.0l  L=L+1 

PRINT 

37. 

CALL  PAGESC L, IF  AGE, ISK1P ) 

PRINT 

38. 

I Ft  ISXIP.EB.il  SO  TO  900 

PRINT 

39. 

c 

PRINT  DATA 

PRINT 

90. 

905  KJ=0 

NOS 

91. 

DO  7 J=l,34,7 

NOS 

92. 

KJ=XJ*1 

NOS 

93. 

KX=J+6 

APR72 

99. 

WRITE!  6.  121  XJ.IACI  >,J=J,XK> 

«os 

95. 

7 CONTINUE 

APf!L6 

96. 

L7=7 

APui.6 

97. 

UR J TEC  6.  12  1 L7  C AC  I ), 1=93, 97  ),  AC  92  J,  AC  93) 

AHU6 

98. 

LB=8 

APKLi. 

t 

99 

WRITEC6,  12)  LB.CACI  ),  1=98.59) 

APHL6 

50. 

L9=  9 ' ' 

APRL6 

51. 

L10-10 

APRL6 

52. 

Lll=ll 

AP  »c6 

53. 

H2-12 

AH>  Lt 

59. 

L13=13 

APPL6 

55. 

LI  9=  19 

APRL6 

56. 

IFCIPFLGl.EO.O)  WHITE!  6,12)  L9  ,IAU>,  1*55,61) 

APRLC 

57. 

IFCIPFLG2.EO.0)  URITE!6,121  UO.IAII),  1=62,681 

APRL6 

58, 

IF(  IPFLG2.E0.0l  UFITE!6,12)  Lll  ,CA(1),  1=69,15) 

APRT2 

59 

I FC  IPFLG3.EO.O)  WHITE!  6,  15)  L12,<ACI>,  1 = 76,811 

APR72 

60. 

IFCIPFLS3.EB  D)  WRITE!  6,  161  L13.IAC1),  1=32,85) 

APR72 

61 

IFCIPFLS9.E0.01  WRITE)  6,  15)  L19,!AU>,  1=86,911 

APR72 

62. 

WRITE  C 6 101 1 

PRINT 

63. 

GD  TO  999 

PRINT 

ti. 

150  CONTINUE 

PfilNf 

*r — 

! 

65. 

L=10 

AFRL6 

bb. 

CALL  PAGES!  L,IP»G£,IS*1P> 

PFINT 

67. 

I FC I SKI P EQ.il  SB  TO  900 

PRINT 

66, 

903  CONTINUE 

FPINT 

69. 

XJ=0 

NOS 

70. 

DO  8 J=l, 36, 7 

N35 

7J. 

XJ-XJ+I 

NOS 

72. 

XX=J+6 

APR72 

73. 

WHITE!  b 12)  XJ  C AC  1 >,I=J,XX  ) 

All?  S 

79. 

8 CONTI Njfe 

APPL6 
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sz 


75 

75. 

77 

7B 

79 

80, 

01. 

82 

S3. 

C 

c 

c 

LT=7 

UR  I TEt  6.12)  L7  ( fl(  I >.  1*43,47  1,  fit  92),  At  93) 
L8=8 

WRITE!  8, 12  1 L8,(Ain, 1=98,599 
WRITE  (8,1011 
GO  TO  999 

PRINT  HEADED  ID 

APRL6 
APR  L6 
APRL6 
APRL6 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

89 

400 

URITEt  6,100) 

PRINT 

85. 

JLfiG  =~JLA6 

PRINT 

85. 

404 

1 F( N.EO  0 fiNO.n.EQ  0)  URITEt 6, 1 )1 D(  3 KLABLl, ITER, IPAGE, IOATE 

PRINT 

87. 

I F ( N.EQ  0 AND.n  EtJ.l)  URITEt 6, 1 >1 0(  3 1.LABL3, ITEH, I PAGE, IOATE 

PRINT 

88. 

IFtN.EQ.l  ANO.n.Ea.O)  URITEt 6, 11 >1 D( 3 >, LAB12, IPAGE, IDATE 

PRINT 

89. 

IFCN.EG  1 AND.  ft  E0.>)  URI TE( 6, 11  )I  D(  3 ),  LABL4, 1 PAGE,  ID  ATE 

PRINT 

90. 

L=2 

NOS 

91 

CALL  PAGEStL, IPAGE, I5KIP) 

APRL6 

92 

401 

1F( JLAG, GE.O > GO  TO  50 

PRINT 

50—i 

93 

IF(N  EO.O)  60  TO  150 

NOS 

150  — 

99. 

60  TO  151 

N05 

151- 

95. 

c 

PRINT 

96, 

c 

OUTPUT  HEADER  FORMAT  PRINT  REQUIRED 

PRINT 

97 

c 

PRINT 

. ' 

9 8. 

50 

IFC N E0-0>  GO  TO  51 

PRINT 

tr==\ 

99. 

0 

PRINT 

100 

c 

CHECK  FOR  SURPRESSED  ROWS 

PRINT 

101 

c 

PRINT 

102 

URITEt  6,£> 

PRINT 

103 

I Ft IPFLG1  EO  0)  URITEt  6,3) 

PRINT 

109 

I Ft IPFL62  EO.O)  URITE16.4) 

PRINT 

105 

1 Ft 1PFLG3  EO.O)  URITEt  6,5) 

PRINT 

106 

IFUPFLG4  EO.O)  URITE(6,&> 

PRINT 

107. 

URlTE(fc.lOl) 

PRINT 

108 

L=15 

NOS 

109. 

IF11PFL61  NE . 0 > L = L -1 

PRINT 

1 10. 

1F(  1PFLG2.NE.0)  L = L -2 

PRINT 

111. 

IF< IPFLG3.NE.0)  L = L ~Z 

PRINT 

112. 

I Ft IPFLG4.NE.0)  L = L -1 

PRINT 

113, 

CALL  PAGESt L, IP AGE, J SKIP ) 

NOS 

in 

GO  TO  151 

NOS 

151- 

115 

51 

WRITE! 6.2) 

PAINT 

m 

WRITE  (6,101) 

PR  INI 

UT 

L=  1 0 

APRt  6 

118 

CALL  PAGES! L, IP AGE. I SKIP ) 

APR  LA 

119 

GO  TO  150 

90S 

150 

120, 

ENTRY  PRORPA 

PRINT 

121. 

c 

PRINT 

122. 

c 

PRINT  ORBIT  PARAMETERS 

M I NT 

123. 

c 

PRINT 

129. 

L=5 

APRL6 

125. 

CALL  PA6ES(L, IPAGE, I$KlP> 

APRL6 

126 

WRITE! 6,4) 

PRINT 

1Z7. 

URITEt  6, 101 ) 

PRINT 

: 

128 

L10=10 

APRL6 

129 

Lll=ll 

APRL6 

130 

WRITEt 6, 12  ) L10,l  At  J }, 1=62,68 ) 

APRL6 

131 

Ufil  TE(  6,12)  L11,(A{  I >,1=69,75) 

APRLb 

132 

GO  TO  999 

PRINT 

133. 

c 

PRINT 

139 

c 

FIRST  PASS  LOGIC 

APRL6 

135 

c 

PRINT 

136.  " 

60 

CONTINUE 

PRINT 

137 

CALL  DATEl(fi0N,10AY,l  YEAR  1 

PO 14 

138 

iDATE  = IY£AfUIDAY»106+n0N»10000 

P014 

139, 

JLA6  = -1 

PRINT 

no 

IPAGE  = 0 

PRINT 

: 

HI 

L=0 

APRL5 

142, 

c 

APRL6 

143. 

c 

INITIATE  LINE  COUNT 

APRL6 

144, 

c 

APRL6 

145. 

CALL  FAGESCL, IPAGE, ISKIPJ 

APRL6 

146 

BO  TO  900 

PRINT 

400- 

If*?. 

c 

PRINT 
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1*8. 

m. 

150. 

151. 

152. 
153 
15*. 
155. 

156 

157 
158. 
158 . 
160. 
161. 
162. 
163. 
16*. 

165. 

166. 

167. 

168. 
168. 

170. 

171. 

172. 
173 
17*. 

175. 

176. 

177. 

178. 
178. 
180. 
181. 
182. 
183. 
18* 

185. 

186. 

187. 

188. 
. 188. 

180. 

191. 

192. 

193. 
19* 

195. 

196. 

197. 
198 
199. 
200 
201. 
202 
203. 
20*. 

205. 

206. 


HEADER  FORMAT 

1 FORMAT! 1H  , 5HCASE  ,13. TX.3A6, I3,20X, 6H  PA6E  . I3,50X, 5H0ATE  ,19  ) 

11  FORMATUH  , 5HCASE,  13, 7X,3 A6, 23X, 6H  PAGE  , I3,50X, 5HDATE  ,19) 

SHORT  HEADER  FORMAT  ROUS  i THRU  • 

2 F0RMAT13H  1 , llX.'tHTIME, 10X.8HALTITU0E, 6X, 12HREL  VELOCITY , HX, 

1 1HHREL  PATH  ANGLE, 7X, J1HHEL  AZIMUTH, 5X, 13HREL  LDNGI TUDE, 10X, 
28HLATITUDE/3H  2 ,IOX,BHARC  TIME  i2X,6HNEI &HT, 6X, 12HINR  VELOCITY 

3 MX , 1*H] NR  PATH  ANGLE, TX, 11HZNR  AZlMUTH,5X, 13HINR  LONGITUDE, 5X, 

*13HCR0SS  RNG( NM )/3H  3 ,8X,10HPHASE  TIME, 1*X, *HMASS, 

5*X, !*HI DEAL  VELOCITY, 

59X, 9HHEAT  LOAD, 9X, 9HHEAT  RATE, 9X,9HBANSEt NM ), 6X, 12HD0UN  RNG(NM)/ 
63H  * ,9X, 9HRE  NUMBER, 6X, 12HAMD  PRESSURE, 5x, 13HATM0S  0EN5ITY, 

77X, 1 1HSPEED  SOUND, 7X,  UHMACR  NUMBER, 6X, IOHlIFT  C0EFF.8X, 
810H0RA6  C0EFF/3H  5 , 13X, 5 HALF HA,  SX, IGHdANK  ANGLE, 6X, 

912HBLEND  FACTOR, 5X, 13HDYNAMI C PRESS, 7X, 1 1HAER0  MOMENT, i*X, *HLIFT, 
*i*X.*H0BAG/3H  6 , 12X, 6HTHRUST,91, 9HC0ST ATE  Y, 5X, 13HC0ST ATE  GAMM 

1A, 7X, 1 1 HC05T ATE  AZI , 7X, llHCOSTATE  ALT  * 7X, 1 1HC0ST ATE  LAT,6X, 
212HC0ST ATE  L0NG/3H  7 .eX^USPED  IMPULSE, 6X,  12HC0STATE  MASS, 
33X, 15HC0STATE  HEATI HG,5X, 13HC0STATE  VYYYY, 7X. 11HHAMI LTflNI AN 

4 5 X . 1 3HSTEER I NG  ELEV, 6X, 12H5TEERINS  AZI/3H  t 

* ,6X,12HG1M&AL  ANGLE, 9 X, 9HAX1 AL  ACC,8X, 10KN0RMAL  ACC,9X, 

59HT0TAL  ACC,9X,9HR£L  PITCH, 1 IX, 7HREL  YAH, 10X, 8HREL  ROLL) 

ROW  9 FORMAT 

3 FORMAT!  IH  ,2H  9,9X,9HDRAG  LOSS, 6X.12HGRAVITV  L0SS,8X, 

1 lOHftLPHA  L0SS,3X,15HBAC*  PRESS  LO&S , 9X, 9HI NR  PITCH, 1 1 X, 

27HINR  YAH, 10X,8HINR  ROLL) 

ROH  10  AND  11  FORMAT  (ORBIT  ELEMENTS) 

* FORMAT!  1H  ,2H10,5X, 13HSEMI  AXIS! NM>, 6X, 12HECCENTRI CITY, 7X, 

11 1H! NCLINAT ION, *X  1AHA5CENQING  NODE, 7X, 1 1HARG  PERIGEE,*!, 
21*HAP0GEE  RAO! Nfl),  3X, 15HPEAI GEE  RAD!  Nrt)/3M  11  ,6X, 

312HTRUE  ANOMALY,*!, 1*H  PERIOD!  MIN ),  12X,6HE«ER6Y , l6x, 

*BHMQMENTUH, 2X  16HSEMI  LAT  REC! NM),3X, 15HAP06EE  VELOCITY, 2X, 
516HPERISEE  VELOCITY) 

ROH  12  AND  13  FORMAT  (IIP) 

5 FORMAT! 3H  12  ,5X,13HIMP  TIME! MIN), 5X, 13HIMP  RANGE! NM >, MX, 

1 l*HAZIMUTH  TO  IMP,2*X, 12HIMP  VELOCITY, *X, 1*HIMP  PATH  AN§LE,6X, 
212HIMP  LATITUDE/ 3H  13  ,2X,16HTIME  TO  IMP(MIN),2X, 

316HRAN6E  TO  IMP!  NM), 55X,17HlMP  AZIMUTH  ANGLE, 5X, 13H1MP  LONGITUDE) 

ROH  1*  CARTESIAN  INERTIAL  COORDINATES 

6 FORMAT! 3H  1*  , 8X, 10NCART-X  INR, 8X, 10HCART-Y  INR,6X, 

UOHCART-Z  INR,23X,13HCART-XOOT  INR, 5X, 13HCART-YOOT  INR,5X, 
213HCART-ZD0T  INR) 

12  FORMAT! 1H  ,I2,7E18.7) 

15  FORMAT! 1H  , I2,3E16.7, 18X,3E16.T) 

16  FORMAT! 1H  . I2,2E18.7,5*X,2£18.7) 

100  FORMAT! 1H1) 

101  FORMAT! 1H0) 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

APRL6 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

APRL6 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

APRL6 

APRL6 

APRL6 

PRINT 

PRINT 

PRINT 


207. 

208. 


999  RETURN 
END 


PRINT 

PRINT 
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PRODUT 


tO  OCT  7^ 


i. 

SUBROUTINE  PRDOUTTA.B.C) 

PRODUT 

2. 

c 

. PRODUT 

3 

c 

3 By  3 RATfllX  PRODUCT  A*B  = C 

PRODUT 

c 

PRODUT 

5. 

DIMENSION  Am,  B<9),  C[9) 

PRODUT 

6. 

Ct  1)  = 

AC1)«BU)  ♦ A(  H)*B<  2 ) ♦ 

At  7 1*6(3) 

PRODUT 

7. 

C<2)  = 

A(2)*Bt  1)  + A(  5 )*Bt  2)  < 

► At  8 )*&(  3 > 

PRODUT 

8. 

CC  3 ) - 

A(  3 )*BC  1 ) + At  6>*BC  2 ) + 

A(9)*B(  3) 

PRODUT 

9. 

am  - 

At  1 )*B(  *i ) ♦ A(H)*B<5>  + 

At  7 )*&(&) 

PRODUT 

10. 

C(  5 > = 

AC2)*B(  H ) + At  5 )*B<  5 ) ♦ 

At  6 )*B(  6 ) 

PRODUT 

11. 

C(  t)  = 

At  3)*BtH)  + At  6)*B(  5 ) + 

At  9)*B(6) 

PRODUT 

12. 

C(  7)  = 

At  1 )*flt 7 1 ♦ A(<U*Bt8)  ♦ 

At  7 )*Bt  9 ) 

PROOUT 

13 

C(  8 ) - 

At  2 )*&(  7 ) ♦ At  5)*B<  8 ) + 

Am*Bt9> 

PRODUT 

\H. 

C(  9 ) = 

At  3 )*&(  7 ) + At  6 )*B<  8 ) ♦ 

At  9 )#&(  9 ) 

PRODUi 

15. 

RETURN 

PROOUT 

16. 

END 

PRODUT 

S.Ot-96 


SB 


SUBR0UT INE 
SPL I Z 


=4- 

«p 


FORTRAN 

svnaoL 


HATH 

symbol 


CODE 


DESCRIPTION 


5 1 0BAI',F  5 UBBflUT  I NT  USAGE 

Hi  0<  K L 0 1,  SUdH  I Jilt  VAR 


LOCF 


LOCI 


LOCL 


NT 


X 


y 


z 


i 


i 


n 


I 


l 


i 


i 


A 50  cord  array  that  correipond*  to  tables  1 

thru 

/TABLE  /< 

15  01  1 

SPL1C0 

n 

LOCF 

50.  Each  entry  Is  an  Integer  that  points  to 

the 

SPLICO 

pi 

z 

last  value  of  the  Independent  variable  of  the 

SPLIZ 

1 

LOCF 

cor  r e spo  nd I ng  table 

SPL1Z 

I 

z 

SPLYNE 

i 

LOCF 

SPLYNE 

I 

z 

THRUP 

0 

1 

A 50  oord  array  that  corresponds  to  tables  1 

thru 

/TABLE  H 

1 1 

SP  LI  CO 

PI 

LOCI 

50  Each  entry  Is  an  integer  that  points  to 

the 

SPLICO 

Pl 

X 

initial  value  ot  the  independent  variable  of 

the 

SPLIZ 

I 

LOCI 

corresponding  table  A zero  entry  indicates 

table 

SPLIZ 

I 

X 

not  i nput 

SPLYNE 

I 

LOCI 

SPLYNE 

I 

X 

THRUP 

1 

LOCI 

THRUP 

0 

X 

A 50  cord  array  that  corresponds  to  tables  X 

thru 

/TABLE  H 

701  1 

SPLICO 

0 

LOCL 

50  Each  entry  is  an  integer  that  indicates 

the 

SPLICO 

PI 

Y 

last  interval  In  which  interpolation  of  the 

SPLIZ 

PI 

LOCL 

corresponding  table  oecured. 

SPLJZ 

I 

Y 

SPLYNE 

PI 

LOCL 

SPLYNE 

I 

Y 

THRUP 

0 

V 

Largest  uni  variant  table  number  In  this  case. 

/SLOBAL/C 

66) 

SPLICO 

PI 

NT 

SPLIZ 

I 

NT 

SPLYNE 

I 

NT 

A 50  nord  array  that  corresponds  to  tables  1 

thru 

/TABLE  /( 

1 > 

SPLi CO 

ra 

LOCI 

50.  Each  entry  is  on  integer  that  paints  to 

the 

SPL]  CO 

PI 

X 

initial  value  of  the  independent  variable  of 

the 

SPLIZ 

I 

LOCI 

corresponding  table.  'A'  zero  entry  indicates 

table 

SPLIZ 

1 

X 

not  input. 

SPLYNE 

1 

LOCI 

SPLYNE 

I 

X 

THRUP 

I 

LOCI 

THRUP 

0 

X 

A 50  cord  array  that  corresponds  to  tables  1 

t hr  u 

/TABLE  /< 

701  ) 

SPLICO 

0 

LOCL 

50.  Each  entry  is  an  integer  that  Indicates 

the 

SPLICO 

PI 

Y 

last  interval  in  whi ch  j nterpo I at i o n of  the 

SPLIZ 

PI 

LOCL 

corresponding  table  occur ed. 

SPLIZ 

1 

Y 

5PLYNE 

N 

LOCL 

SPLYNE 

I 

Y 

THRUP 

0 

V 

A 50  oord  array  that  corresponds  to  tables  1 

thru 

/TABLE  /( 

1 HOI  > 

SPLI  CO 

PI 

LOCF 

50.  .Each  entry  is  an  integer  that  points  to 

the 

SPLICO 

Pi 

Z 

last  value  of  the  Independent  variable  of  the 

SPLIZ 

I 

LOCF 

corresponding  table. 

SPLIZ 

I 

Z 

SPLYNE 

I 

LOCF 

SPLYNE 

I 

Z 

THRUP 

0 

z 

30  OCT.  72  G. 01-16 


UV  * 
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SPLJZ 


1. 

2. 
3. 
9. 
5. 
6 

7 

8. 
9. 
iO. 
11 
12 
13  * 


23. 

29 


25. 

26. 
27. 


26. 

29 

30. 

31. 

32. 


33 

39. 


35. 


37 

36 


9 1. 

92. 

93. 
99. 
95 

96. 

97. 

98 

99 
50 


51. 

52. 


53 


57. 


58. 

59. 

60. 
61. 
62. 
63. 
69. 

65. 

66. 

67. 

68. 

69, 


SUBROUTINE  SPLIZ* IT.T.F.OFOX ) 

COn*0N  /TABLE/  TABLE* 2100)  /GLOBAL/  6*66) 
dimension  my,  vcn,  zm,  Locim,  loclui,  locfuj 

EQUIVALENCE  ( Z(  TABLE),  ( Y TABLE* 701)),  * Z,  TABLE!  1901 )), 

1*  LOCI , X),  (LOCL,  V),  *LGCF,  Z),  < NT,  6(66)) 

DATA  S I XTH/ l 715>252525252525253B/ 

DATA  SPLINT  /6HSPLINE/ 

10  FQRRAK  1H0,  22HTHE  TABLE  NO.  IN  IOC.  06  17H  IS  OUT  OF  RANGE.  > 

20  FORflATUHO,  2ZHTHE  TABLE  NO.  IN  LOC.  06  20H  HAS  NOT  BEEN  INPUT.) 
IFCIT  .LE.  NT)  80  TO  30 
ITLOC  s XLQCF*  IT) 

WRITE* 6.10)  ITLOC 
CALL  STPIT  (6) 


30  IF* IT  .LE.  0>  SO  TO  90 
II  = LOCI* IT) 

IF* II  .ST.  0)  SO  TO  50 
ITLOC  = XLOCFt IT ) 
WRITE* 6.20)  ITLOC 
CALL  STPIT  *6) 


90  F = 0. 
OFDX  = 0. 
RETURN 


SPLIZ 

SPLIZ 

SPLIZ 

SPLIZ 

SPLIZ 

SPLIZ 

SPLIZ 

SPLIZ 

SPLIZ 

SPLIZ 

SPLIZ 

SPLIZ 

SPLIZ 


SPLIZ 

SPLIZ 

SPLIZ 

SPLIZ 

SPLIZ 

SPLIZ 


SPLI2 

SPLIZ 

SPLIZ 


50  IF  = LOCFC IT  ) 

IF* IF  - II  - I)  60,70,80 


SPLIZ 

SPLIZ 


SPLIZ 

SPLIZ 

SPLIZ 


60  F s YCII) 
DFDX  - o. 
RETURN 


10  Yl  = Y* II ) SPLIZ 

Xi  = X*II)  5PLIZ 

QFDX=(Y(IF>  - Yl  )/<  X*  IF ) - XI)  SPLIZ 

F s Yl  ♦ (T  - XI  )*DFDX  SPLIZ 

RETURN  SPLIZ 


80  IF*  T .GT.  XtllH  GO  TO  90  SPLIZ 

Yl  = Y*1I)  SPLIZ 

XI  = X*II)  SPJ  1Z 

IIP1  = II  ♦ l SPLIZ 

DEL  = X*IIP1)  * XI  SPLIZ 

OFDX=(  Y(  I IP  1 ) - YD/OEL  - SIXTH*D£L*Z<  IIP1 ) SPLIZ 

F - Yl  + *T  - XI  )*DFOX  SPLIZ 

RETURN  SPLIZ 


90  1F( T .LT.  X* IF))  GO  TO  100 
IFrtl  = IF  - 1 
¥1  - Y< IF  > 

XI  = XUfl 

DEL  = XI  * XCIFN1) 

DFBX=*Y1  - YC  IFNI  ) )/DEL+  $IXTH*Z<  IFfll  >*QEL 

F = Yl  + *T  - X1W0FDX 

RETURN 


SPLIZ 
SPLIZ 
SPLIZ 
S^LIZ 
SPLIZ 
SPt  I 7 
SPLIZ 


100  IL  = LOCL* IT ) SPLIZ 

IF(T  ~ X(  I L ) ) 110,150,120 SPL[Z_ 


110  IL  s il  - 1 SPLIZ 

1F<T  - X<  IL))  110,190,190 SPLIZ 

120  IS  = m 1 SPLIZ 

DO  130  I = IS,  IF  SPLIZ 

IF*  T - X*I  ) .LT.  0.)  GO  TO  190  SPMZ 

130  IL  a 1 SPulZ 


no  tocCcm  - il  spliz 


150  ILPl  = IL  + 1 SPLIZ 

DX1  = T - X* IL)  SPLIZ 

0X2  = X*  ILPl  ) - T SPLIZ 

Yl  = Y(I L)  SPLIZ 

Y2  - YCILP1)  5PL12 

Z1  » Z* IL)  SPLIZ 

Z2  = Z*  I LP 1 ) 5PLJZ 

DEL  = OXi  + 0X2  SPLIZ 

TEHpl=  Z2«DX1  + 21*0X2  SPLIZ 

TEMP2  = S I XTH*DEL  SPLIZ 

F =•  *(Y2*0X1  * Y1*DX2>  ♦ SIXTH**  Z2*DX1**3  ♦ Zl*0X2**3 > l/OEL  SPLIZ 

1 - TEf)P2»TEHPl  SPLIZ 


50n 


i 


20  OCT  72  6.01-96 
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% b 


70. 

DFDX  = UV2  - VI)  ♦ 

,5»< Z2»0X]**2  - n*0XZ»*2))/0EL  -TE«P2»<  Z2-Z1)  SPLIZ 

71. 

RETURN 

SPLIZ 

72. 

END 

SPLIZ 

20  OCT  J2  6.01-00 
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SUBR0UT INE 
TAB  IN 


30 


bUBHOUTlH.ii  TAbllii  SfflCI  PICATiOkS 

j . I'lX-.wip'noi^ 

■ 'urpose : 

Inputs  a new  ease  of  data  or  inputs  data  for  a different  part  ease  of  the 
current  ease. 

Comments : 

1|,miu  subroutine  as  to  be  a library  subroutine. 

lor  other  inCori6.il  ion  on  this  subroutine  see  also  the  General  Programing 
"inual  (AG1  ) punished  by  M)AC  for  professional  programmers  and  also 
system  bulletin,  feries  1108-10,  dated  P8  Oct.  3968. 

l 'sc : 

railing  sequence  is  CAM.  TABI’J  (A,  I,  0,  J , T,  k,  -1,  IFC,  hUCASE,  XE0D) 
where 


\ is  a one-dimensional  array  allotted  for  the  storage  of  alphanumeric 

information.  Blanks  will  he  placed  m this  array  ref ore  the  data 
are  input. 

L is  an  integer  constant  or  variable  whose  value  is  si-e 

of  the  array  A. 

u i s a one-dimensional  array  allotted  for  the  storage  of  fable  <"  data. 

'Zeros  will  be  placed  in  tins  array  ucloie  l he  1 vta  are  input. 

-1  is  an  integer  constant  or  variable  vhose  value  ti.  1 ) *-:,e  si  -e  °* 

the  array  h. 

T is  n one-dimensional  array  allotted  for  the  storage  oi  the  table 

o!  tallies  and  Ice  table  data,  ‘.eros  will  tie  placed  in  this  array 
bo i ore  the  daua  are  input. 

U is  an  integer  constant  or  variable  whose  value  (_  l)  is  the  siie  of 

the  array  T. 

M is  a one-ditnensional  array  whiclt  contains  four  locations,  'file  basic 

deck  number  will  be  stored  in  P(l),  the  reference  run  number  in 
M{ P ) , l he  case  number  in  I-i(i),  and  the  part  case  number  m i-(M* 
Initially,  this  array  must  contain  r.eros.  Once  TABU1  has  been 
cnl  led,  Lius  nrrny  must  not  be  changed  or  /.et’oed  out. 

(I‘(‘  is  an  integer  euristuiil  or  variable  whose  value  ir.  I In*  j»*i r i.  < •nn 

n umbel  rr  r|iie:;U:d  . 


TAbllJ  i 


to 


HUCASK  is  an  integer  constant  or  variable  whose  value  is  zero  if  the  cur- 
rent ease  is  to  be  used,  one  if  a new  ease  is  requested. 

T 1*101)  is  an  integer  variable  whose  value  will  be  set  to  plus  one  if  there 
is  no  more  data,  and  minus  one  if  the  part  case  requested  was  net 
input;  otherwise,  xt  is  set  to  zero. 

input : 

TAB!  It  reads  tape  J*TA?E,  which  is  set  to  ennal  rOF.TP.AI;  logical  tape  1. 


The  format  of  KTAPF  is  as  follows: 

Record  n.  basic  deck  number 

n=! , 3,5, ,k  Reference  run  number 

Case  number 
•■'art  case  number 

Number  of  words  of  alphanumeric  information 
Number  of  words  in  Table  0 

Humber  of  words  xn  tables  other  than  Table  0 
(including  table  of  tables) 

Record  n+1.  Alphanumeric  information 
o-l  , R , 5 , . . * »k  'fable  0 data 

‘fable  data  other  than  Table  0 (including  table  of  tacles; 

Record  k+£?  Basic  deck  number  = 9999 

Six  additional  words , corresponding  to  tne  format  of  record 


End  of  file. 


Error  Rotes 


"lib  = xxx,  u?  = x-,  cafe  = xxx,  rv  = x\ 

AliI,''ANlJJ'I,.i:i  l'  ARRAY  LIRE  TOO  SIIAt.I.  = XX,  \\,  rijX’L-SJSARY  SIZE  = aaXXX 
IOCU'IITICr  TI‘.Ri!l  t.A'i'KD  BY  TAHIR  . " 

"HP  = XXX,  HR  = XX,  CASE  = XXX,  PC  = Aa 

ARRAY  FOR  TABU!  0 TOO  SHALL  = XXXXX,  iLHGESSAHY  SIZE  = XXXXX 
EXECUTION  TERMINATED  BY  TABIw 


”BD  = XXx , RR  = XX,  CASE  = XXX,  PC  = AX 

ARRAY  FOR  TABLES  TOO  SHALL  = XXXXX , NECESSARY  SIZE  = XXXXX 
EXECUTION  TilRklxAYiB  BY  TABIl ." 


Definition  of  Symbols: 

A is  a one- dimensional  array  allot ed  for  the  storage  of  alphanumeric 

information. 

BliAih  > a word  containing  HOD  blunts. 


77  )r 


<c~ 


\ L7UB.R7 


o 

vr 


1*  is  a one-dimensional  array  allotted  for  the  storage  of  Table  D 

uata. 

DATA  is  temporary  storage. 

L is  an  integer  constant  or  variable  whose  value  is  the  size  of 

array  A. 

1BD  is  the  previous  basic  deck  number, 
ilibl  is  the  basic  deck  number  from  tape, 
lid'  is  the  previous  case  number. 

JOfSl  is  the  case  number  from  tape. 

1K0D  is  an  integer  variable  whose  value  will  be  set  to  +1  if  there  is 
no  more  data,  and  -1  if  the  part  case  requested  was  not  input; 
otherwise  it  is  set  to  0. 

I PC  is  the  part  case  number  requested. 

I PCI  is  the  part  case  number  from  tape. 

IRb  is  the  previous  reference  run  number. 

IKH1  is  the  reference  run  number  from  tape. 

«!  is  an  integer  variable  whose  value  is  the  size  of  array  P. 

sc  is  an  integer  variable  whose  value  is  the  size  of  array  '! » 

i.  is  used  as  in  index. 

M is  a one-dimensional  array  which  contains  four  locations.  The 

basic  deck  number  is  in  ?l(l),  the  reference  run  number  is  in 
K(f“),  the  case  number  is  m M(3),  and  the  part  case  number  is 

in  M(Jt). 

RALPbA  is  tiie  number  of  words  of  alphanumeric  information. 

it'J'AB  is  the  number  of  words  m tables  other  than  Table  0 (including 

table  of  tables). 

WTAHO  is  the  number  of  words  in  Table  0. 

MTAJb : is  the  tape  from  which  data  arc  read. 

is  O jf  t,he  current  case  is  to  be  used,  I if  u new  case  is 
i cij ues ted  .' 
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tARI  t'J  *-  5* 


V 


is  a one-dimensional  array  allotted  for  the  storage  of  the  table 
of  tubles  and  the  table  data. 


7~  C>  '/  * 4 


m 


OLOMARY  fOA  SU6»0UT1»*  TABIK 


1/Btm 


*0*  THAU 

MATH 

coot 

DESCRIPTION 

COMMON 

vroftAo* 

SU&AOUT1MS  U5A01 

*YX*OL 

SYMBOL 

SYMBOL 

BLOCK 

L^C 

SUBR 

CODS  VAR 

A 

<A> 

0 

0*E  DIMENSIONAL  array  ALLOTTED  FOR 
THE  STORAGE  OF  ALPHANUMERIC 
INFORMATION.  (DIMENSIONLESS) 

A 

/TAB IH 

/<* 

1 

TABIK 

0 

A 

BLANK 

<5LANK> 

c 

WORKING  VARIABLE.  (DIMENSIONLESS) 

BLANK 

/TAB  IN 

/«* 

> 

TABIK 

c 

■LANK 

B 

<D> 

0 

A VARIABLE  LENGTH  ARRAY  ALLOCATED 
FOR  THE  STORAOE  OF  TABLE  0 (I.B.  THE 
A ARRAY)  DATA. 

D 

/TAB  IK 

/ C • 

> 

TABIK 

0 

D 

I 

<l> 

H 

THE  SIZE  OF  THE  A ARRAY. 

I 

/TAB  IN 

ft* 

) 

TABIK 

n 

1 

ISO 

<I5D> 

u 

THE  CURRENT  BASIC  DECK  NUMBER 

ibd 

/TAB  IK 

ft* 

) 

TABIK 

u 

ISO 

tint 

I 

THE  PREVIOUS  BASIC  DECK  NUMBER 

IBDl 

/TAB  IN 

ft* 

) 

TAB  IK 

I 

IBDt 

!Cf 

<ICS> 

V 

THE  CURRENT  CASE  HUMBER 

ICS 

/TAB  IN 

ft* 

) 

TABIK 

u 

TCS 

IC81 

<lC5t> 

1 

THE  PREVIOUS  CASS  NUMBER 

ICS) 

/TAB1N 

ft* 

) 

TABIK 

I 

test 

IS 

<1  D> 

V 

ARRAY ( 7 ) CASE  IDENTIF IC ATJOH  AND 

DATA  SIZE  INFORMATION  (1  E.  BASIC 

DECK.  REFERENCE  RUM.  CASE.  PART 
CASE,  N ALPHA,  NTAB,  AND  NTA88J 

ID 

/TAB  IN 

ft* 

) 

TA9IH 

w 

ID 

IBOD 

<\zm 

0 

THE  DATA  STATUS  FLAO . 

* i if  there  is  no  more  data 

* -i  ir  the  requested  fart  Cass 

WAS  NOT  INPUT 

* 0 OTHERWISE 

IBOD 

/TAB1H 

/ t* 

> 

TABIK 

0 

IBOD 

IPC 

<1 PD 

1 

THE  PART  CASK  NUMBER  OF  THE  DATA 
REQUESTED. 

IPC 

/TAB1N 

ft* 

> 

TABIK 

1 

IPC 

ipct 

<1  PCD 

V 

ARRAY (22)  IT  CONTAINS  THE  PART 

CASE  NUMBERS  IN  THE  SEQUENCE  IK 
WHICH  THEY  ARE  PROCESSED  FOR  BACH 
CASK. 

IPCT 

/TAB IK 

/<* 

> 

TABTH 

u 

IPCT 

IPCI 

<1PC  l> 

1 

THE  PREVIOUS  PART  CASS  NUNB8R 

IPCI 

/TAB  IK 

ft* 

> 

TABIK 

I 

IPCI 

1PPHTR 

<JPPNTR> 

tl 

A POINTER  IH  THE  IPCT  ARRAY  USED  TO 
PROCESS  THE  PROPER  PART  EACH  FOR 
EACH  CASB • 

IPPNTR 

/TAB  IK 

/(* 

I 

TABIK 

w 

IPPMTB 

IU 

<!  RP> 

V 

THE  CURRENT  REFERENCE  RUN  NUMBER 

1RR 

/TABIK 

/t* 

) 

TA11H 

w 

IBB 

IRB1 

<lRRt> 

I 

THE  PREVIOUS  REFERENCE  RUN  NUMBER 

IRRl 

/TABTH 

/f  * 

> 

TABIK 

1 

IRM 

3 

<J> 

1 

THE  SIZE  OF  THE  D ARRAY. 

J 

/TABIK 

/(* 

> 

TABIK 

1 

J 

K 

OO 

1 

THE  SIZE  OF  THE  T ARRAY. 

K 

/TABIK 

/<* 

> 

TABIK 

1 

K 

L 

V 

NO  DESCRIPTION  AVAILABLE 

L 

/TA8IM 

/<* 

) 

TABIK 

u 

L 

LASTAB 

<LA5TAB> 

0 

LARGEST  TABLE  NUMBER  IHPUT  FOR  A 
Q1VPN  CASE.  ( DIHENS1 ON LESS  I 

LASTAB 

/LASTAB/*  1> 

TABIK 

0 

LASTAB 

7///V- 


FORTRAN 

SYMBOL 


HATH 

SYMBOL 


CODS 


DESCRIPTION 


COMMON  STOAAOF 

SYMBOL  BLOCK  LCC 


SUPSPUTtNE  V<AQR 
SUER  CCOE  V A A 


LNTBTt  <LNT&T&>  1 THE  LENGTH  OF  THE  TABLE  OP  TABLES  LNTBtB  /TABIM  /[*  ) TAB  1 H I LNTBTB 

SEE  THE  DEFINITION  OF  TABLE  FOR  MORI 
DETAILED  INFORMATION. 


N 

<M> 

M 

ARRAY < 4 > . THE  CASE  IOENTIP1CATION 
DATA.  (BASIC  DECK,  REFERENCE  RUN, 
CASE,  AND  PART  CASK  NUMBERS ] 

K 

/TAB  IN 

/{* 

i 

TABIN 

M 

ft 

MAXPCT 

(MAXPCT) 

c 

THE  MAXIMUM  NUMBER  OF  PART  CASES 
THAT  MAY  8S  INPUT  PER  CASE 

MAXPCT 

/TAB  IN 

/<* 

TABIM 

C 

MAXFCt 

HSWTCH 

<M5WTCH> 

H 

i 

WORKING  FLAG  USED  TO  TRANSFER  TO  THE 
CORRBCT  ADDRESS. 

HSWTCH 

/tab  in 

/<* 

> 

TABIN 

W 

HSWTCH 

HALFHA 

(NAIPHA) 

I 

THE  NUMBER  OP  WORDS  OP  ALPHANUMERIC 
INFORMATION. 

NALFHA 

/TABIN 

/(* 

) 

TABIN 

I 

NALFHA 

NTAB 

(NTAB) 

I 

THE  NUMBER  OP  WORDS  IN  ALL  TABLES 
OTHER  THAN  TABLE  0 U.B.  THE  A 
ARRAY) ♦ 

NTAB 

/TAB  IN 

/c* 

i 

TABIN 

I 

HTA1 

NTABO 

(NTABO) 

I 

THE  HUMBER  OP  WORDS  IN  TABLE  0. 

NTABO 

/TABIM 

/<♦ 

i 

TABIN 

I 

NTABO 

NTAPB 

A 

<NTAPD 

c 

THE  FORTRAN  LOGICAL  PILE  ON  WHICH 
THE  INPUT  DATA  IS  WRITTEN. 

NTAPB 

/TABIN 

/(* 

> 

TABIM 

C 

NTAPB 

MOLISE 

(NUCA5D 

1 

THE  NEW  CASE  PLAO. 

* 0 IP  THE  PRESENT  CASS  IS 

NUCASS 

/TA8IN 

/r* 

> 

TABIN 

I 

MUCA3V 

REQUESTED 

A 1 IF  A NEW  CASE  IS  REQUESTED 


T 

<T> 

M 

A VARIABLE  LENGTH  ARRAY  ALLOCATED 
FOR  THE  STORAGE  OP  TABLE  DATA. 

T 

/TABIN 

/<* 

> 

TABIN 

N 

T 

TABIM 

E 

CASE  OR  PART  CASE  DATA  INPUT 

TABIN 

/tabtn 

/« 

> 

FASSI 

S 

TABIN 

ROUTINE. 

TABIN 

S 

TABIN 

rBTBLH 

(TBTBLN) 

0 

THE  FLOATING  POINT  VALUE  (REAL)  OP 
LNTBTB. 

TBTBLN 

/TABIN 

/t* 

) 

TABIN 

0 

TBTBLN 

UNUSED 

(UNUSED) 

0 

STORAGE  ALLOCATED  TO  READ  IM  UNUSED 

UNUSED 

/TABIN 

n a 

) 

TABIN 

0 

UNU5BD 

DATA  (E.G . FOR  BYPASSING  A PART  CASE 
OF  DATA  J 


S-'J''  - b 


9G 


2.  FLOW  DIAGRAM  AND  EQUATIONS  IN  ORDER  Or  SOLUTION 
2,1  FLOW  DIAGRAM 


n n n 


"V- 


I ABlN 


1 

2 

3. 

9 

5. 

6. 
?. 
8 

9. 

10. 

11. 

12. 

13 

14 
15. 
16 

17. 

18. 

19. 

20. 
21. 
22 
23. 
29. 

25. 

26. 
27. 
2fl. 

29. 

30. 

31. 
32t 
33. 
39. 

35. 

36. 
37 

38. 

39. 
90 
91. 
92 


93. 

99 


SUBROUTINE  TABIN  (A, I , D, J ,7 _K,M, IPC,«UCA$E,IEOQ) 

FORTRAN  IV  VARIABLE  LENGTH  TABLE  INPUT  EDITOR 

THIS  SUBROUTINE  RUST  BE  CALLED  TO  INPUT  A NEW  CASE  OF  DATA.  OR  TO 
INPUT  DATA  FOR  A DIFFERENT  PART  CASE  OF  THE  CURRENT  CASE. 


CALL! NS  SEQUENCE. . . 
WHERE  A 


..CALL  TABIN  ( A I D_ J,T,K.M_IPC,MUCASE, IEQD > 


11,6....  ..1.1LU  I "UI1  ii,nab"JL.icuu» 

IS  A ONE  OIAENSIONAl  AnRAY  ALLOTTED  FOR  THE  STORAGE 
OF  ALPHANUMERIC  INFORMATION. 

I IS  AN  INTEGER  CONSTANT  OR  VARIABLE  WHOSE  VALUE  IS  THE 

SIZE  OF  THE  ARRAY  A. 

0 IS  A ONE  DIMENSIONAL  ARRAY  ALLOTTED  FOR  THE  STORAGE 

□F  TABLE  0 DATA. 

J IS  AN  INTEGER  CONSTANT  OR  VARIABLE  WHOSE  VALUE  IS  THE 

SIZE  OF  ARRAY  D. 

T IS  A ONE  DIMENSIONAL  ARRAY  ALLOTTED  FOR  THE  STORAGE 

OF  THE  TABLE  3F  TABLES  AND  THE  TABLE  DATA. 

X IS  AN  INTEGER  CONSTANT  OR  VARIABLE  wHGSE  VALUE  IS  THE 

SIZE  OF  ARRAY  T. 

M IS  A ONE  DIMENSIONAL  ARRAY  WHICH  CONTAINS  FOUR 

LOCATIONS.  THE  BASIC  DEC*  NUMBER  WILL  BE  STORED  IN 
MU),  THE  REFERENCE  RJN  NUMBER  IN  H121,  THE  CASE 
NUMBER  IN  Ml  3),  AND  THE  PART  CASE  NUMBER  IN  *»>. 

IPC  15  AN  INTEGER  CONSTANT  OR  VARIABLE  WHOSE  VALUE  IS  THE 
PART  CASE  NUMBER  REQUESTED. 

NUCASE  IS  AN  INTESER  CONSTANT  OR  VARIABLE  WHOSE  VALUE  15 

ZERO  IF  THE  CURRENT  CASE  IS  TO  BE  USED.  ONE  IF  A NEW 
CASE  IS  REQUESTED. 

I £00  IS  AM  INTESER  VARIABLE  WHOSE  VALUE  WILL  BE  SET  TO 

PLUS  ONE  IF  THERE  IS  NO  MORE  DATA  MINUS  ONE  IF  THE 
PART  CASE  REQUESTED  WA$  NOT  INPUT,  ZERO  OTHERWISE. 

DIMENSION  A(  | >,D(  J ),T(  K),m  4 > 

* t IPCTC33),  10(7) 

COMMON  /LASTAB/  LASTAB 

f , 1PCT  , IPPNTB  , NT APE  .HAXPCT  , BLANK 

EQUIVALENCE  UBD1,ID<  1 >1,1  IRR1, 10(21),  C IC51,ID(  3 ) 1,  (IPC1,ID(9>) 
1 , ( NALPHA,  1 D(  5 ) >f  (NTABO,  10(61),  t NTAB,  I DC  7)1  , < LNTBTB,  T BTBLH  ) 

IBD=M{  1 > 

IRft=M<2) 

ICS=M<3) 

IF  (NUCASE)  a0.iD.80 


TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

AAA 

TABIN 

10 

TABIN 

TABIN 

TABIN 

TA&IM 

TABIN 

TABIN 


10  IF  (1PPNTR  . EO . 0)  GO  TO  80 

IF  UPC  .ST.  IPCT(  IPPNTR  >>  SO  TO  150 


95  20  IPPNTR  = 1 PPWTR-1 

96  IF  (IPPNTR  .LT.  0)  GO  TO  180 

97  BACKSPACE  NT APE 

48  BACKSPACE  NTAPE 

99. IP  UPCTUPPHTR+1  )-lPC>  IBP, 150,20 


1C— *80- 


TAB1N 

TABIN 


TABIN 

TABIN 

TABIN 

TAOIN 

TABIN 


3 


1 BO 


180 


50. 

30 

If  U LT.NAlPHA)  GO  TO  200 

TABIN 

51. 

IF  (J  LT.NTABO)  GO  TO  220 

TABIN 

52. 

IP  ^ K. LT.NTAB ) 6D  TO  240 

TABIN 

53. 

DO  90  L-1,I 

TABIN 

59. 

90 

At L )=BLANK 

TABIM 

55. 

00  50  L~1,J 

TABIN 

56. 

50 

0(L>=fl. 

TABIN 

57. 

DO  60  L=l,K 

TABIN 

58. 

60 

TCL)=0. 

TAOIN 

59. 

READ  (NTAPE)  ( At L),L=1,MALPHA),( D(L),L=1,NTAB0),(T{ L), L=l, NTAB  ) 

TABIN 

60. 

M( 1 J-IBDl 

TABIN 

61p 

M( 2 )sfRRl 

TABIN 

62. 

M( 3 >=ICS1 

TABIN 

63. 

M(9)=IPC1 

TABIN 

64. 

TBT8LA  = T(l) 

TABIN 

65 

LASTAB  - NTAB-LNTBTB+1 

TABIN 

66. 

IEOD  = 0 

TABIN 

67. 

70 

RETURN 

TABIN 

68. 

C 

TABIN 

69 

C 

FIND  NEXT  CASE 

TABIN 

70. 

C 

TABIN 

71 

SO 

JPPNTP  = 0 

TABIN 

72. 

ASSIGN  90  TO  ASUTCH 

TABIN 

73. 

GO  TO  170 

' TABIN 

200— 


220 


290-1 


i 
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99 


r- 


74.  90  IF  (1801  .ME.  9999)  GO  TO  110 

75  100  1E0D=1 

76  RETURN 


1 7 

70. 

79. 

80 

61 


82 

83. 

84 


85. 

86 


67. 

88 


89 

90 

91 

92. 

93. 
94 


95. 

96 

97 

98 

99 

1100 


101. 

102 

103 


104. 

105 

106. 


107 

108 

109, 

110. 


111 

112 


113, 

114. 


115 

116. 


117 

118 


119 

120 


121 

122 


123 

124 


125 


126 

127. 


11C 


IF  (1CS1  .WE 
IF  ( IRfil  .NE. 
IF  ( 1 BD1  .WE. 
READ  ( HTAPE  > 
GO  TO  80 


ICS)  60  TO  120 
1RR)  GO  TO  120 
160)  GO  TO  120 
UNUSED 


120  I BD-lBOl 
IRH=IRR1 
ICS=1CSI 


130  IF  < 1PC-1PC1  ) 190,30,140 


140  READ  ( NTAPE  ) UNUSED 


150  ASSIGN  160  JO  MSUTCH 
GO  TO  170 


160  IF  (1601  .EQ  9999)  GO  TO  190 
IF  (1BD.NE  I BD1  ) 60  TO  190 
IF  ( IfiR.NE  IRRl  ) 60  TO  190 
IF  ( ICS .WE. ICS l > GO  TQ  190 

GO  TO  130 


IPPNTR  = IPPNTR+1 

IF  (IPPNTR  6T  MAXPCT)  GO  TO  260 
READ  ( NT  APE ) ID 

IF(IPCT< IPPNTR)  ST  1PC  AND.NUCASE.EQ .0)  60  TO  175 
1 PCI ( IPPNTR  > = IPC1 

GO  TO  nSUTCH,  (90,160) 


175  READ  (NT APE) 
60  TO  A5MTCH 


180  N(4)=999 
IE0D=-1 
RETURN 


190  N(  1 )=I60 
2 )-IRR 
HC3)=ICS 
GO  TQ  180 


200  ASSIGN  210  TO  M5U 
GO  TO  290 


210  URITE  (6,300)  I , NALPHA 
GO  TO  280 


220  ASSIGN  230  TO  MSW 
60  TO  290 


230  WRITE  (6.310)  J,  NT  ABO 
60  TO  280 


240  ASSIGN  25Q  TO  MSU 
GO  TO  290 


250  WRITE  < 6,320)  K,  (ft  AB 
60  TO  280 


260  ASSIGN  270  TO  MSW 
GO  TO  290 


270  WRITE  (6,340)  MAXPCT 


280  URITE  (6,350) 
STOP 


TA6IN 

TA8IN 

TAB1N 


TABIN 

TABIN 

TABIN 

TABIN 

TABIN 


fTSc^ 

120- 

120- 


TABIN 

TABIN 

TABIN 


TABIN 


TABIN 


TABIN 

TABIN 


TABIN 

TABIN 

TABIN 

TABIN 

TABIN 

TABIN 


TABIN 

TABIN 

TABIN 

SEP18 

TABIN 

TABIH 


SEP18 
SEP  1 8 
TABIN 


TABIN 

TABIN 

TABIN 


TABIN 

TABIN 

TABIN 

TABIN 


TABIN 

TABIN 


TABIN 

TABIN 


TABIN 

TABIN 


TABIN 

TABIN 


TABIN 

TABIN 


TABIN 

TABIN 


TABIN 

TABIN 


TABIN 


TABIN 

TABIN 


128  290  URITE  (6,330)  < I D( 1 ), 1=1,4 ) TABIN 

129  GO  TO  MSW,  (210,230,250,270)  TABIN 

130  300  FORMAT  ()H  34HALPH  ANliPlfcRl  C ARRAY  SUE  TOO  SMALL=1  5 . 1 7H,  NECESSARY  TABIH 

131.  1 S1Z£=1 5 1 TABIN 

132  310  FORMAT  ( 1H  .28HARRAY  FOR  TABLE  0 TOO  $MALL=I 5, 1 7H.  NECESSARY  SIZE®  TABIN 

133  115)  TABIN 

134  320  FORMAT  < IK  , 27HARRAY  FOR  TABLES  TOO  SriALL=I5, 17H,  NECESSARY  SIZE=  TABIN 

135  115)  TABIN 

136.  330  FORMAT  ( 1H1, 3HB0=I  3, 5H,  RR=I2,7H,  CASEM3.5H,  PC=12)  TABIN 

137  340  FORMAT  (10H  RDRE  THAN,I4,1CH  PC'S/CASE)  TABIN 

138  350  FORMAT  ( 1 HO, 30HEXECUT lON  TERMINATED  BY  TABIN.)  TABIN 


1"nr=r 


80  J 


13C- 


IG-ilSD-t 


*190- 

190- 

19G- 

190- 


175—n 

. lu 


96- 


280- 


1 29  G- 


280- 


Lc- 

290  — 

r~i  i 


2 7C — * 


250~*?30 — *Z10- 
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END 


ta&im 
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Subroutine  WTDRP 


Purpose 

Subroutine  WTDRP  calculates  the  weight  dropped  at  booster  staging  in  the 
rubber- stage  optimization  problem.  It  also  calculates  the  sensitivities  of  the 
weight  drop  with  respect  to  the  booster  burn-out  weight. 

Description 

The  equations  for  this  routine  are  described  in  Section  13  of  Volume  I. 
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FORTRAN 

SYMBOL 

BK1 

BK2 

BK3 

BK9 

DUES 

DUEO 

ITHBM 

ITNOU 

OKI 

0K2 

OK3 

0K9 

WEB 

UEO 


MATH 

SYMBOL 


WOE  DESCRIPTION 


l Value  of  constant  weight  In  booster  stage  weight 
equation 

I Value  of  linear  terw  coefficient  In  booster  stage 
■eight  equation 

I Value  of  1/3-power  tera  coefficient  In  booster 
stage  weight  equation 

1 Value  of  2/3-power  terw  coefficient  In  booster 
stage  aelght  equation 

ft  Sensitivity  of  booster  stage  weight  to  propellant 
wel ght  1 1 b/  lb) 


ft  Sensitivity  of  orbiter  stage  weight  to  propellant 
weight  ( lb/ lb) 


I Booster  empty  weght  curve  no* 


I Orbiter  ewpty  weight  curve  no. 


} Saae  as  bfcl  except  for  orbiter 


1 Saae  as  bK2  except  for  orbiter 


I Sene  »s  b*3  except  for  orbiter 


I Sane  as  bk9  except  for  orbiter 


ft  Booster  stage  weight  (lb) 


M Orbiter  stage  weight  ( i b > 


STORAGE  SUBROUTINE  USAGE 
BLOCK  LOC  SU8R  CODE  VAR 


/SIZIN6/I  27V  > 
/SIZING/C  280) 
/SI Z J NG/t  281) 
/SIZING/!  282) 
/SIZING/!  279) 

/SIZING/I  275) 

/SIZING/I  317) 
/SIZING/I  316) 

/SIZING/I  286  > 
/SIZING/I  287) 
/SIZING/1  266) 
/SIZIN6/1  289) 
/SIZING/!  309) 

/SIZING/I  303) 


5IZ1 

I 

BK1 

SIZ2 

I 

BK1 

UTDRP 

I 

BK1 

SIZ1 

I 

BK2 

SIZ2 

I 

BK2 

UTDRP 

I 

BK2 

SIZ1 

I 

BK3 

S1Z2 

I 

BK3 

UTORP 

I 

BK3 

SIZ1 

I 

8K9 

SIZ2 

I 

BK9 

UTDRP 

I 

BK9 

PAYLOD 

I 

OUEB 

SIZOUT 

I 

DUEB 

SI  Z 1 

« 

DUEB 

SIZ2 

« 

DUEB 

5TAU 

I 

DUEB 

UTORP 

rt 

DUEB 

PAYLOD 

I 

DUEO 

51 ZO  UT 

i 

DUED 

SIZ1 

n 

DUEO 

SIZ2 

ft 

DUEO 

SIZ9 

n 

DUEO 

UTORP 

n 

DUEO 

SIZE 

0 

ITNBU 

SIZ1 

I 

ITNBU 

SIZ2 

i 

1TNBU 

UTORP 

i 

ITNBW 

SIZE 

0 

ITNQU 

SIZ1 

l 

ITNOU 

SIZ2 

i 

ITNOU 

SIZ9 

i 

ITNOU 

UTORP 

I 

ITNOU 

S1Z1 

l 

OKI 

SIZ2 

i 

OKI 

SIZ9 

i 

OKI 

UTDRP 

i 

OKI 

SIZ1 

I 

0K2 

SIZ2 

i 

0K2 

$129 

l 

0K2 

UTDRP 

i 

0K2 

SIZ1 

i 

0K3 

SIZ2 

i 

0K3 

SIZ9 

t 

0K3 

UTORP 

i 

0K3 

SIZI 

i 

0K9 

SIZ2 

l 

CK9 

SIZ9 

i 

OKR 

UTDRP 

I 

0K9 

PAYLOD 

l 

UEB 

SIZOUT 

l 

WEB 

SIZI 

n 

UEB 

S1Z2 

19 

UEB 

5IZ9 

I 

UEB 

TAMPAR 

I 

UEB 

UTDRP 

19 

UEB 

PAYLOD 

I 

UEO 

SIZOUT 

I 

UEO 

SIZI 

19 

UEO 

5IZ2 

M 

UEO 

SIZ3 

I 

UEO 

SIZ9 

ft 

UEO 

TAftPAR 

I 

UEO 

UTDRP 

ft 

UEO 

8 NOV  T2  6*01-96 
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FORTRAN  HATH 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


SUBROUTINE  U5A6 
SUBh  CODE  v5fT 


UPB  B Bo»«t«r  prppalltnt  ■tight  < lb)  /SIZING/I  ZT7 ) SIZOUT  I UPB 

SIZ1  B UPB 

- SIZZ  B UPB 

5IZA  I UPB 
TABPAR  I UPB 
UTORP  B UPB 

UPO  B Qrbltar  propalUnt  utlght  tlbl  /SIZING/!  31Z)  SIZOUT  I HPO 

SIZ1  B UPO 

sizz  b up  a 

SIZ3  I UPO 
SUN  B UPO 
TABPAR  I UPO 
UTORP  B UPO 
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WTORP 


1.  SUBROUTINE  UTDRP( UPP , UIO.UIOW, I) 

2.  C THIS  ROUTINE  CALCULATES  WEIGHT  DROPPED 

3.  C AND  PARTIAL  OF  UT. DROPPED  WITH  RESPECT 


FOR  OPTIMAL  STAGING 
TO  BOOSTER  CUT-OfF  W 


WTORP 

WTORP 

WTORP 


4. 

REAL  HUB 

. MUD.  ISPB,  ISPO, 

IDV£l,NNB, 

NO 

SIZING 

5. 

COMMON  /SIZING/ 

SIZING 

6. 

C 

PHASE  H SIZING  PARAAERER5 

SIZING 

7. 

*TZ, 

VV(  3 >, 

3P< 14). 

EROR, 

PZ<  5 ), 

VO, 

SW( 20 ),  SIZING 

8. 

»SV< 28). 

SQ( 37.5). 

SEl  U >. 

TLAT. 

TLN6, 

SIZING 

9. 

C 

PHASE  I SIZING  PARAHERERS 

SIZING 

10. 

*WBO, 

WLOO, 

QUEB, 

OWED, 

TOLUT, 

WPB, 

TURAT2,  SIZING 

11. 

*BKI, 

BK2, 

BK3, 

BK4, 

ISIZE, 

TRAFL6, 

TWRATO,  SIZING 

12. 

♦OKI, 

0K2 . 

0K3, 

0K4. 

prflg. 

IPASS, 

IPSPIAX,  SIZING 

13 

*AEJEIT, 

TVACO, 

NO, 

UFO, 

IOVEL, 

I5P0, 

ISPB,  SIZING 

14 

*XPL, 

TVACB, 

NNB, 

WEO, 

WEB, 

WO, 

ULO,  SIZING 

15. 

*DVO, 

DVB, 

MUB, 

mio. 

VST6, 

WPO 

SIZING 

16. 

*, JTYP, 

BECO  , 

BSTG  , 

ORBI . 

ITNBU  , 

ITNQU  , 

SIZING 

17. 

* SVOPSQ 

, SVOC&N 

,lHUNf 

, IDPSi  6 

,ISZO< 19) 

UH 

18. 

IF<  I.LT 

.0  ) GO  TO 

i 

JULY2B 

19. 

WPB  - WPP 

JULY28 

20. 

C 

JULY28 

21 

C 

BOOSTER 

STA6E  WT  AND  SENSITIVITY 

JULY 28 

22. 

C 

JULY28 

23. 

1 IF<BK1. GT.0.0)  GO 

TO  2 

JULY28 

24. 

CALL  SPLIZC  ITNBW, 

WPB,  WEB 

, DUES) 

JULY26 

25. 

GO  TO  5 

JULY28 

35i 


26.  2 WEB  = BKl  + BK2*  UPB+  BX3*  UPB**0.3333+  BK4*  WPB**G.6667 

27.  DUEB=  BK2  * BX3*  0.3333*  VPB**< -0 . 6fc67  )+  BK4*  0.6667*  WPB** 

28.  * (-0.3333) 


JULY28 

JULY28 

JULY28 


29. 

30 

31. 

32 

33. 

34. 


5 U1D  = WEB 
W1DU  = DWEB 
RETURN 

ORBITER  STA6E  UT  AND  SENSITIVITY 


JULY28 

JULY28 

JULY28 

JULYZ8 

JULY28 

JULY28 


35.  3 WPO  = WPP 

36  IF(  OKI . GT.0.0  ) GO  TO  4 

37.  CALL  SPLIZUTNOU,  WPO,  UEO,  DUEO ) 

38.  GO  TO  6 


JULY2S 

JULY28 

JULY28 

JULY28 


3 


] 


39.  4 WEO  = OKI*  OK2*tfPO+  0K3*  WPO**  0.3333*  OK 4*  WPO**  0.6667 

40.  OWEO=  0K2+  0.3333*  0K3*  UPO**< -0.6667 )♦  0.6667*  0K4*  WPO** 

41.  * <-0.3333) 


JULV28 

JULY28 

JULY28 


42. 

43. 

44. 

45. 


6 W1D  = WEO 
U1DW  = OWED 
RETURN 
END 


JULY28 
JULY28 
JULY28 
JULY 28 
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Input  Editor  (INEDIT)  3 
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CONTENTS 


Program 

Subroutine 

Subroutine 

Subroutine 


TABE 

INEDIT  (with  input  data,  part-case  structure) 
Packer 

S (MDAC  6500  only) 


ICS 


109V 


TABE 


Pu  rposc 

TABE  is  a dummy  executive  program  that  heads  up  the  input  edit  overlay 
(overlay  containing  INEDIT). 


T ABE 


t PROGRAM  TABE 

2 CALL  INEDIT 

3 RETURN 

A.  END 


TABE 

TABE 

TABE 

TABE 
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Subroutine  INEDIT 


Purpose 

INEDIT  reads  input  data  card  images  using  NAMELIST  and  stores  cases  and 
part  cases  on  input  file  1 for  access  by  the  various  modules  of  PADS. 


Description 

INEDIT  first  reads  each  data  card  separately,  prints  its  image,  and  then 
copies  it  on  to  File  4.  File  4 will  then  contain  all  data  card  images,  and 
serve  as  the  input  file  for  subsequent  NAMELIST  reads. 

The  first  NAMELIST  read  ($  XX)  either  reads  in  control  flags  or  fills  common 
block  /AA/  with  trajectory  and  Phase  I sizing  data. 

At  the  end  of  common  block  /AA/  are  three  arrays  used  for  storing  the  data 
from  the  other  NAMELIST  reads  associated  with  SSSP  sizing  problems. 

These  NAMELIST  sets  are  $DATA  3 and  $DATA  2. 


After  reading  data  into  common  block/AA/,  INEDIT  scans  for  key  quantities 
that  have  actually  been  input  (words  that  are  non-negative  zero)  and  sets  up 
part  cases  to  be  stored  on  file  1. 


The  part  case  and  table  structure  resulting  from  this  processing  are  charted 
below. 


Part 

Case 

No. 


Description  of  Data 


Common 
block/ 
or  (routine) 
where  date 
used 


Extent 

- In 

’/AA/  array 


1 


2 


fixed  length  table 

Tables  1~*>30  variable  length 

univariant  data 


’ / GLOBAL/ 
/TBLE/ 
(SPLICO) 


GR-DUM5 
CLA  (70,  30) 


Table  1 Initial  conditions 
Table  2 Target  condition 


(GEINP)  T1-TIME1 

(BNDRYC)  PAYOFF- CT20 
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Pa  rl 
Case 
No. 

Description  of  Data 

Common 
block/ 
or  (routine) 
where  date 
used 

Extent 

In 

AA  array 

4 

Table  1,  steepest  descent 
starting  solution  phase 
sequencing 

(SDIN-P) 

FHl-*-PH20 

5 

Table  O,  steepest  descent 
convergence  data 

Table  1-20  steepest  descent 
starting  solution  control 
history 

/STS/ 

(SDINP)' 

DPAY-vDLPI 

TC$NA 

6 

Table  O Bivariate  table 
arguments . 

Tables  1-31  Bivariate 
table. 

(BLIC0) 

TALFAl-> 

TMACH1 

TCLCDl 

7 

Table  O,  Bivariate  table 
arguments . 

Table  1-31  Bivariate 
table . 

(BjLIC<2) 

TALFA2— * 

TMACH2 

TCDCD2 

8 

Table  O,  Bivariate  table 
arguments . 

Tables  1-31  Bivariate 
table. 

(BLICtf) 

TALFA3^ 

TMACH3 

TCLCD3 

9 

Table  Os  Bivariate  table 
arguments 

Tables  1-31  Bivariate 
table. 

(BLICO) 

TVELT— ► 
TALT 

THSF 

10 

Table  O sizing  data 

/SIZING/ 

WB(£-*ISZD 

1 l->3 0 

Table  O ARC  data 

/ARCDAT/ 

SREF-* 

DUM20 

31 

Table  O Booster  data 

AB 

32 

Table  O Orbiter  data 

AC 

33 

Synthesis  data 

AD 

INEOIT 


2. 

3. 

H . 

5. 

6 C 

7, 

8. 

9. 

10. 

11 

12. 

13 

14 

15.  C 

16. 

17.  C 

18. 

19.  C 

20. 

21. 

22 

23. 

2** 

25. 

26 

27 

28. 

29. 

30. 

31.  C 

32. 

33. 

39. 

35. 

36. 

37 

38 
39. 

HO 

HI 

H2 

43. 

HH 
H5 
H6  * 

H7 

H0. 

H9 

50. 

51 

52. 

53. 

5H. 

55. 

56 

57. 

58 

59 
60. 

61. 

62. 

63 

6H. 

65. 

66 

67 

66 

69. 

70. 

71. 

72. 

73. 

7H 

75 


SUBROUTINE  INEOIT 

CONflOW/TT/I NTBD.INTRR, 1 NT  C5 , 1 PC, NALPHA  NT  ABO. NT  AB, NT, NTOT, JTOTt  31  ) 
EQUIVALENCE  ( IOENT  1 NtOO  >.< 1TQT.NT0T)  ' ' 

OinE«5ION  I DENT ( 7 ) I TOT t 321 

CO «m0N/ FLAGS/  KriOD,  KtlAX&D,  BO,  RR,CS , fiODCS,nAKEBO,  $1  ZING 

INTEGER  BO,RR, CS, SI ZING.EXTBO.EXTRR .EXTCS .OUT 
REAL  iff* 

1 I WWER, ITfiflAX, NARC, 

2 lUli, 

5 NITER, 

J.PAS5  , IPSrtAX,  NO, 1 DVEL,  1570,  ISP  B,  NNB,rtUB, JTYP,  ITNBU,  IT  NON, 

A 1 ATH, I^ODE, JAER, JPRO, LFTflAX 

FOR  DATA3 

REAL  ISP,ITP$,K,KIH,  LF,NR, NCREW, NENGS, NLISTQ,NP A$$,NUL 
FOR  C A 1 A *1 

REAL  ISLB,  ISLO, 1 VACB,  1 VACO, HXFOB, IOtfELO 

OlREUSION 

1 ftftl  1>,TCLO(  70,30  ),TCDO(70,30),TFI(ITO,30>,TC«0<  70,30), 

1 TCRJK  70,30  ),TBLO0<  70 . 30  >,TXCSbl(  70, 3fc  >,TZCGW(  70, 30  >,TDBHt  70,30  J, 

1 TUOBP<  ?5,30>,TFVAC(  76,30  >,TISPL<  3oV 
5 TCOHB<  30,20) 

F0U1  VALENCE 

UTCLA,TCLO,TCOO,TFK,TCBO,TCHA,TBLOa,T*CGH,TZC6W,TOBH,TUDRP,TFVAC, 

1 TISPL1,  ( AA,GR  >, 

5 < TCQHA.TCOMB), 

*<TNCLA,SNA),(DUrt9  ,SNQ> 

DIMENSION  SNB  <20),5NA(20> 

COHHOW/AA/ 

1GR,  ER,0NGZ,RHQRFfYf4URF,PBC0,DUCU,EPSL0N,  INNER,  ITRfiAX,DUrt2<  7),  NARC, 
10U«3( H9 ) PSIRF/PFL61 . PFLG2,rfLG3,PFLGH, OUrtHl  20  >,TPS0L,DUrt5t  9 >, 
ITCLAt  70,  $0  1,  ' ' 

2T1  < 2 1,  »2  (21,13  <21,74  <2),T5  (21,76  <21,77  <2),T8  <21,79  <21, 
2TlOt2),Tll<2),Tl2(2),Tl3(2),TlH(2)T15(2)/T16C2>,T17(2>,TlB(2), 
2719(21, 720(  21, VI  <2),V2  (21,  V3  12),  VH  (21, V5  <2),V6  <2)!v7  (2), 

2V8  ( 2 ),  V9  <2),V10(2),  VIK21,  V12121,  V13<  2),  V1H<  2 >,  V15<  2 >,  V16C  2 >, 
2V17(2),V18<2),  VI9(2),  V20(21,fcll  (21,  U2  (2),W3  (2>,UH  (2>,U5  (2), 

2W6  (21, N7  (2),U8  (2),U9  ( 2 1,  UlO(  2 >,  bll  1(  2),  U12l  2 ),U13<  2 ),U14t  2 1, 
2*15(2),  U16<  2),U17(  2>,U18(  2 ) , U19C  2 ), U20<2>, GAH1C  2) , ALT1( £),PSIlf 2 >, 
2RNDlt2),mJl<2>_Hl(2l,Sai<21,TlHl<2>,  ' ' 

2PAY0FF<  3 ),CN1( 3 ).CN2(  3),  CN3(  3 1, CN4(  3 1, CN5(  3 1,CN6(  3 1,CN7<  3 >, CM8( 3 1, 
2CT1  (2),  CT2  ( 2 ),  CT3  (21,CTH  <2),CT5  (2),DT6  (21.CT7  <2),CT&  (2>, 
2CT9  (2),CT10(2),CT11(2)-,  CT  12(2),  CT  13(2),  CT1H(2),CT  15(2),  CT16(  2), 
2CTI7(2),CT18<21,CT19(2),  CT20(2), 

HPH1  ( 6 >,  PH2  <6),PH3  (6>,PH4  (6),PH5  (6),PH6  (6>,PH7  (6),PM8  (6). 
HPH9  (6),PH10(6>,PHlU6>,PH12(  6 ),  PHI  3(  6 ),  PH1H(6),  PH15(  6 ),  PH16<  6 >, 
HPH17(6>,PH18(6),PH19<6)>H20<6)  ' 

CONNDW/Aft/ 

50PAY,PlHN,TOPENi.TOPEN2,OUn6<  7 ),PHJ«T,DU«7(  18  ), NITER, TOF<  HO  ), 
5UPTI(  9 ),0UN8,DLPI  ( 9),TC0NA( 30,20  >, 

6TALFA1C  31 ),T«ACH1(  31 ),TCLC01< 62,31 >, 

7TALFA2<31 ),THACH2(3l ) , TCLC02( 62, 31 ), 

8TALFA3<  31 >, TMACH3<  31 >,TCLCD3( 62,31 >' 

*TVELT(  31 ),TALT(  31 >,TH§F(  62,31 1 , 


9WB01  1 ), 
9BK1 
9QKl' 
9EX1TA 
9XPL, 
90UN25, 
9JTYP 


6urzi, 

BK2, 

0*2, 

TVACO, 

TVACB, 

DUR26, 


JTYP,  BECO, 
CGrtfloN/A A/ 


DUP122, 

BK3, 

0X3, 

NO, 

NNB, 

flUB, 

BS76, 


0UA23, 

BKH, 

OXH_ 

UFO, 

WEO. 

DUH27, 

ORBI, 


TOLWT, 

ISIZE, 

PRFL6, 

IOVEL, 

UEB, 

VST6, 

ITNBU 


UPB, 

TRAFL6, 

IPASS, 

ISPD, 

’bJO, 

wfo, 

ITNOU,  1SZ0( 13 ) 


DUrt2H, 
TblRATO, 
IPSWAX . 
ISPB, 
ULO, 


ASREF 
AI  AT 14 


< 20  ), AEXIT  <20),XI5P 
<20>,Ift0DE  t 20  1, J AER 


(20),T«ULT  ( 20 ), OTNC  (201.PFR0  (20) 

( 20 1,  JPRO  (20),QNAX  < 20 ),  GflAX  (20) 

ALFTrtAXC  20  >,  HBJ1AX  (20),GltDOT  ( 20  ),  ALFflAXt  20  1, PHflAX  <20>,TNCLA  (20) 
ATNCLO  ( 20  ),TNCOO  ( 20  l.TNFK  <20),TNC«0  (20),TNC«A  ( 20 ),TN8L0Q< 20  ) 
ATNFVAC(  20 ),TNISPL( 20 ) TNXCGW{  20  )?NZCS*( 20  >,TNUDRP( 20 ), DUR9  (20) 
AINOBH  ( 20  ),  XCGR  (20),ZC6R  (20), XE  (20), Z€  < 20  1,  XT  < 20  ) 

AOREF  <20),DUnl0  (20).DUnil  <20),HTFLG  C20),RErtAX  <20),FRATE  (20) 

A0tmi3  <20),0UrtlH  (20),DUH15  (20),0U«16  (20),DUfll7  <20)>0Ul^l8  (20) 

ABUH19  <20),DUrt20  (201 
EQUIVALENCE  ( I HUNT, ISZDt 3 > ) 


INEOIT 

I NED  I T 

INEOIT 

INEDIT 

INEDIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

[NEDIT 

INEOIT 

INEOIT 

INEDIT 

INEOIT 

1NED1T 

INEOIT 

INEDIT 

INEOIT 

INEOIT 

INEOIT 

INEDIT 

T NEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

POU 

FIXED 

FIXED 

INEDIT 

INEOIT 

INEDIT 

INEDIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEDIT 

I NEDIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEDIT 

INEDIT 

INEOIT 

INEOIT 

INEDIT  * 

INEOIT 

INEOIT 

INEDIT 

INEOIT 

JULY28 

INEDIT 

INEOIT 

INEDIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

POU 
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76. 

ir 

78 

79 
80. 
81. 
82 
83. 
89. 

85. 

86. 

87 

88 

89 

90 

91. 

92. 

93. 
99. 

95 

96 

97 

98. 

99. 
100 
101 
102 
103 
108. 

105 

106 

107 

108 
109 

no 

in. 

112 

113. 

119. 

115. 

116. 

117 

118 

119 

120 
121. 
122 
123. 

129 

125 

126 

127 

128 
129. 

130 
131. 

132 

133 
139. 
135. 

136 

137 

138 

139 

190. 

191. 

192. 
193 

198 
195 
186. 

197. 

198. 

199 
150 


• ,!SOCO,!5ZO(  9)1, 1 5058,1520(51) 

REAL  I HUNT 

HAF1ELIST/XX/  80,  RR,  CS.nOOCS.rtAKEBO,  SI  ZIHG/1  HUNT,  NODATA 
l,GR,ER,OnGZ,RHORF,YNUfiF, PRCCI, EPSLON,  INNER, ITRMAX  ,NARC,PS1RF, 

2 PFL5l,PFLS2,PFLG3,PFLG9,TPSOL,TCLA,TCLO,TCOO,TFii,TCil6,TCnA,T8LDa, 

3 TXCGM,TZCGU,TOBH,TWOfiP,TFVAC,TISPL,SGCO,SOSP, 

9T 1, T2, T3, T9, T5,T6,T7,Tb, T9, T10.T11112, 713, T19.T15, 71 6, 117,118719 
5,T20,V1,V2,V3(V9,VS,V6,V7,VB,V9,V10,VH,V12,V13,V19,V15,VI6,V17j 

6418,  V19,  V20,  U1 . U2,  U3.  U9,  U5,U6,U7, U8,  U9.U10,  bill,  tU2,tfl3,U19. 1815,  Wlb 

7.U17,Wl8,bll9,U20,GAnl  ALT  1.PS1I, RH01,mjl, HI, SOI, TIBI, PAYOFF, CN1, 
8CN2, CN3, CN9, CN5 ,CN6 ,CN7,CNB,C71,CT2,CT3,CT9,CT5,CT6,CT7FCT8,CT9, 
9CT10,CT11,CT121CT13,CT19,CT15,CT16,CT1T,CT18,CT19, CT20.PH1 ,PH2, 
0PH3,rh9,PH5,PH6,PH7P88,PH9,PH10,PHll,PH12,PH13PH19,PH15,rK16, 
lPHir,PHi8,PHl9,PH20,DPAY,PmN,TOPENl,TOPEN2,PHlUT,NITEE),TOF,UPTI, 
20i.Pl  , T CONA,TCONB,T  ALF  Al, TNACH l,TCLC01 , TALE A2,TttACH2,TCLC02, TALFA3, 
3TnACN3, rCLt03,5REF,AEXlf , XI SP , TMULT, Of NC, PERU , IATH, 1M0DE, J*£R,JPRD 
9,QMAX,GflAX,LFfMAX,HDrtAX,GP10flT,  ALFMAX ,P  HMAX,  TNCLA .TNCLD,  TNCDQ,T NFX, 
5 TNCHO  TNCnA,TNBLbO,lNFVAC,TNiSPL,TNXCGU,TNZCGU,tNUDRP,INOBH,XCGR, 
6ZCGR,XE,ZE,XT,0REF,HTFLG,REflAX,FRATE,TALT,TVELTTHSF,JTYP, SNASNB, 
7JB0,70U4T,UPB,BIC)  ,6*2, BK 3, BK9,  1 SI  ZE  ,TRAFLG,TUR  Afo  ,0K1,QK2, 0*13,0*9, 
8PHELS,IPA5S,IPSnAX,EXITA,TVACO,NO,lilFO,lDVEL,ISPO,ISPB,XPL,TVAfcB, 
9NN6, UEO, WEB, UO.blLO, DUB, V5TG,UP0, BECO.BSTG, GRB1 , ITNBU, 1TN0U, 1520 

DIMENSION,  CC30D),CFUELC61,OEFC5),15PC61,ICC30  ),HR{  6 1 
DIMENSION  ABC  392  J , AC1  3921,  ADC  101 ) 

EOUI VALENCE  C «e, AA(  12212 )1,(  AC, AA(  12609  >},( AD, AAC  12996)1 
EQUIVALENCE 

1 [ ANENGS,  ABC  1 1 ),<  ANTANIC,AB(  2 1 ) ,C  ASRAT0,  ABC  3 1 >,C  ASUEEP,  ABC  9 1 1, 
2(C  , ABC  5)),(CBB0DV,ABC3O5>>.<CFUEL  ,ABC306)1, 

3C  CHBODV,  ABC  3 12  ) ),  ( CLBOOV  , ABC  3 1 3 1 ),{  CS80DV  , ABC  3 19  1 >, 

91  C5FBIR,ABC315)),CCSFUTX,AB(  316  )),<CSHDR2,  ABC  3171), 

51  CSOXTIC.ABC  31B)  ),C  CSPLAN,  ABC  319  )),(  C5  VERT,  ABC  3201), 

61  CSWIN6,ABC3Z1  IMCTHHST.ABC  322  1 ) ,C  CTHST2,  A8C  323  1 >, 

71DEF  ,ABC329)>,C  FXU0V5 , AB(329))(1SP  ,ABC330>), 

BC  1 TPS  , ABC  336  ) >,<  X , BBC  337  ))  ,C  KIN  ,ABC367>>, 

9CLF  , ABC  36  B ) },C  MR  , ABC  369  ) I ,C  NCREU,  ABC  375  > 1, 

D1NENGS  ,ABC376)),CNL15T0, ABC  377)1, CNPASS  ,ABC  378  )>, 

11NUL  , ABC  379  ) ),C  PCliAM  ,90(  380  ) 1 CO  ,Aac381)), 

21  RHOFU  , ABC  382  1 ), CRHOFU2,AB!3B3)),(RKOX  , ABC  389  3 > 

31RH0X2  , ABC  385)1,  CSBOOV  , ABC  386  ) ) ,{  TOL  ,BBC  387  )), 

9!  TOVERC,  ABC  388  n,C  TPRATO, ABl  389  ) ),  C TVTAIL,  ABC  3901), 

5(  VBDDV  , ABC  391  )),<  NSROSS,  ABC  392)1 
ED  DIVALENCE 

lCALD  , ADC  1 1 1,C  FBPAR  , ADC  2 ) 1 ,C  IDVELO,  ADC  3)1, 

21  I S LB  , ADC  9)),<I5LS  ,ADC  5 1 ),C  I VACB  , ADC  61), 

31  I VACO  , ADI  7 1 >,C  PERISP  , ADC  Bll'lQRXX  ,ADC  91). 

HtOtlXS  , ADC  1Q>),CSFC  , ADI  11  ) ),C  SLVOUT,ADC  12)1, 

5(C0PIES,ADC  13  j J.CSVNIT  ,ADC  19)1, CTFCTRB, ADC  151), 

61  T FCTRD,  ADC  16)>,(T0LMU  ,ADl  1 7 ) ),C  TOLTN  ,ADC  18)>, 

7ITRATI0,ADC  1911.CTUL0  ,AD1  20)),cTUL0I  ,AOC  21)1, 

BCUTOUT  ,A0!  22  ) >,C  FI  BE  ,A01  23  ) ),C  BOOTH  , ADC  29  1), 

91  VCRU5E,  ADC  25)),CNXF0B  ,AD(  Z6)I,CPRNTX  ,‘ADC  2711, 

01FSEC  , ADC  2B  ) ),  C CLV6  ,AD(  29  I)  (ORNG  ,B0C  301), 

1C  SOLI  D , ADC  311),  CAS  ,ADC  32)1, (B5  ,ADC  331), 

215I5P  , ADC  39  I ),  C 51  BERT,  ADC  35)>,CSBE  ,RDC  361), 

3ITSB0  , ADC  37  1 1,  C FLYBCIC,  ADC  36  1 ),C  UPOREO,  ADC  39)1, 

9CUOREO  , ADC  90  ) I,  ( GUREQ  ,BDC  91)  ),C  FBFUEL,ADC  92)1, 

SCCA  ADC  93)1, CCD  ,AD(  991),CUFLYX  ,ADC  95)1 

EOtll  VALENCE 

• 1RT  , ADC  96  ) ),(  R1  , ADC  97)1, CR3  ,ADC981), 

»15FC1  , ADC  99  ) ) ,( SFCZ  , ADC  50  ) I,  ( 5FC3  ,ADC5ll), 

♦ CALD1,  ADC  52  ) 1,  C ALD2  , AOC  53  1 1 , t ALD3,  ADC  59  1 ), 
vCVFLVl  ,ADC  55  1 1,  C YFLYZ  , AOC  56  >),t  VFLV3,  ADC  57  11 

EQUIVALENCE 

*(PNDX,AOC  60)),CBLOU,  ADC  70  ) 1.  C BUPP,  AOC  80  ) ),  C STEP,  ADC  90  )), 

* 1 PAVX,  ADC  101)1,  CRVAR.ADC  59)1 

DIMENSION  PNDXt  10),BUPP<  10),BLOUUO),STEPUI> 

NAMELIST  TO  BEAD  IN  DAT* 


NAMELIST/0ATA3/ 

1 ANENGS  , ANT  ANX  , ASRATO  ,»SWEEP  ,C 


,CFUEL 


. , • , CBBODV  . 

2CHB0DY  , CLBOGV  ,CSBODV  ,CSFAIR  'CSFUTX  ,CSKORZ  .CSOITX 

3CSPLAN  , CSVERT  ,CSUING  , CTHRST  , CTHST2  ,OEF  ,FXUOV$ 


JULV28 

pou 

1NE01T 

POU 

1NED1T 

1NED1T 

JULY28 

1NEDI1 

1NE0IT 

1NEDET 

INEDIT 

INEDIT 

INE01T 

INEDIT 

INEDIT 

INEDIT 

INEDIT 

INEDIT 

INEDIT 

FIXED 

INEDIT 

INEDIT 

UH 

INEDIT 
INEDIT 
POU 
FIXED 
INEOIT 
INEDIT 
INEDIT 
INEDIT 
INEDIT 
INEDIT 
INEDIT 
INEOIT 
INEDIT 
INEDIT 
INEOIT 
INEOIT  , 
INEOIT 
INEOIT 
INEOIT 
INEOIT 
■UH 
UH 
<UH 
UH 
OH' 

UH 

‘UH 

UH 

UH 

UH 

UH 

UH 

UH 

.UH 

UH 

UH 

UH 

UH 

UH 

UH 

UH 

POU 

POU 

POU 

pou 

INEOIT 

INEDIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 

INEOIT 
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151 

NIST  ,ITPS  .*  ,*IN  ,LF  ,NCREM 

1WE0IT 

152. 

5NEN6S  ,NUSTO  ,NPASS  ,NML  ,PCHAR  ,8  ,RHCFU 

9 

I NEOIT 

153. 

6RH0FU2  ,RMDX  ,RH0X2  ,5B0OY  ,TOL  ,TOVERC  ,TPRATO 

a 

INEOIT 

159. 

7TYTAIL  , VBQOY  .UGROSS  f NOOAT  A 

INEOIT 

155. 

U 

INEOIT 

156 

C 

NAREUST  TO  PRINT  OUT  INPUT  DATA 

INEDIT 

157. 

c 

INEOIT 

150. 

c 

INEDIT 

159. 

c 

INEOIT 

160 

NARELIST/o'ATA2/ALD,EBPAR,IDYEL0,ISLB,ISL0,IVACa,IVAC0,PERISP 

40*XX, 

UH 

161. 

i orxs .sfc.slvout.copies.svnit.tfctrb, tfctro,tolpu, tgltm. 

INEDIT 

162. 

2 TRAT  10  7WL0,TWL0 1 , UTOUl,F IRE -BOOT W,  VCR  USE 

INEOIT 

163 

3 ,NXFBB,PRNTX,FSEC,  CLV6,  DRN6 

INEOIT 

169 

1 ,50LID,A5,BS,SISP,SINERT,SAE,TSBD  ,FLVBC* 

INEOIT 

165. 

5 .UPOREU .WDREfl, GUREQ 

INEDIT 

166. 

A ,FBFUEL  CA,CB,UFLYX,RT,R1,R3,SFC1,SFC2,SFC3,AL01,AL02,AL03, 

VFLVX, 

INEOIT 

167. 

T VFLY2  ,»FLY3.NOOATA 

INEOIT 

168 

PND X, B UP P, BLOW, STEP, REAR, PAY X 

POU 

169 

c 

INEOIT 

170 

DIPENSION  SABI  392  > 

INEDIT 

171. 

DIPENSION  LOCTOSI  10>,LOCTOEt  10  ).  LOCTUOKN! ABRXUO  > 

FIXEO 

172 

Efl  UI VALENCE  < LOCTOS , LOCTOS 1,1  LOCTOE, LOCTOE  ) 

FIWI 

173. 

OIPENSION  LOCTOSI  n.LOCTOEI  n 

PINT 

17  9. 

DATA  LOCTOS/  1,  I,  0,  1 ,2526, 32 l 6, 5200, T1 BN, 916S, 11 152/ 

FIXED 

175 

1 , LGCTCE/102,  1,  D,  1,2615 , 327 T , 5261, 72N5, 9229, 1 1211/ 

FIXEO 

176. 

2 , LOCT  / 103,  1.  0,  1.2616,3278,5262,7216,9230,  0/ 

FIXEO 

177. 

3 , NT A8PX/2000, 1000,0, 100, 111,1 95 1,1951, 1951,1951,0  / 

FIXED 

176 

c 

INEOIT 

179. 

DATA  F1N1TY/99B8776655./ 

INEDIT 

160. 

DIPENSION  ALFNU!  13 ) 

06 

181. 

L0S1CAL  NESO 

INEOIT 

162. 

NE601  X )=X .EG.  0 . .AND.  SI  SKI  1 . , X l.LT.O. 

INEOIT 

163. 

c 

INEOIT 

189. 

PFHNT=1 

INEOIT 

185 

c 

ASSURING  60  UDS  1U  PC=9 

INEOIT 

186. 

NAA  =13075 

FIXED 

167. 

NAA  =13096 

FIH1 

188. 

00  50  1=1, NAA 

INEOIT 

189. 

50  #A11)=~0. 

INEOIT 

190. 

CALL  UR1TRS<3,AA,NAA,N> 

INEOIT 

191. 

CALL  SI  1 ) 

INEOIT 

192. 

IN=N 

06 

193 

REMIND  IN 

OS 

199. 

00  3 1=1,10000 

UB 

195. 

READ!  5,  N)  ALFNU 

06  1 

196 

IF! EOF, 5 1 5,2 

UG 

197. 

2 WRITE!  IN,N ) ALFNU 

UG 

190. 

WRITE! 6,61  ALFNU 

k 

UG 

199 

3 CONTINUE 

06 

ZOO. 

$ REMIND  IN 

UG 

201 

N FORPATI 13A6) 

UG 

202. 

6 FORRATt  X,13A6) 

UG 

203. 

0UT=1 

INEOIT 

209. 

c 

READ  CONTROL  CARO  INFO 

INEOIT 

205. 

XPAKB0=0 

INEOIT 

206 

11  CONTINUE 

INEOIT 

207. 

PODE=  0 

INEOIT 

200. 

INTBD=0 

INEOIT 

209 

1NTRR=0 

INEOIT 

210. 

1NTCS=0 

INEDIT 

211. 

EXTBD=0 

INEOIT 

212. 

EXTRR=0 

INEDIT 

213. 

EXTCS=0 

INEOIT 

219. 

X8D=0 

INEDIT 

215. 

KSIZE=0 

INEOIT 

216 

ALPHA=6H 

INEOIT 

217. 

HALPBA=1 

INEOIT 

216. 

FATAL=0. 

INEOIT 

219 

1S00  CALL  READn5I3.«A.NAA,<t> 

INEDIT 

220. 

100  ifMJD=0 

INEOIT 

221. 

102  CONTINUE 

INEOIT 

222. 

B0=9999 

INEOIT 

223. 

Rfl=  9999 

INEDIT 
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CS=  9999 
IWDCS-9999 
NAKESD=9999 
$IZ1N6=9999 
READ  ( 111  II) 

ifceof,in)  200,300 

ZOO  1*1700=9999 

SO  TO  7000  

300  CONTINUE 

I Ft KSI ZE  EO.O)  GO  TO  310 
DO  30 1 1=1,39? 

SA9<  I ) = A6(  I ) 

301  ItU)  = AC(I) 

READ! IN, OAT A3) 

00  302  1=1,392 

302  ACC  I )=ABt  1 1 

00  303  1=1,392 

303  AB<t>=SAG<I> 

REAOC  IN, OAT  A3) 

READC  I N,  OAT  A2  ) 

KSIZE=0 

310  CONTINUE 

IFCBD  .NE  9999)  SO  TO  1100 

IFCHR  .NE  9999)  60  TO  1200 

IFCCS  . NE.9999)  60  TO  1300 
IFCSIZINS  NE.9999)  GO  TO  1310 
IFCFIODCS  NE.9999)  GO  TO  1900 
IFC  MAX E BO. NE.9999 ) GO  TO  1700 
321  F0RF1ATC7H  nOOE=,U) 

R=H0DE+1 

GO  TO  (2000, 2100, 2200, 2300, 2900, 2500, 2600, 2700, 2800), H 

: 

o 

3 BP  -EXPECT  BASIC  DECK  OF  DATA  TO  FOLLOW 

1100  MODE  =1 
EXT»D=BO 
EXTRR=0 
EXTCS=0 

IFC  SIZI NG.NE  99991  KSIZE=1 
GO  TO  1900 


1200  lF(riaOE-l)  1220,1250,1210 

1210  IFC  NODE  GE-9  .AND.  HOPE  LE  6)  SO  TO  1250 

1220  NODE  =9 
EXTRR=RR 
EXTCS=0 

IFC5IZING  NE.9999)  XSIZE=1 
IFC KOD .EO.O ) GO  TO  1900 

C PRESET  AA  TO  THE  CURRENT  BASIC  DECK  ON  DISK  1 
CALL  READN5(  3, AA, NAA,  1 ) 

60  TO  100 

1250  CONTINUE 

WRITE  (6,9001) 

9001  FORMAT! 100H  **DATA  SETUP  ERROR**  A Rfl  DUST  NOT  FOLLOW  ANT  OF  Tl 
1 FOLLOW)  NG  CARDS  — - BO/RR/NDtlOD/flOO/flODCS  ) 

FATAL=2. 

GO  TO  100 
C 

c cs  - 

1300  EXTCS=C5 

1310  IF(  SI  ZING. NE  9999)  XSIZE=l 

IFCMOOCS  NE.9999)  GO  TO  1900 
IFCftAKEBO.  NE.9999)  GO  TO  1700 
GO  TO  100 
C 

C WOO  -EXPECT  1ST  CASE  OF  A SET  OF  SERIES-MODIFIED  CASES 

1900  KflOD=l 

EXTCS=«ODCS 
SO  TO  102 
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1500  C0MT1HUE 
60  TO  100 
1600  CONTINUE 
SO  TO  100 

c 

C NAKEBD  W6KE5  ft  60  OUT  OF  SERIES-nOOIFIEO  CASE  ON  OISX  11 

1700  XnAKBO=l 
X80=l 

60  TO  100  

1800  CONTINUE 
NTAB=1 

DO  1810  1=1.392 

1810  I Ft  NOT  NEGO! ftCI  I > ) ) 60  TO  1820 

60  TO  1830 

1620  IPC=3 1 

NTAB0=392 
URITEIOUT)  1 DENT 

WRITE(OUT)  ALPHA, (AC!  11,1=1,  NTAB0),0UH(9V 

1830  DO  1890  1=1.392 
1890  I Ft  NOT  NEGO(AB!l)>>  GO  TO  1850 
60  TO  I860 

1850  IPC=32 

NT 680=392 
WRITE!  OUT  1 10ENT 

WRITE! OUT)  ALPHA,  ( AB(  1 ), 1=1, NT ABO ), DUHNV 

1860  DO  1870  1=1.101 
1870  IF!  . NOT  . N£GO(AD(I))>  GO  TO  1880 
6D  TO  1890 

1880  IPC=33 

NT  680  =101 
WRITE!  OUT)  I DENT 

WRITE!  OUT)  ALPHA,(A0(1),I  = 1,NTAB0),BUHBV 

1690  CONTINUE 

GD  TO  5150 
C 

C RODE  =0  JUST  GOT  INDEPENDENT  COSE  — BODED  TD  CLEAR 

2000  NODE  =5 

GD  TD  2500 
C 

C NODE  =1  JUST  GOT  8 BO  DOPED  TO  CLEAR  ( LE6VE  IN  6ft,  PUT  ON  DISK 

2100  NODE  =2 
KBD  =1 
INTBD=1NTBD+1 
!NTCS=0 
IHTRR=0 

CALI.  URITPtS(3,AA,NA6,n 
WRITE  (6,9101)  INTBO,EXTBD 
9101  FORNAT!  6H  80=13,  1H<I3,1H>) 

GO  TO  100 
C 

C NODE  =2  JUST  GOT  A CS  ADDED  TO  BD 

2200  I Ft XMOO.EO  1)  GO  TO  2599 
INTCS=1NTCS+1 

C SAVE  THIS  8D+CS  FOR  POSSIBLE  MOOCS  CONING  UP  NEXT 
IF! KNAK8D.E0  0)  GO  TO  5000 
CALL  WRIT  MS!  3,AA,NAA,1  > 

XI9AKBD=0 

C TRANSPOSE, CODPRESS  AND  WRITE  THIS  CASE  FOR  TAB IN 
GD  TO  5000 

C PRESET  AA  TO  THE  BASIC  DECX  IN  1 

2250  CALL  RE  AD!9S!  3,  AA.NAA,  1 ) 

WRITE  (6,9103)  I NTBD, EXT  BO, I NTRR, EXTRfi, I NTC5,EXTCS 
9103  FORNAT!  6H  13,  1H!I3,IH5H  13,  1H!I3,1H)5H  CS=I3, 

F 1 H!  13, IK  ) ) 

GO  TO  100 

C NODE  =3  JUST  GOT  A CASE  ADPEO  TO  RR 

2300  IFIKMOD  EQ  1 ) GO  TO  2599 
INTCS=INTCS+1 
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IF(XAASdD.ea-O)  69  TO  5000 
CALC  WfiITAS<3,  AA,NAft,l  l 
KAAKBO-O 

nOD£=Z 

SO  TO  5000 , 

i CONTI  WUE 

WRITE  16,9103>  I«TaD,EXTao,INTfliFexTPfi,n*TCS,EXTCS 
iFtftOOE.ea.zi  so  to  2250 
lF(*30£.Ea.3>  COLL  RE00*5(3,0A.*A0,2Y 
IF(*0DE.£0-5  J..CALL  READ*S<3, AA.NAA,  *> 

GO  TO  ICO 

MODE  JUST  SOT  A RE  AQPEP  TO  CLEAR  OR  TO  BO 

> INTfifi'lKTfifi+i 
INTCS=0 
RODE  -3 

COLL  WR]T’t$(3,AA,NAAc2> 

WRITE  (6,9102)  JNTftD,EXT0O, TMTRfi.EXTRfi 
: FOfiNAT( 6H  13.  1KCI3.1N  5H  RR=I3,  ltKI3,lH>> 

60  TO  100 

WOOg  -5  JUST  SOT  AN  INDEPENDENT  CASE  AQOEP  TO  CLEAR 

60  TO  23Q0 
GO  TO  2300 

RODE  =6  JUST  SOT  A CASE  ADDED  TO  CS 

WODE=& 

IWTCS=IftTC5+) 

CALL  UfiURSC  3,AA#WA*-3> 

SO  TO  5000  , * 

CALL  R£ACflS(3,AA,NAA,3) 

WRITE  < 6,9103  > lftT&D,EXTBD, INTflfi,EXTRR, I NTC$,EXTCS 
GO  TO  I0& 


CONTINUE 

SO  TO  100 

CONTINUE 

5ET  UP  TABLES  FOR  EACH  PART  CASE 

RPR I NT -RPR NT 

IPC=0 

SO  TO  5200 

1F(  IPC.LT.30 ) GO  TO  5200 

60  TO  1800 

CONTINUE 

SO  TQ  ( 100,2250,2350,100,2350,2650 ),RQPE 

IPC=IPC+1 

WT0T=1 

IF(IPC-IO)  5600,5600,5*00 

DO  5350  1=1,60 

IF(  .NQI.NESC(WBO< I ) >)  SO  TO  5560 

60  TO  5100 

L=IPt-10 

LL=L+9S0 

LLL=1 

LLLL=0 

00  5500  I=L,LL,20 

AA(  LLD'SftEFl  I I 

IF( .N3T.NEG0( AA( LLL)))  LLLL-1 

LLL=LLL*1 

IF(LLLL.EO.O)  GO  TO  5100 

JT0=1 

KTO=50 

NtAB0=5O 

«T=0 
NTAd=I 
GO  TO  7000 
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5600  I F t 1 PC. Ed. 3)  SO  TO  $100 
JTO  = L0CT5SIIPC) 
uc  LocToeiiPC) 

NTA90=6TD-JT0+1 
NTBT  =0 

CO  TO  < 5751. 6555,5150, 68G0, 5705, 5706, 5707, 5706, 5709, 5300), IPC 

5701  CALI  PACKER!  TCLA  ,2100,70) 

60  TO  5200 

5755  CAUL  PACXERITCONA  ,600  ,30) 

SO  TO  $800  

$706  CAiL  PAC6ERtTCLC01,1922,62) 

60  TO  5600 ________________________ 

5707  CAtL  PAC6ERITCLCD2, 1922,62) 

60  TO  5800  

5708  CALL  PACKER!  TCLCD3, 1922, 62)  ” 

60  TO  5800  

5 7 59  call  PACKER!  ThSF, 1022,62) 

5800  1F1NT  6T.0)  60  TO  5820 

00  5810  i=JTO,KTO 

5810  I FI  - WOT  NE30I  AA(  I > > > 60  TO  $820 
60  tD  5100 

$820  JT=L0CT!1PC) 

60  TO  5900 

5850  JT  = 1 

mWT.EO.O)  SO  TO  5100 

5900  KT=JT*NT-1 

1 PINT  EO.O)  NT0T=1 
NTAB=NT  +NTBT 

IF1NTAB-LE.NT ABM!  1PC) ) 60  TO  >000 
WRITE  ( 6,5901  ) NT AS,  ]PC,NTABNX(  I PC) 

5901  FORNAT!  36H  »«*FATAL  INPUT  ERROR***  TOO  NOCK  1,19),26H)  DATA  FOR 
FM1S  PARTCACE  7,12, 17H1  - ALLOWED  ONL*  ,19) 

FATAL=1. 

60  TO  5100 


6000  NTl=-3 

00  6100  1=1,39  2 

1 F I WcSOl  711  1 ) ) 1 GO  TO  4100 

NTl=NTl+9 

AA(  Nil)  =11*11/2 

AA(  NT1+1 1=1. 

AA(  Nf  1+2  >=T  1(1) 

AA(NT1  + 31=TH  1*1) 

6100  CONTINUE 

00  6)20  1=1,39,2 

IFINEGOI  VII  fill  60  TO  6120 

NTl=NTl+9 

AA(NTl)  =(  1*1  )/2 

AA(N11*1  )=2. 

A At  NT  1+2  )=V1( I ) 

AA(Ntl  + 31=V)(I  + l> 

6120  CONTINUE 

00  6190  1=1,39,2 

IFINEGOI  UUI)»  GO  TO  6190 

NTl=NTl+9 

AA(NIl)  =U+l)/2 

AA(NT1*1)=5. 

aac Ntl+2 )*U1{ X ) 

AAt  NT1  + 3 1=911  I + l ) 

6190  CONTINUE 

IFINEGOISAM  >>  60  TO  6220 

NT1=NT1*9 

AA(NTl)  =1. 

AA(  NT  1 + 1 >=3. 

aai  NT1+2 1=  SANK  1 ) 

AA(  NT1+3  )=  SANK  2) 

6220  IFINEGCIAlTI  1)  60  TO  6230 
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497 

49a. 

499. 

500. 

501. 

NT1=«T1*H 
AACNT1)  >1. 

AAl  NT1*1 >=H. 

A A 5 NT  1+2)-  ALTU1) 
AA(NTl+3>=  ALT  1(2) 

INEDIT 

INEDIT 

INEDIT 

INEDIT 

INEDIT 

5 02 

6230 

1 Ft  NEGOt  PS 1 1 ))  GO  TO  6240 

INEDIT 

02  HO  — 

503. 

NTUNTl-Mt 

INEDIT 

504. 

AAtNTl)  =1. 

INE01T 

505. 

A At  NT  1*1  1=6 

INEOIT 

50b. 

AA(  NT  1+2 )—  PSIK1I 

INEDIT 

507 

AAt  NT  1+3  ) = PSI it  2 ) 

INEDIT 

508 

6240 

1F( NEGOt  fiHOl  ))  GO  TO  6250 

I NED IT 

"?25b— 

509 

NT1=NT1*4 

INEOIT 

510. 

AA( NT1 >=1. 

INEOIT 

511. 

AAt  NT1+1 )=T. 

INEOIT 

512 

AA(NTl  + 2>  = RHOH  1) 

INEOIT 

513 

AAt  N71+3)=  R HO  It  2 ) 

INEDIT 

514 

6250 

IFtNEGOlflUl  1)  60  TO  6260 

INEDIT 

?260— 

515. 

NT1=NT1+* 

INEDIT 

516. 

AAt NT 1 )=1. 

INEDIT 

517. 

AAt  NT1+1 >=8. 

INEDIT 

516. 

AA(NT1+21=  flimi) 

INEOIT 

519 

AAt  NT  1*3 )=  HUH  2) 

INEOIT 

520 

6260 

I Ft  NEGOt  HI  ))  GO  TO  6270 

' INEOIT 

~tz  7 C — 

521. 

NT l=NTl+4 

INEDIT 

522 

AAt  NT  1 )=■  i . 

INEOIT 

523. 

AAt  NT 1 + 1 1=10. 

INEDIT 

524 

AAt  NT  1*2)=  Hl(l) 

INEDIT 

525. 

AAt  NT  1*3  )=  HU  2) 

INEDIT 

526. 

6270 

1F( NEGOt SOI  )>  GO  TO  6260 

INEOIT 

^280— 

527. 

NT1=NT1*4 

INEOIT 

528. 

AAt  Nil  1=1 . 

INEOIT 

529. 

AAt NT 1+1 >=11. 

INEOIT 

530. 

AA(NTl+2>=  SO  1(1) 

INEOIT 

531 

AAt  NT  1 + 3 1=  591(2) 

INEOIT 

532. 

6280 

Ic<  NEGOt  TIH1  ))  GO  TO  6290 

INEOIT 

?290— 

533 

NTlsNTl-M 

INEDIT 

534. 

AAt NT1 J=l. 

INEDIT 

535. 

AAt NT  1 + 1 )=9. 

INEDIT 

536. 

AAt  NT  1*2  >"  TlHlt 11 

1 NEDIT 

537. 

AAt  NTl  + 3 >=  TIHK2) 

INEDIT 

538 

6290 

CONTINUE 

INEOIT 

539. 

NT  1 -NT 1*3 

INEDIT 

540. 

NT2=NTl-3 

INEDIT 

541. 

IF<  NESC(  PAYOFF ) ) 60  TO  6510 

INEOIT 

6510— 

542. 

NT2-NT2+N 

INEOIT 

543 

AA<*T2>  = PAYOFF 

INEDIT 

544. 

AA(NT2*1)=  A3S(  PAYBFFt  2)  ) 

INEDIT 

545 

AA(  NT 2*2 )=  Si  GN(  2 PAYOFF! 2 ) ) 

INEDIT 

546 

AA(NT2<3)=  PAY0FF(3> 

INEDIT 

547. 

6510 

DO  6550  1=1,22,3 

INEDIT 

548 

IFt  NEGOt  CNl(m)  60  TO  6550 

INEOIT 

6559  — 

549. 

NT2=NT2-*9 

INEDIT 

550. 

AAt  NT2)  = CNlt 1 ) 

INEOIT 

551 

AAt  NT2+1  >=  CNUI+l) 

INEOIT 

552. 

AAt NT2+2 )=0. 

INEOIT 

553. 

AAt  NT2+3  )=  CNltI+21 

INEDIT 

554. 

6550 

CONTINUE 

INEOIT 

555. 

DO  6580  1= 1,39,2 

I NEDIT 

556. 

IFt  NEGOt  CTK  1 } i ) GO  TO  6580 

INEOIT 

6580  — 

557. 

NT2=NT2+4 

INEOIT 

558 

AAt  NT2  ) =( 1 + 1 )/2 

INEDIT 

559 

AAt  NT2+1  )=A65tCTl(D> 

INEOIT 

560 

AAt  NT2+2 )=SlGNt 1 ..CTIC I ) > 

] NEDIT 

561 

AAt NT2+3  )=CT1( 1 + 1 > 

INEOIT 

- 5 62 

6580 

CONTINUE 

1 NEDIT 

563. 

NT2:NT2-NTl*3 

INEOIT 

56H. 

NT  = HT1*NT2 

INEOIT 

565 

IF(NT1  EO.Ol  GO  TO  6610 

INEOIT 

6610  — 

566. 

JTOT(  1 )=1 

INEDIT 
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I Ft  NT  2 £ Q 0)  GO  TO  6600 

J TO  I c 2 )=NI 1* 1 

NTOT-3 


6620  NT0T=1 

GO  TO  5850 


6650  CONTINUE 
HT-NT+3 
JTOTf 11-1 
NT0T  =2 
GO  TO  5850 


INEOIT  6605 

INEOIT 

INEOIT 

INEOIT  1 5850- 


571 

572 

66G0 

NT0T=2 
GO  TO  5850 

INEOIT  1 
INEOIT  | 

573 

6610 

I F( N|2  £0.0)  GO  TO  6620 

INEDIT  1 

"2620—1 

579 

JTOTC 1 1=0 

INEDIT 

575. 

JT0T(2)=1 

INEDIT 

576 

NTflT=3 

INEDIT 

577 

SO  TO  5850 

INEDIT  j 

5 

INEOIT 

INEOIT  5850“ 
INEOIT 


6800  NT  =“3 

INEDIT 

IN=0. 

INEDIT 

DO  6850  1=1,115,6 
XN=XN+ 1000000. 

INEDIT 

INEDIT 

J Ft  WE  S0(  PH1(  I > ) I SO  TO  6850 

INEDIT 

NT=MT+N 

INEDIT 

AA(NI)  =.  XN.PHH  1 )*IOOO.+FHll  1*1  > 

INEDIT 

AA(MT*1>=  FHK  1+2  > *1000000.  ♦ PHltI.3) 

INEOIT 

AA(  NT  + 2 )=  PR1C  M) 

INEOIT 

AA( NT  + 3 ) = PH1( 1+5 ) 

INEOIT 

7GC0  CONTINUE 

C IF( FATAL. NE  0 ) 60  TO  7300 
WRITE  (OUT ) I DENT 
IFIINIBO  £0.9999)  GO  TO  7200 
IFCNT.EO  0)  GO  TO  7100 

WRITE  (OUT)  ALPHA,!  AA(  I),  I^JTO,  KTO  ),(  ITOT(  I >,I=1,WT0T>, 

W ' i AA(  I ),  J=JT  ,KT  ) 

GO  TO  5100 

J1C0  WRITE  (OUT)  ALPHAS  AA(  I >,  I=JTQ,*TO  >,OUfl*Y 
GO  TO  5100 


Wqi. 

72  CO 

1 FC  FATAL.) 

608. 

REWIND  1 

609. 

CALL  5(2) 

610. 

CALL  St  8) 

611. 

RETURN 

6)2. 

7300 

I F(  I NT  BO  1 

613 

7900 

CONTINUE 

619. 

STOP 

615. 

END 

INEOIT 
INEDIT 
INEDIT 

1NEQIT  7200- 
I NED  IT  7100- 
INEDIT 
I NEDIT 
INEDIT 


INEDIT  7900—1 

INEOIT 

INEDIT 

INEDIT 

INEOIT 

INEDIT  5100- 
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Subroutine  PACKER 


Pu  fpos  e 

Subroutine  PACKER  packs  univariant  and  bivariate  tables  for  inclusion  on 
file  1. 

Description 

PACKER  is  called  by  INEDIT  to  process  the  input  data  tables  into  a form 
that  is  stored  on  file  1. 


124 


subroutine  pamerca,lna ,«wt>  inedit 

DIMENSION  AC  I I INEQIT 
CQMMON/TT/I NI  BO,  I NTRR,  I NTCS, 1PC,  NALPHA.  NTABO,NTAB,NT.NTOT,JTOT131 1 INEDIT 
NT=1  INEDIT 
LL-LNA-AkIT*l  INEDIT 
AMTHI=IWT-J  INEDIT 
N0T=0  INEOIT 
DO  1000  I=l,LL,NktT  INEOIT 
NOT=NQT*l  INEOIT 


10. 

IFMUn.EO.O.  .AN  0. 

SIGNC1.,ACI  ll.LT.O.  1 

GO 

TO 

600 

INEDIT 

11. 

JTOTtNOT)=NT 

INEDIT 

1 2. 

300 

K=l+MiW 

INEOIT 

13. 

00  100  J=I,*,2 

INEOIT 

1*1. 

1 Ft  A(  J > , EO  - 0.  .AND. 

SI6N(  I .,A{  J ) I.LT.O.  ) 

00 

TO 

500 

INEOIT 

15. 

A(  NT  AUI 

INEOIT 

16. 

A(  NT  + 1 >=  At  J+l  ) 

INEDIT 

11. 

*00 

NT=NT+2 

INEOIT 

18. 

500 

NTOT=NQT 

INEOIT 

1? 

SO  TO  1000 

INEDIT 

20. 

*00 

JTOTt  «QT  )=0 

INEDIT 

21. 

1000 

CONTINUE 

INEOIT 

22. 

NI=NT-1 

INEDIT 

23. 

NT0T=NT0T*1 

INEOIT 

21. 

RETURN 

inedit 

25. 

END 

INEOIT 

ZO  OCT  TZ  G 0 1-N(» 
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SUBR0UT INE 
S 


1. 
2 . 
3 

N , 

5 

6 

7. 

8. 
9. 


SUBROUTINE  SCL) 

COnnON/TT/II<3) 

CALL  SECONO(T) 

OT=T-TO 

URITE{6.1)  L,T,DT 

1 P0RriA7(25H  **#fSARK  TlHE  AT  LOCATION,  1 2, 3H  7s,F6.3,f>H  DT  = F6  3) 

RETURN 

END 


INEOIT 

INEOIT 

INEDIT 

INEDIT 

INEOIT 

INEOIT 

INEDIT 

INEDIT 

INEDIT 
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Input  Scan  (G  El  IMP)  4 


1Z8 


CONTENTS 


Subroutine  GEINP 

Subroutine  BLIC0 

Subroutine  BNDRYC 

Subroutine  MOMENT 

Subroutine  SPICO 


SUBR0UTINE 

GEINP 
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GEINP 


Purpose 

GEINP  reads  various  data  sets  from  the  input  tape  file,  puts  some  m 
common  blocks,  and  calls  other  routines  that  process  data  before  storing. 


Description 

GEINP  is  an  overlay  program  on  CDC  equipment  whereas  it  is  a subroutine 
on  the  UNIVAC  system. 


The  data  that  GEINP  uses  is  fetched  by  calling  TABIN  according  to 
"Part  Case"  number.  (TABIN  reads  the  data  from  unit  1.  For  a description 
of  how  data  gets  on  unit  1 see  Subroutine  INEDIT).  The  part  cases  that  are 
read  in  this  routine  (in  the  same  order  as  read)  are: 


Part  Case 
Number 


Description 


Common 

Blocks 


1 

11  — 30 
6,  7,  '8 

9 

10 
2 


GLOBAL,  data  and  univariant  tables  (sub- 
routine SPLIC0  spline  fits  tables  and 
stores  them  in.  common  block/ TABLE/ ). 
BLOCKS  OF  ARC  DATA  read  in  and 
processed  by  FXDAT  and  then  stored  on 
random  file  9,  records  1 through  20. 
Bivariate  aerodynamics  tables  read  in 
and  processed  by  subroutine  BLIC0  and 
stored  on  random  files  33,  34,  and  35, 
respectively. 

Bivariate  Airbreather  thrust  table,  read 
in  and  processed  by  subroutine  BLICfJ 
and  stored  on  random  file  36. 

SIZING  Data  is  read  in’  and  stored  in 
/SIZING/ 

Boundary  condition  data  is  read  in  and 
processed  in  BNDRYC. 


/GLOBAL/ 

/TBLE/ 

/ ARCD  AT  / 
/BICUBE/ 

/BICUBE/ 

/SIZING/ 


It  is  stored  after  processing  on  random 
file  9,  record  2 1, 


flAIH 

svcpoi 


DESCRIPTION 


S TOR  ARC 
(HULK  l 


Aerodynamic  referanct  area 


<ft2,  /ARCDAT/I  1 


W Packed  array  of  boundary  condition* 
ft  Integration  Interval 


ft  Print  frequency  for  trajectory 
I ' Earth  radi ui 


/GEINP  /(* 
< SEC  ) /ARCDAT/f 


/ ARCDAT /{ 


(FT)  /GL08AL/< 


(FT/SEC2) 


I Gravitational  acceleration  at  surface  of  the  earth.  /GlOBAL/( 

(FT/SEC2) 


c 

GU6H  1 

:ooe 

VAR 

1 ) 

6 MTS 

i 

ARCDA 

E0UA3 

i 

SREF 

FNTG 

i 

ARCDA 

FtDAT 

i 

ARCDA 

FXDAT 

0 

1ARCDA 

GE1  NP 

n 

ARCDA 

SOINP 

i 

ARCDA 

SIZiN 

i 

ARCOA 

Si  2 1 N 

n 

SREF 

THRUST 

i 

SREF 

VT 

i 

SREF 

) 

GEINP 

u 

BNARR 

5) 

BNT3 

i 

OTNC 

FNTS 

i 

OTNC 

GEINP 

n 

dtnc 

PfiOPIN 

i 

dtnc 

6) 

FNTS 

i 

OTP  I 

GEINP 

pi 

DIPl 

2) 

COORDS 

i 

ER 

CRASH 

i 

REM 

E0UA3 

i 

ER 

GEINP 

i 

ER 

PADS  1 

i 

ER 

POBC 

i 

ER 

sons 

i 

ER 

TRTOSZ 

i 

ER 

1 ) 

ACCEL 

i 

SR 

BL5 

i 

SR 

EOUA3 

i 

SR 

FH3 

i 

SR 

GEI'JP 

i 

6 

GEINP 

i 

SR 

GEINP 

0 

I S 

OUT 

1 

SR 

PAD51 

I 

SR 

PDBC 

1 

GR 

REUS 

I 

SR 

SOI  NP 

I 

GR 

SIZE 

I 

GR 

SIZ1 

I 

SR 

SIZ2 

l 

SR 

SIZ3 

I 

SR 

SIZ4 

I 

SR 

SOOG 

I 

SR 

STAU 

I 

SR 

1 ) 

ACCEL 

I 

SR 

BL5 

I 

SR 

EQUA3 

I 

SR 

FH3 

1 

SR 

GEINP 

I 

S 

GEINP 

I 

SR 

GEINP 

0 

IS 

OUT 

I 

GR 

P ADS  1 

1 

GR 

POBC 

I 

GR 

REU3 

I 

GR 

SDINP 

I 

GR 

SIZE 

I 

GR 

SI  21 

I 

GR 

SIZ2 

I 

GR 

SIZ3 

I 

GR 

S1ZH 

I 

GR 

SOftG 

I 

SR 

STAU 

I 

GR 
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code 


DESCRIPTION 


rOIHRAN  PIAT  H 

SYMBOL  SYI1BUL 


SUBROUT  I ME  USAGE 
SUBH  (DOE  YAH 


IFATAL 
I G 


J TAB 
JAER 

JAF 
J PRO 

KTAB 

LUfl 

(IAEA 


i 

A four  word  array  containing  the  bade  deck. 

/GLOBAL/i 

21  ) 

BLICO 

I 

ID 

reference  run,  case  and  part  cate  numbers  In  that 

FRENCH 

I 

ID 

order 

GEINP 

I 

10 

PADS1 

D 

10 

PRINT 

I 

10 

5 0 1 NP 

1 

ID 

TOPn 

I 

ID 

VEHOF 

I 

10 

0 

Fatal  error  flag. 

/GL’OBAl/i 

IT) 

BLI  CO 

n 

IFATAL 

GEINP 

0 

IFATAL 

PADS1 

i 

IFATAL 

SDINP 

n 

IFATAL 

SPLICO 

n 

IFATAL 

SIP  I T 

0 

IFATAL 

topd 

n 

IFATAL 

0 

Gravitational  acceleration  at  surface  of  the  earth. 

/GLQBAL/I 

1 ) 

ACCEL 

i 

GR 

( FT/SEC2) 

BL5 

i 

GR 

EQUA3 

1 

GR 

FH3 

i 

GR 

GEINP 

I 

G 

GEINP 

l 

GR 

GEINP 

0 

IS 

GUT 

i 

GR 

PA0S1 

i 

GR 

PDBC 

i 

GR 

REU3 

I 

GR 

SDINP 

i - 

GR 

SIZE 

i 

SR 

SIZ1 

I 

GR 

SIZ2 

i 

GR 

SIZ3 

l 

GR 

SIZH 

i 

GR 

* 

sons 

i 

GR 

STAU 

l 

GR 

] 

A 20  aord  array  containing  the  nuaber  of  nontero 

/GLOBAL/i 

35) 

GEINP 

I 

ITAB 

state  initial  conditions  specified  at  the  beginning 

SDINP 

i 

ITAB 

of  each  subarc. 

SIZIN 

i 

ITAB 

.1 

Aerodynamic  model  option  flag 

/ A3  CDAT/( 

9 > 

BEROCO 

l 

JAER 

E3UA3 

i 

JAER 

GEINP 

I 

JAER 

OUT 

i 

JAER 

PfiOPB 

i 

JAER 

PROPIN 

i 

JAER 

, 

VT 

l 

JAER 

u 

Saved  aero  option  codes  for  each  arc 

/GEINP  /(» 

) 

GEINP 

u 

JAF 

I 

Propulsion  model  option  flag 

/ A3C0AT/C 

10) 

EQUA3 

1 

JPRO 

GEINP 

1 

JPRO 

InJP-UL 

I 

JPRO 

RODELA 

I 

JPRO 

PROPB 

I 

JPRO 

PROPIN 

I 

'JPRO 

I 

A 20  word  array  containing  the  number  of  state 

/GLOBAL/C 

25) 

GEINP  ' 

I 

KTAB 

target  conditions  specified  at  the  end  of  each 

SOI  NP 

I 

KTAB 

subarc. 

SIZIN 

I 

KTAB 

I 

Pro  gr  am  contro  1 flag. 

/GLOBAL/I 

6 ) 

AST3 

1 

cun 

LUn  - 0:  Steepest  descent  only; 

FNTG 

I 

LU« 

LUO  - 1 Steepest  descent  and  adjoint 

GEINP 

I 

Lun 

. 

transformation  stored  on  tape; 

PAD51 

n 

lun 

LUn  = 2.  Steepest  descent  and  8L; 

SDINP 

I 

lun 

MM  = 3:  QL  only. 

TOPPI 

n 

LUlf 

1 

Curve  number 

/ AR  CDAT/( 

18  ) 

EQUA3 

i 

(IAEA 

GEINP 

i 

HAEA 

PROPB 

i 

,OAEA 

PROPIN 

i 

(IAEA 

/ 
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1 HU  1 ll  AN  MAI  H 

IVPIIMII  'tVHWOl. 


DESCRIPTION 


PSIRF 

* 

r 

I 

Reference  aztauth. 

TARG 

I 

Packeii  array  of  target* 

XLAMRF 

flr 

I 

Reference  latitude. 

YP1URF 

"r 

I 

Reference  longitude. 

. UN06. 

0 

File  of  all  output  data 

(RAD/SEC) 

( DEG) 

(DEG) 

(DEG) 


STORAGE  SUBROUTINE  US ftS' 
BIOU  LOG  31JBR  LODE  VAR 


/GLOBAL/C 

IB) 

FN1G 

I 

NARC 

GEINP 

(1 

NAftC 

PROPIN 

I 

NARC 

SD1NP 

I 

NARC 

SIZIN 

I 

NARC 

/ 3L0BAL/( 

3 ) 

AD  1 03 A 

I 

OMGZ 

CRASH 

1 

OMEGA 

DER3A 

I 

OMGZ 

E0UA3 

1 

OMGZ 

GE1NP 

I 

OMGZ 

MOOELA 

I 

OMGZ 

MOOELB 

I 

DMGZ 

PDBC 

I 

OMGZ 

PDV3A 

I 

OMGZ 

SDINP 

I 

OMGZ 

TOPn 

r 

OMGZ 

/ GLOBAL/! 

68  ) 

GE1NP 

i 

PSIRF 

REU3 

i 

PSIRF 

SDINP 

m 

PSIRF 

/SEINP  /(* 

> 

GE1NP 

i 

TARG 

/GLOBAL/t 

A ) 

CRASH 

n 

RHOO 

GEINP 

i 

XLAMRF 

REU3 

i 

XLAMRF 

SDINP 

n 

XLAMRF 

/GLOBAL/t 

5 ) 

CRASH 

rt 

UMUO 

GEINP 

I 

YMURF 

REU3 

I 

YMURF 

SDINP 

n 

YMURF 

/ . UN06 . /( S 

) 

BLICO 

0 

. UN06. 

BNCRYC 

0 

. UN06. 

CRASH 

0 

. UN06. 

FRENCH 

0 

. UN06. 

FXDAT 

0 

•UN06. 

GEINP 

0 

. UN06 . 

HUNT 

0 

. UN06 . 

INEDIT 

0 

. UN06. 

ITER8 

0 

. UN06 . 

BQ BELA 

0 

. UN06 . 

rtOMJ 

0 

. UN06 . 

MPSI 

0 

. UN06. 

OUT 

0 

. UN06 . 

PAV02 

'0 

. UN06 . 

PRINT 

0 

. UN06 . 

PRINTV 

0 

. UN06 . 

PRINTui 

0 

. UN06 . 

PRITEO 

0 

. UN06 . 

PRITVA 

0 

. UN06. 

PROP  1 N 

0 

i.  UN06 . 

PRO  THR 

0 

UN06 

PRUTS!) 

0 

UN06 

RANGE 

0 

-UN06. 

S 

a 

. UN06. 

SDINP 

0 

. UN06. 

SIZE 

0 

UN06 

SIZIN 

0 

UN06 

SIZOUT 

0 

. UNOfc . 

SOLVE 

0 

. UN06 . 

SPL1C0 

0 

UN06 . 

SPLIZ 

0 

. UN06 . 

SPLVNE 

0 

UN06. 

SS5P 

0 

UN06 . 

STAU 

0 

UN06 

STPIT 

0 

. UN06 . 

SUnDUT 

0 

. UN06 . 

TABIN 

0 

. UN06 

TEST 

0 

. UN06 . 

VEHDF 

0 

. UN06 

UTSCH 

0 

. UN06 , 

UT  VOL 

0 

. UNO& . 
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GEINP 


PROGRAM  GEINP 

INPUT  ROUTINE 

READS  IN  GLOBAL.  ARCOAT,  TABLE.  BIVARIATE  DAT  A,  SUJ  NG(  PHASE  I 
AND  BOUNDARY  CONDITION  DATA  AN&  PROCESSES  IT 

COrtflON/GLOBAL/ 

*GR  ,ER  .OPIGZ  , XLAfifiF  , YrtURF  , LUrt 

*,JJOPtlO>  , I FATAL  NARC  N&RAN  ,NF6RC  ,10(9) 

*,  KTA&t  20  ),  iTABt  20  ) .SIB  .nAXTAB 

*,Grt  ,PSIRF,IPFL61 , IPFLG2,  IPFLG3, 1PFLG9,  I NEQFLt  20  ) 

*, ITPSO  , KSQL  ,KSLOBLt  8 ) 

COnnON/ ARCDAT/ 


.YrtURF 
, NFARC 


♦ SREF 

,EJ 

,X1SP 

, TrtOLT 

,DTNC 

♦ I ATrt 

,IHQDE 

'j&ER 

,JPRO 

, QtlAX 

♦ XU1AX 

,HDMAX 

,GrtDOT 

, ALFrtAX 

, P HflAX 

♦MAEB 

,rtAEC 

rtAED 

, rtAEF 

trtlSP 

, rtXCG 

,MZCG 

. nUD  A 

*«0B 

, XCGR 

, ZCGR 

,XE 

,ZE 

♦ DREF 

, flCND 

,RHOB 

,o«uti 

, RErtAX 

* .FRATE  , ARCDC 9 > 

DIMENSION  ARCQA<90> 

EQUI VALENCE( SREF , ARCO A > 

DIMENSION  BNARRC900),  TARGC 100  ) 

EQUIVALENCE  ( BNARR( 301 1, TARGC l >>,( A. Ill  ) 
DIMENSION  GC  1 ),TErtPC5t  ).  A(  1000  >,  1 1 1(  100  >,  IGt  1 > 
EQUIVALENCEC GR,G>  ,C6R,IS) 

COrtrtON/LASTAB/  L5TUD 
COrtrtQN/T  ABLE/  TABLEC2C03) 

COrt.lON/TBLE/TB LEC 2000  > 

REAL  HUB.  rtUO,  ISPB,  ISPO,  10VEL,NNB,N0 
COrtflDN  /SIZING/ 

PHASE  11  SIZING  PARArtERERS 
*TZ,  VVt  3 >.  0P<19>,  EftOR,  PZC5J, 

♦SVC28),  SC(  37.5 ),  SEU1),  TLAT,  TLMG, 
PHASE  I SIZING  PARArtERERS 


♦ UBO,  ULOO,  DUES,  OUEO,  TOLUT.  UPB,  TURAT2, 

*BX1_  BK2,  6X3,  8X9,  ISIZE,  TRAFLG,  TURATfl , 

♦OKI,  0X2,  0X3 , GK9,  PfiFLS,  IPASS,  IPSrtAX, 

♦AEXIT,  TVACO,  NO,  UFO,  1DVEL,  ISPO,  ISPB, 

♦ XPL,  TVACB,  NN&,  U£0,  WEB,  UO,  ULO, 

*OVO,  DVB,  NUBr  «U6,  VSTG,  UP0 

», JTYP,  BECO  , BSTG  , ORBI,  ITN6U  , ITNOU  , 

♦ SVDPSQ  , SVOCON  , I HUNT  , IOPSTG<  , I5ZDC19) 

EQUIVALENCEC SIZ.WBD  ) 

DlnENSION  SIZC 1 > 

DIMENSION  JAFC80) 

DIMENSION  IFACTC9) 

DATA  1FACT/10HST. DESCENT  ,ICHST  D+TAPE  , iOHST .D.+OLI N ,1CHQUAS.LI 

IN.  / f 

LOGICAL  IFAT 
I ERR  = 0 
MN=  1 

I FETCH  GLOBAL  AND  UNIVARIATE  TABLE  DATA 
CALL  TABlNt  A,  I, G,  102, T RLE,  MOO,  ID,  HN,  i,  IEOD  ) 

IFATAL*. FALSE. 

'I ~A  FIX  FLOATING  PT.  NOS. 

IGC  6 )=fi(  6 > 

I6(9>=St9> 

IGt 10)=GC 10) 

IGt  n >=6C 1!) 

IGt 12  )=0 
IGtl3)=0 

i6cm=o 

IG(15)=0 

zee  18 )=  &(  18) 

IGC69)=GC69> 

IGt 70  >=G( 70) 

1GC  71  >=G<  71) 

IGC  72)~Gt  72) 

I G(  93  )=G(  93  ) 

IF( I EOO )1 0,20,200 

10  IERR=1 

URITEC  6,210  «N 
GO  TO  SO 


UPB, 

TRAFLG, 

IPASS, 

ISPO, 

“2*0 
ITNON  , 


TURAT2, 

TURATO, 

IPSrtAX, 

ISPB, 

ULO, 


GEINP 

CONN 

COrtN 

C0I9N 

COflN 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

RETAP 

ARCDAT 

ARCOAT 

ARCDAT 

ARCDAT 

ARCOAT 

ARCDAT 

ARCDAT 

ARCDAT 

RETAP 

ARCDAT 

ARCOAT 

GEINP 

GEINP 

POIR 

GEINP 

GEINP 

GEINP 

GEINP 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SUING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

UH 

PH1SZ 

PH1SZ 

GEINP 

GEINP 

GEINP 

GEINP 

GEINP 

GEINP 

GEINP 

CORN 

NOS 

POM 

COHN 

GEINP 

GEINP 

GEINP 

GEINP 

PD  1 9 

POM 

POM 

POM 

GEINP 

GEINP 

GEINP 

GEINP 

GEINP 

NOS 

GEINP  10- 
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20  IFIG11>»G12>  HE.  0 ) CD  TO  30  SEINE  AO- 

WRITE!  6,2201  Gl  1 >,GI2>  SEINP 

IFAT  AL=.TRUE. SEINP 

30  CONTINUE  SEINP  * 

lFINARC.LT.il  HRRC=1  HOS 

tFtNARC.6T.2C>  NARC=20  COS 

WRITE!  6, HQ)  IFACTlLUH*n,SR,ER,0nS2,XLAPlSF,VftURF,P5JRF  SE1  HP 

50  FORnAT< 1H1,36X,  95HnCOONNEU.  DOUGLAS  ASTRONAUTICS  COMPANV  - NEST / St  I HP 
195X,  29HTABTOP  COMPUTER  PROGRAM-P 155 1 7/5X, 1 IKSlQSAL  0ATA/6I,  SET  HP 

215HTH1S  MILL  BE  A AlO,  AH  RUN//6X,  6H£RAVITYtF9.5,15H  EARTH  RADIUS  SEIHP 
3=  SEINP 

5F12  2, 15H  ROTAT  RATE=E1 5 .6, 13H  REF.  LATIT  =F9.5,15H  REF.  LONS.  SEINP 
5=F9  . 9/ 6X,  9HR£F.AZ1M=F9.5)  SEINP 


CALL  SPLICO 


FIT  UNIVARIATE  TABLES 


11  REAP  IN  ARC  OATA  .PROCESS  AND  STORE  OH  RANDOM  FILE 

50  flN-11 

WRITE!  6,001 
60  FORMAT!  1HI) 

CALL  TABI N( DUMMY, t , ARCDA, 51,RUMMY,1 , ID, MHO, I EC D> 

IF!  I £00  .EB.  0)  CO  TO  16 
I ERR  = 1 
WRITE! 6,210)  AN 

60  TO  150 

70  DO  80  1=1,51 
SO  TEMPI!  ) = ARCOA(I) 

CALL  FXDAT! 11 

CALL  WRITHS19,ARC0A, 51,11 

II-A  SAVE  XEV  OPTION  FLAGS  AND  SET  NUMBERS 
JAFI  I !=JAER 
JAFI  21=MAEA 
JAFI  31=  JPRO 
JAFI  51=  HVDB 
IF! NARC.EO.il  SO  TO  150 
DO  130  I ARC=2  NARD 

CALL  TABINI0UnnY,l,ARCBA,51,R!)NMY,l,I0,lARC*l0,0,IE00) 

IFIIEOC  .EO.  01  GO  TO  90 

CALL  STPf T! 9B1 

90  CONTINUE 

00  106  1=1,51 

IF!  ABSIARCDAII 11  .NE.  0.1  SO  TO  10O 

I FI  Si  GUI  1 . , ARC0A1  111  -LT,  0.1  ARCDA!  I ?=  TEMPI!! 

100  CONTINUE 

EFCDTP1.E0.0. 1 OTP  1=1 . 

IF!  DTNC,EO.O. I DTNC=I. 

110  DO  120  1=1,51 

120  TEMPI  I ) = AHCOAI I I 
CALL  FXDAT!  I ARC) 

CALL  WRITMSI  9,ARCDA, 51,IARC) 

X0=!  I ARC— 1 )«5 
JAFI  XO-H )r JAER 
JAF!  X0+2)=MA£A 
JAFI  XO+3 )=  JPRO 
JAFI X0+5)=  MUBB 
130  CONTINUE 


150  CONTINUE 

C III  TEST  FOR  BIVARIATE  TA 

00  155  1=1, NARC 
K0=5»(  1-1  ) 

IFIJAF(K0*1).NE.2)  GO  TO  150 
CALL  BLICO!  JAF1XQ+21I 

150  CONTINUE 

1 FI  J AF(  KO+3  ).NE.  2 1 GO  TO  155 

CALL  BLICOI  JAFIK0*9)> 

155  CONTINUE 

C IV  READ  IN  SIZING  OATA 

MN=10 


BIVARIATE  TABLES  AND  BICUBIC  SPLINE  FIT 


SET  FLAGS 


SEINP 

SEINP 

SEINP 

FRAT 

SEINP  70- 
SE1NP 
SEINP 
SEINP 


SEINP 

FRAT 

SEINP  50- 
SEINP 


CALL  T ABINI DUMMY, 1 , SI Z, 70, RUMMY, 1 , 1 0, MN,C, 1 £00  1 
IFI  IEOB.NE.O)  SO  TO  152  ' 
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196. 

CALL  IPR(  3HS1Z  ,512,1,70,0) 

PH1SZ 

197. 

IPASSsl  ' 

PH1SZ 

IH8. 

JTYP“$I 2t  92 ) 

UH 

199 

IF(SIZ(2l)  EO.O.)  S1Z<21)=6. 

FINl 

150. 

1 HUNT  - S1ZI50) 

P0U 

151. 

10P5TG  = SIZ151) 

OS 

152. 

GO  TO  153 

PH1SZ 

153. 

152 

JTVP  =0 

PH1SZ 

ZZ J 

15H. 

153 

CONTINUE 

PH1SZ 

155. 

*H=Z 

GE1NP 

156- 

c 

V 

COnN 

157. 

C READ  IN  BOUNDARY  CflNOITION  DATA 

SE1NP 

158 

CALL  TABIN<DUH(iy,l, RUlWY,  1,  A,  1000,  I D, HN.O,  1 EOD  1 

SEINP 

159. 

IFtlEOD  . N£ . 0)  SO  TO  160 

GEINP 

1 60-”i 

160. 

IFUII  EQ  . 3 ) SO  TO  170 

SEINP 

1 

161. 

160 

WRITE!  6 210 ) M 

SEINP 

162. 

60  TO  lYO 

SEINP 

190— 

163. 

170 

ILCl  = 9 

SEINP 

169. 

ILC2  - 3 + 1UC3> 

6EINP 

165 

00  180  1=1,900 

SEINP 

166. 

160 

BNARRtl )=0. 

SEINP 

167. 

IFAT=  .FALSE. 

SEINP 

168. 

CALL  BNDRYCI  A ILCl. IT Aft*  BNARR  300  ILC2— 1, I FAT  > 

SEINP 

169. 

JF(IFAT)  IERR=1 

SEINP 

170. 

IFAT  =. FALSE. 

SEINP 

in. 

CALL  TAAGCNI A, ILC2, KTAB, TAB6, 100,LSTH0, IFAT  ) 

SEINP 

172. 

IF(  IFAT1G0  TO  190 

SEINP 

190  — 

173. 

IFC IE8R.E0.1 1 GO  TO  190 

SEINP 

190  — 

179. 

CALL  IPR<9HKTAB,A,KTA&,NARC*1,U 

SEINP 

175. 

CALL  TPR(9H1TAB,A,ITAB,NARC+1,1) 

SEINP 

176. 

CALL  IPR(5HBNARfl,6NARB, 1.100,0) 

SEINP 

177. 

CALL  1PR( 9HTARS,T»R6,I,50,0) 

GEINP 

178. 

CALL  UR1THS19,8NARR, 900,21 J 

SEINP 

179. 

RETURN 

GEINP 

180. 

190 

CALL  STPITt  99 1 

SEINP 

h 


181. 

200 

CALL  ERIT 

GEINP 

182. 

210 

FORHATt 26H 

INPUT  ERROR 

IN  PART-CASEI3) 

GEINP 

183. 

220 

FORMAT ( 25H 

GLOBAL  DATA 

HISSING  GR=E17.8,9H  ER=E1T.81 

GEINP 

169. 

END 

GEINP 
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SUBR0UTINE 

BLIC0 


JL"8 


Subroutine  BLIC0 


Purpose 

Subroutine  BLIC0  computes  bicube  spline  coefficients  and  stores  them  on 
disc  or  drum  random  files. 


1.19 


BLXCd> 


UEAD  BTVAK.- 
XATt  t>MA  *fcT 
ItOTO  COKE 


1 

I 

s 

j 

I 




CCiUPlil  6 M,  THE. 
WUMteil  OF  RANKS, 
iTN  THE  6 R£t?  M IS 
ONE  LESS  THAN  NUM- 
BER op  6Mll?t£S 
IK  THE  MESH  ,A±  *. 


J 


34X00  ( C onitmted) 


t oh  I han 
SYMBOL 

mai  h 
SYMBOL 

rooE 

DESCRIPTION 

STORAGE 

SUBROUTINE 

USAGE 

BLOCK 

LOC 

SU8R  CODE 

VAR 

ALi  A 

PI 

A 31  nurd  array  containing  tht  aesh  y q , yj,.. 

/ B I CUBE/ ( 

235  ) 

BLICO 

n 

ALFA 

BLVNE 

i 

MACH 

AMAX 

0 

The  largest  value  of  the  second  Independent 

/ B I CUBE/I 

6) 

BLICO 

0 

AMAX 

y n 

variable  o i a bivariate  table. 

BLVNE 

1 

UMAX 

AMIN 

0 

The  smallest  value  of  the  second  Independent 

/ B I CUBE/C 

5 ) 

BLICO 

0 

AMIN 

'0 

variable  of  a bivariate  table. 

BLVNE 

i 

nrllN 

F 

I 

A 31  rnord  array  containing  the  aesh  * q , ej,.. 

/BICUBE/I 

201) 

BLICO 

1 

F 

BL1  CO 

n 

MACH 

BLVNE 

i 

ALFA 

ID 

I 

A four  aord  array  containing  the  basic  deck. 

/GL0BAL/( 

21  > 

BLICO 

i 

ID 

reference  run,  case  and  part  case  nunbtrs  In 

th»t 

FRENCH 

i 

ID 

order. 

GEINP 

i 

10 

P AOS  1 

D 

10 

PRINT 

I 

10 

SDINP 

1 

ID 

TOPfl 

1 

ID 

VEHOF 

I 

ID 

IF 

n 

Last  rank  In  the  grid  In  chlch  Interpolation 

/BICUBE/4 

T ) 

BLICO 

n 

IF 

occurred. 

BLVNE 

n 

1R 

INBVAD 

n 

1R 

I FATAL 

n 

Fatal  error  flag. 

/global/i 

17) 

BLICO 

n 

I FAT  AL 

GEINP 

0 

I FATAL 

P ADS  1 

i 

I F AT  AL 

SOINP 

ft 

I FAT  AL 

SPLICO 

rt 

I FAT  AL 

STPIT 

0 

I F AT  AL 

TGPM 

n 

I F AT  AL 

IFMAX 

n 

Total  number  of  ranks  in  grid. 

/BICUBE/t 

$) 

BLICO 

n 

1FMAX 

BLVNE 

i 

IRMAX 

INBVAD 

i 

IRMAX 

IREC 

n 

Logical  record  on  IUNIT  that  contains  spline 

/BICUBE/l 

m 

BLICO 

n 

IREC 

coefficients  for  rectangle  IRECT. 

BLVNE 

n 

IREC 

INBVAD 

N 

IREC 

IRECT 

n 

Grid  rectangle  associated  nith  IR  and  IF. 

/BICUBE/4 

10) 

BLICO 

« 

IRECT 

BLVNE 

n 

IRECT 

INBVAO 

rl 

IRECT 

[ RP1AX 

N 

n 

Total  n u a b e r of  files  in  grid. 

/BICUBE/4 

H ) 

BLICO 

n 

IRMAX 

BLVNE 

i 

IFMAX 

INBVAD 

i 

IFMAX 

I UNIT 

n 

Logical  unit  nuaber  on  ahl ch  bicubic  spline 

/BICUBE/4 

9 1 

BLICO 

m 

IUNIT 

coefficients  are  stored  for  this  table. 

BLYNE 

i 

IUNIT 

INBVAD 

I 

UNIT 

MACH 

n 

A 31  word  array  containing  the  Mesh  xq, 

/BICUBE/4 

2GB  ) 

BLICO 

i 

F 

BLICO 

n 

MACH 

BLYNE 

i 

ALFA 

MDAX 

X 

0 

The  largest  value  of  the  first  Independent  variable 

/BICUBE/4 

2 ) 

BLICO 

0 

MMAX 

N 

of  a bivariate  table. 

BLVNE 

1 

AMAX 

INBVAD 

1 

AMAX 

MM1N 

m 

The  saallest  value  of  the  first  independent 

/BICUBE/4 

1 ) 

BLICO 

n 

MMIN 

0 

variable  of  a bivariate  table. 

BLVNE 

i 

AMIN 

INBVAD 

l 

AMIN 

RDl 

I 

Angie  to  radian  conversion,  . 01  7*45329252 

/OATA  / 4 

3) 

BLICO 

i 

ROI 

DER3A 

i 

RDl 

FNTG 

i 

RDI 

GUI3A 

i 

RDl 

MODELA 

i 

RDI 

MODELS 

i 

RDI 

P ADS  1 

0 

ROI 

PROPB 

i 

RDI 

PROP  1 N 

l 

RDI 

REU3 

l 

ROI 

SDINP 

i 

RDI 

SONG 

i 

ROI 

30  OCT  72  G.OI-Afc 
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I Oil  I It  AM 

\ v mi  o i 


nAiH 

SYWitlL 


rune 


DESCRIPTION 


LOi- 


STOP  ay 


BLO  ,n 


S j R k 0 U T 1 N ~ USA,£ 

subr  ldoe  var 


t 


.UNOfc. 


1 A lbO  word  array  containing  logical  record  1REC 
0 File  of  all  output  data 


/ B I CUBE/I  11  ) BLICO 

1 

T 

BLYNE 

I 

T 

INBVAD 

I 

T 

/. UNOfc. /(»  ) BLICO 

0 

UNOfc. 

BNDRYC 

0 

. UNOfc. 

CRASH 

0 

. UN06 . 

FRENCH 

0 

. UNOfc . 

FXDAT 

G 

. UNOfc . 

GEINP 

0 

UNOfc. 

HUNT 

0 

. UN06. 

INEDIT 

0 

. UNOfc . 

ITERS 

0 

. UNOfc. 

HODELA 

0 

.UNOfc. 

nonj 

0 

.UNOfc. 

FIPS  I 

0 

•UN06. 

OUT 

0 

■UNOfc. 

PAY02 

0 

.UNOfc. 

PRINT 

0 

.UNOfc. 

PR  I NT  V 

0 

• UNOfc. 

PRINTS! 

0 

. UN06. 

PRtTEO 

0 

. UNOfc. 

PRITVA 

0 

•UNOfc. 

PROPIN 

0 

.UNOfc. 

PROTHR 

0 

.UNOfc. 

PRUTSH 

0 

.UNOfc. 

RANGE 

0 

-UNOfc. 

S 

0 

.UNOfc. 

SDINP 

0 

■UNOfc. 

SIZE 

0 

.UNOfc. 

SIZIN 

0 

•UNOfc. 

SIZOUT 

0 

UNOfc. 

SOLVE 

0 

.UNOfc. 

SPLICO 

0 

-UNOfc. 

SPLIZ 

0 

. UN06 . 

5PLYNE 

0 

.UNOfc. 

SSSP 

0 

•UNOfc. 

5TAU 

0 

•UNOfc. 

STPIT 

0 

.UNOfc. 

5UF10UT 

0 

. UNOfc. 

TABIN 

0 

UNOfc. 

TE5T 

0 

•UNOfc. 

VEHDF 

0 

.UNOfc. 

UITSCH 

0 

UNOfc. 

UT  VOL 

0 

. UN06 . 
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BLICO 


1. 

2. 

3. 

4. 

5. 

6. 
1 . 
8 
9 

10. 

11* 

12. 

13. 

1H 

15. 

16. 
17 
18. 

19. 

20. 
21. 
22. 
23. 
29. 

25. 

26. 
27. 
26 

29 

30 

31. 

32. 
33 

34. 

35. 

36. 
37 
36. 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 

47. 

48. 

49. 

50. 

51. 

52. 

53. 
54 

55. 

56. 

57. 

58. 

59. 
60 
61 
62 

63. 

64. 

65. 

66. 

67. 


SUBROUTINE  BlICOUSET) 

LOGICAL  iFATfiL,  O04EU),  UNEOUL,  RECYC 
REAL  flACrim,  nSAVE,  nrtU,  nnh t 
COrmON/ARCOAl/ 


BLICO 

BLICO 

BLICO 

ARCDAT 


♦sref 

,EJ 

,XISP 

,TMULT 

t DTNC 

, DTP  I 

, ARCDAT 

, 1H0DE 

, JAER 

,JPPO 

,0M  AX 

, GNAX 

, ARCDAT 

♦XLHAX 

, KOMAX 

, 6MD0T 

, ALFMAX 

, P HKAX 

,MAE» 

, ARCDAT 

•MftEB 

, MAEC 

,MAEO 

,MAEE 

rHAEF 

,maee 

' ARCDAT 

*AT 

,MISP 

,MXCS 

, MZCG 

jda 

,MWOB 

. ARCDAT 

*MD6 

, XCGR 

, ZCSR 

*XE 

,2E 

t XT 

, ARCDAT 

*DREF 

,HCNB 

,RHOb 

, QMULT 

REHAX 

ARCDAT 

* FRATE 

, ARCDt  9 ) 

RETAP 

ROI 

,sc 

,UMF 

,TMPF 

, OATA 

JOPt 

, J0P2 

, J0P3 

,J0P9 

DATA 

BLICO 

BLICO 

MMAX, 

IR,  IRMAX 

AMIN,  AMAX, 

IF,  IFHAX, 

6LIC0 

EQUI VALENCE! SREF, ARCDA ) 

CDnnON/DATA/ 

#PI  .RAD 

*FTNM  . CAR  ,J0P1 

COMMON  / GLOBAL/  Gil) 

COMMON  /TBLE>  Ull) 

COMMON  /BICUBE/  MKIN,  iHirtA,  lll|  innn*. 

1 1 U M I T , IRECT,  5REC,  Ct  32),  It  160),  Ft  1 1 
COMMON  /LASTAB/  LAST AB 
DIMENSION  I0<9) 

EQUIVALENCE!  6(21), 10) 

DIMENSION  ALF  At  1 ),  IUtl>,  PI  1922),  St  1922).  St  1922),  AVI  IB), 

1AXI  16),  XK!H>,  tiHPtlB)  ' ' ' 

EQUIVALENCE  UFATAL,  611?)),  (DONE,  St  12)),  tIU,  U>, 

KALFA,  FC  32 ) ),  (MACH,  F ),  (AV5,  ftVC  5 > ),  tAY6,  AY(6>), 

2IAV7,  AVt  7 ) ),  (AV8,  AVt  B ) ),  I AY19,  AV(  19)),  I AY14,  AVt  16  ) ) . 

3t  AX2,  AXl  2 ) ),  ( AX6,  AXt6)),  ( A»8.  AX(  6 ) ),  (AX10,  AX(10>), 

At  AX19,  AXtl9)>,  (AXIS,  AXtib)),  <XK1,  XKll)),  tXX2,  Ut2>), 

5(X*3,  XXI  31),  (XX9,  XXt  A ) ),  t XK5 , XX(5>>,  t XX6.  XXt6)>, 

6t  XK7 , XXI  7 ) ),  IXK8,  XXt  8 ) ) CXK9,  XK(9)),  CXK10,  XXtlOl), 

TtXXli,  XXtllh,  t XX12,  XX(i2>),  (XX13,  X*(  13  > ),  ( XX1A,  xfctl9>>, 

8(  XX15,  XXtJS)),  (XX16,  XXt  161) 

DATA  AX/1.,  5»0.,  .5,  9.0./, 

1AV/1-,  8*0. , .5,  6*0./ 

10  FORMATtiHO,  9HTHE  VALUE,  13,a9K  IS  AN  ILLEGAL  DATA  SET  FOR  BIVAR 
*1ATE  DATA  ) 

20  FORMATtiHO,  39HTHE  BIVARIATE  DATA  DATA  SET  NO,,  I3.1AH  WAS 

.NOT  INPUT) 

30  FORMAT! 1H0,  66HLESS  THAN  3 TABLES  OF  BIVARIATE  DATA  MERE  IMP 

*UT  IN  DATA  SET  , 131 

90  FORMATt 1H0,  L7HMDRE  THAN  31  TABLES  OF  BIVARIATE  DATA  MERE  IN 

♦PUT  IN  DATA  SET,  13) 

50  FORMATtiHO.  77HLESS  THAN  6 ENTRIES  PER  TABLE  OF  BIVARIATE 

.ta  were  input  in  data  set,  13) 

60  FORMATt 1H0,  78HM0RE  THAN  62  ENTRIES  PER  TABLE  pF  BIVARIATE  0 

.AT A WERE  INPUT  IN  DATA  SET,  13) 

70  FORMATtiHO,  26HBIVARIATE  DATA  TABLE,  13,  13H  IN  DATA  SET, 

♦13,  13H  IS  TDD  SHORT)  ' 

80  FDRMATt 1H0,  26HBIVARIATE  OATA  TABLE,  13,  13H  IN  DATA  SET, 

.13,  1ZH  IS  TOO  LONS)  ' 

90  FORMATtiHO,  THARS  1 =,  E15.7,  27H  IS  NOT  UNIQUE  IN  DATA  SET,  131 
100  FORMATtiHO,  6 KARS  2=.  E15.7,  iTH  IS  NOT  UNIQUE  IN  OATA  SET,  13) 
110  FORMATtiHO,  31HBIVARIATE  DATA  t DATA  SET,  13,  9H ) FOLLOWS) 

120  FORMATt 1H1,  J4HFIRST  FUNCTION  ) 

130  FORMATt 1K1,  16H5EC0ND  FUNCTION  > 

HO  FORMATtiHO,  it,  7HARG  1 =,  8E19.6) 

150  FORMATtiHO,  5HAH02-,  F10.5,  8E1N.6) 

160  FORMATt  IK  ' 15X,  SEU.O) 

170  FORMATtiHO,  2TH..... FATAL  INPUT  ERROR*....) 

IF( 6. L£. ISET. AND  ISET.LE.9)  SO  TO  180 
I FATAL  = .TRUE. 

HRITEt  6,170) 

URITEt  6, 10)  ISET 
RETURN 


ARCDAT 

ARCDAT 

DATA 


BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
FIXED 
FIXED 
FIXED 
FI  XFO 
FIXED 
FIXED 
FIXED 
FIXES 
DA  FIXED 
FIXED 
0 FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXES 
FIXED 
FIXED 
FIXED 
F1XE0 
FIXED 
FIXED 
FI1E0 
BLICO 
BLICO 
FIXED 
BLICO 
BLICO 
BLICO 
BLICO 


68.  180  I Ft  OONEl  ISET  - 5))  RETURN 

69.  DONE!  ISET  - 5)  = .TRUE. 

20.  CALL  TA8INI DUMMY.  1,  F,  70,  U.1959,  10,  ISET 

71  IFIIEOD  ,E0.  0)  60  TO  190 

72.  IFATAL  = -TRUE. 

73.  MUTE!  6,170) 

79  URITEt  6,20 ) ISET 

75.  RETURN 


,0,  1E0D) 


BLICO 

BLICO 

BLICO 

BLICO 

BLICO 

BLICO 

BLICO 

BLICO 
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193. 


20  OCT  T2  ff.Ol-Mfc 


n wo  ht  b iu  - i 

TT.  IFRAX  = NT  - I 

78 . 1FC2  .LE.  IFBAX)  SO  TO  200 

73.  IFATAL  = .TRUE. 

80.  URITET  6.170 

81.  URITET  6,30)  {SET 

82  RETURN 


83.  200  IFUFRAX  .LE.  30)  GO  TO  210 

83.  I FATAL  = .TRUE. 

85.  UR ITET  6,170) 

88.  WAITE!  8. AO  1 ISET 


ST.  210  NEWT  s LAST**  - 1 
88.  NUPT  = NENT/NT 

83.  IRRAX  = NWPT/2  - 1 

30.  NPPT  = IRRAX  + 1 

91.  1F(  2 .LE  IRRAX)  SO  TO  220 

92.  1FATAL  = .TRUE. 

93.  URITET  6,170) 

93.  URITET 8,501  ISET 

95.  RETURN 


9b.  220  IFT IRRAX  .LE.  30)  GO  TO  230 

97  1FATAL  = .TRUE. 

96.  UR1TEI  6,170) 

93. URITET  6,60)  ISET  


100.  230  UNEOUL  = .FALSE. 

101.  DO  260  1 b 1 IFRAX 

102.  IFT1UTI  ♦ 2)  - I LIT  I ♦ 1)  - NUPT)  230,260.250 


103. 

103. 

105. 

106 


110. 

Ill 


116. 

117. 

118, 

113 

120. 

121 

122 

123. 

123 


125. 

126. 

127. 

128. 
123. 
130 

131. 

132. 

133. 
139. 

135. 

136. 
137 
138. 


230  UNEOUL  s .TRUE. 
URITET  6,1701 
URITET  6,70)  I,  ISET 
80  TO  260 


107  250  UNEOUL  = -TRUE. 

108  URITET 6,170) 

103  URITET  6,80)  1,  ISET 


260  CONTINUE 

1FTLASTA8  - 1UT1U)  - NUPT 1 270.290,280 


112  270  UNEOUL  = .TRUE. 

113  URITET 6,170) 

119.  URITET 6,70)  NT,  ISET 

115  GO  TO  290 


280  UNEOUL  = .TRUE. 
UR1TE!6,170) 

URITET  6,60)  NT,  ISET 


290  IFT .NOT. UNEOUL)  E3  TO  300 
IFATAL  = .TRUE. 

RETURN 


300  RECYC  = .FALSE. 

BO  390  I = 1,  IRRAX 

1FI RACHTI  9 1)  - NACHtD)  310,330,390 


310 


390 


IFT IFATAL)  GO  TO 
RECYC  = TRUE. 

MSAVE  = RACHTI) 
rlACHU  ) = RACHTI  ♦ I) 
RACHTI  ♦ 1)  = RSAYE 
DO  3Z0  J = 1,  NT 
L = IUTJ  * 1)  ♦ 2*1  * 
CLSAVE  b U(L  - 1) 
COSAVE  = UtLI 
UT  L - 1 ) = U!  L ♦ 1 » 
UTL)  = UCL  + 2) 

UTL  + 1)  = CLSAVE 
320  UT  L ♦ 2)  = COSAVE 
GO  TO  390 


NT 


139  330  IFATAL  =■  -TRUE. 

190.  RECYC  = FALSE. 

191.  URITET  6,1701 

192.  URITET 6,90)  RACHTI),  ISET 


390  CONTINUE 


BUCO 

BLICO 

BLICO 

BLICO 

BLICO 

BLICO 

BLICO 


BLICO 

BLICO 

BLICO 

BUCO 


BLICO 

BLICO 

BLICO 

BLICO 

BLICO 

BLICO 

BUCO 

BLICO 

BLICO 


BLICO 

BLICO 

BLICO 

BLICO 


BLICD 

BLICO 

BLICO 


BUCO 
BLICO 
BLI  CO 
BUCO 


BLICO 

BLICO 

BLICO 


BLICO 

BLICO 


BLICO 

BLICO 

BUCO 

BLICQ 


BLICO 

BLICO 

BUCO 


BUCO 

BLICO 

BLICO 


BLICO 

BLICO 

BUCO 


BLICO 
BUCO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLICO 
BLI  CO 
BUCO 
BUCO 
BLICO 
BLICO 
BLICO 


BLICO 

BLICO 

BLICO 

BLICO 


BLICQ 


200-1 


220—1 


i 30—] 


290-]250-]260-» 


260-1 


270-^280-1290-1 


290—1 


310  — j330-]3*0- 
340- 


3^0H 
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ihn. 

IF(  RECYC ) 60  TO  30D 

BLICO 

300  — 

195 

I Ft  I FATAL  ) RETURN 

BLICO 

196. 

350  fiECVC  = .FALSE. 

BLICO 

1 47 

00  390  1=1.  IFRAI 

BLICO 

148 

IFtALFMI  ♦ l>  - ALFAt  I > ) 360,380,390 

BLICO 

360— | 

199 

360  IFtlFATAL)  63  TO  390 

BLICO 

150. 

RE CYC  = .TRUE- 

BLICO 

151* 

ftSAVE  = ALFAt  11 

BLI  CO 

152. 

ALFAt  11  = ALFAt  1 + 1} 

BLICO 

153. 

ALFAt  I 4 1)  : ASAYE 

BLICO 

15**. 

IBOSE  - 1U1I  ♦ 1 1 ♦ UT 

BLICO 

155. 

00  370  J=l.  NMPT,  2 

BLICO 

156. 

It  = J ♦ IBASt 

BLICO 

157. 

L = K ♦ NMPT 

BLICO 

L5B. 

CLSAVE  = Ut  A) 

BLICO 

159. 

CDSAVE  = MK  ♦ 1) 

BLICO 

160. 

IJC  «C  > = Ut  L ) 

BLICO 

161. 

out  ♦ n = utt  4 i> 

BLICO 

162. 

U(L>  = CLSAVE 

BLICO 

163. 

370  Ut  L ♦ 1)  = COSAVE 

BLICO 

169. 

SO  TO  390 

BLICO 

165. 

380  [FATAL  = -TRUE. 

BLICO 

166. 

RECYC  = .FALSE. 

BLICO 

L67. 

WRlTEt  6, 1701 

BLICO 

166 

URI T£t  6, 1C01  ALFAt 11,  ISET 

BLICO 

169. 

390  CONTINUE 

BLICO 

170. 

I Ft  RECYC)  GO  TO  350 

BLICO 

350  — 

171 . 

I Ft  1 FATAL)  RETURN 

BLICO 

172 

[ftPUJOB  . 6E.  0)  60  TO  399 

JULYZ8 

399— 

173. 

L = NT 

SEP  18 

179. 

NANT  = NEUT  ♦ NT  ♦ I 

SEP  1 8 

175. 

DO  398  1=1,  NPPT 

JULY28 

176. 

L = L ♦ 2 

JULY28 

177. 

AL  = nACHtllvflDI 

JULY28 

178. 

S1NAL  = SINtAL) 

JULY28 

179. 

COSAL  = COSt  AL) 

JULY28 

180. 

DO  397  J = L,  NANT,  NMPT 

SEP10 

181 

cm  = wj> 

JULY28 

102* 

cx  = mj+n 

JULY28 

183 

U(  J 1 = CN*CQS AL  * CI'SINAL 

JULY28 

189. 

Lit  J + 1 ) = CN’SINAL  *■  CX*CG5AL 

JULV23 

185. 

397  CONTINUE 

JULY28 

186. 

398  CONTINUE 

JULY28 

107, 

399  CONTINUE 

JULY28 

188. 

AMIN  - ALFA 

BLICO 

189. 

UMAX  = ALFA! NT) 

BLICO 

190 

AMI*  = HACK 

BLICO 

191. 

NA*X  = NACKt  NPPT ) 

BLICO 

192. 

I UNIT  = ISET  ♦ 2T 

BLICO 

193- 

CALL  UR1TASC1UNIT,  MAIN  273,  l) 

BLICO 

199 

CO  AGO  I = 1 NENT 

BLICO 

195. 

P(I)  = 0. 

BLICO 

196. 

at  i ) = o. 

BLICO 

197- 

400  stn  = o. 

BLICO 

190. 

MRITEt6,l!0)  ISET 

BLICO 

199. 

DO  430  1C  = 1,  2 

BLICO 

200. 

00  410  J = JC,  MUPT,  2 

BLICO 

201. 

X = IU  ♦ J 

BLICO 

202. 

410  CAM-  rUMENUAtFA,  IFAAX,  UtX),  P(J),  MUPT  > 

BLICO 

203. 

DO  420  J = IC,  NENT,  NMPT 

BLICO 

209. 

X = IU  ♦ J 

BLICO 

205 

CALL  MOMENT! AACH,  IRAAX,  LUX).  Ot  J ),  2) 

BLICO 

206 

420  call  moaent<aach.  iraax,  pu),  sij>,  2) 

BLICO 

207. 

DO  430  I = l NPPT,  8 

BLICO 

200. 

1LIM  = MINOt  I ♦ I,  NPPT) 

BLICO 

209. 

H = IC  - NMPT  * 2-(l  - 1) 

BLICO 

210. 

ix  * iu  ♦ it 

BLICO 

211. 

1 1 NAX  s ILIN.2  - NMPT 

BLICO 

212. 

IXKAX  = IIHAX  + IU 

BLICO 

213. 

DO  430  J = 1,  NT.  11 

BLICO 

219. 

IFUC  .ED.  1)  MAlTEt  6,120) 

BLICO 

215- 

IFtIC  .ea.  21WRITEC  6 130) 

BLICO 

216. 

MRlTEt  6, 140 ) (AACH(IJ),  IJ  = I,  ILIN) 

BLICO 

: 

l380-i390-i 
1 390— j 


*390— 1 1 
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'4?.  0 1 - *1 6 


217 

JLIB  = HINDU  * TO,  NT ) 

BLICO 

218 

DO  430  L = J.  JLIB 

BLICO 

219. 

IK“  I K ♦ NUPT 

BLICO 

220. 

II  : II  * NUPT 

BLICO 

221 

UMAX  = UMAX  ♦ NUPT 

BLICO 

222 

1XPIAX  = 1 KHAX  ♦ NUPT 

BLICO 

223 

LlRlTEt  6,150)  ALFAU.1,  tU(IJ), 

IJ  = IX.  IXrtAX.  21 

BLICO 

224. 

URITE(6,H0)  (P(  IJ),  5J  = II, 

IinAX, 

2) 

BLICO 

225 

UR1TEI  6, 160  I lOllJ),  IJ  = 11, 

IIHAX, 

2) 

BLICO 

226 

H30  UfiITE(6,H0>  (S(1J),  IJ  = II, 

UftAX, 

2) 

BLICO 

227 

L - 0 

BLICO 

228 

NRECT  = 1RHAX.JFBAI 

BLICO 

229 

KREC  = [ NRECT  ♦ 91/5  ♦ 1 

BLICO 

230 

IRS  = -I 

BLICO 

231. 

1 “ -9 

BLICO 

232 

DO  960  IfiEC  - Z,  NREC 

BLICO 

233. 

1 = 1*5 

BLICO 

239 

I LI H = HINDU  ♦ 4,  NRECT) 

BLICO 

235 

X = -15 

BLICO 

236. 

00  450  IRECT  = I,  I LI N 

BLICO 

237. 

IRB1  = (IRECT  - 1 1/1FHAX 

BLICO 

238. 

IF  = IRECT  - IFnAXURNl 

BUCO 

239. 

IFURI41  . EQ  IRS)  SO  TO  440 

BLICO 

290. 

X = WACHURNl  + 2)  - BACHURB! 

♦ 1) 

BLICO 

291. 

AX2  = -l./X 

BLICO 

292. 

AX6  = -X/3 . 

BLICO 

293. 

AX8  = -l./( 6.*X> 

BLICO 

299. 

AX10=  -AX2 

BLICO 

295 

AX19=  AX6/2. 

BLICO 

296 

AX16=  -AX8 

BLICO 

297 

IRS  = I RBI 

BLICO 

298 

440  Y = ALFAUF  + I)  - ALFA!  IF) 

BLICO 

299. 

AYS  = - ) ,/Y 

BLICO 

250. 

AYS  = -Y/3. 

BLICO 

251. 

AY  7 = -AY5 

BLICO 

252. 

AY8  = AYS/2. 

BLICO 

253. 

AY  14=  -1./{S  «Y> 

BLICO 

259. 

AY1S=  -AV14 

BLICO 

255. 

IXP  = 2* IRH1  * NNPT.IIF  - 1) 

BLICO 

256. 

DO  450  IC  = ),  2 

BLICO 

257. 

X = X ♦ It 

BLICO 

258 

IX  = IXP  * IC 

BLICO 

259 

L = IX  + IU 

BLICO 

260 

XXI  = U(U 

BLICO 

261 

XK2  = at  IX  > 

BLICO 

262 

XX5  = P(IX) 

BLICO 

263 

xxs  = sax) 

BLICO 

269 

IX  = IX  ♦ 2 

BLICO 

265. 

L = IX  ♦ ID 

BLICO 

266. 

XX3  = U(  L) 

BLICO 

267. 

XK4  = Q(  IX ) 

BLICO 

268. 

XXT  = P(  IX) 

BLICO 

269. 

xxs  = sax) 

BLICO 

270. 

IX  = IX  - 2 + NNPT 

BLICO 

271. 

L = IX  + II) 

BLICO 

272 

XX9  = U<  L) 

BLICO 

273 

XX10  = OUX) 

BLICO 

279 

XK13  = PUX) 

BLICO 

275. 

XX 14=  SUX) 

BLICO 

276 

IX  = IX  ♦ 2 

BLICO 

277. 

L = IX  * IU 

BLICO 

276. 

xxn  = ucL> 

BLICO 

279. 

XK12  = Q(IX) 

BLICO 

280. 

XK15  = P(IX> 

BLICO 

281. 

XK16=  5(1X3 

BLICO 

282. 

CALL  NATALTUEHP,  XX,  AY,  4,  4,  4) 

BLICO 

2 83. 

450  CALL  NATALTIT(X),  AX,  TEHP,  4,  4,  4) 

BLICO 

289. 

460  CALL  HRITM5(IUNIT,  T,  ISO,  1REC) 

BLICO 

285 

RETURN 

BLICO 

286 

END 

BLICO 

HO-i 


J 


EO  OCT  72  6 01-46 


SUBR0UT INE 
BNDRYC 


Subroutine  BNDRYC 


Purpose 

This  subroutine  packs  boundary  condition  data  (both  initial  and  target  input  data) 
into  an  ordered  packed  array  which  will  be  stored  in  a random  access  file. 

Description 

The  input  to  this  routine  is  the  array  ASR  which  is  an  unordered  packed 
representation  of  the  input  initial  and  target  conditions.  The  main  function 
of  the  routine  is  to  sort  the  unordered  data  into  a matrix  array,  concurrently 
counting  the  numbers  of  initial  and  target  conditions  m each  arc.  The  number 
of  initial  and  target  conditions  is  stored  by  the  calling  program  (GEINF)  in 
arrays  ITAB  and  KTAB  respectively. 
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I-OKIHAM  nAIH 

SYnftOI.  SvriqoL 


DESCRIPTION 


5 'JAR?  mine 

S'J9H  L0l)t 


ACO 

U 

! nternedl  ate  unpacked  boundary  condition  array 

/BNDRYC/t » 

) BNDRYC 

u 

ACD 

ANC 

U 

i nt  e r me  d 1 ate  unpacked  boundary  condition  array 

/BNDRYC/t  » 

) BNDRYC 

u 

ANC 

ARR 

I 

Array  of  Input  Initial  and  target  condition! 

/BNORYC/l* 

) BNDRYC 

I 

ARR 

BNARR 

0 

Packed  boundary  rendition  array  output  on  random 
tile 

/BNDRYC/t  * 

) BNDRYC 

0 

BNARR 

t LOC 

1 

Indea  of  array  ARR  ahere  the  boundary  conditions 
start 

/BNDRYC/< * 

) BNDRYC 

I 

ILOC 

[TAB 

n 

Array  of  number  of  Initial  or  target  conditions  per 

/BNDRYC/t « 

) BNDRYC 

H 

ITAB 

arc 

11 

u 

Keep  track  of  location  In  BNARR  array 

/BNDRYC/( » 

) BNDRYC 

U 

ft 

YZ 

u 

Array  of  unpacked  boundary  condition  values 

/BNDRYC/( * 

> BNDRYC 

U 

YZ 

UN  06. 

0 

File  of  all  output  data 

/ . UN06 . /( A 

) BLICO 

0 

•UN06. 

BNDRYC 

0 

-UN06. 

CRASH 

0 

. UN06 . 

FRENCH 

0 

UN06. 

FXDAT 

0 

. UND6 . 

GE1NP 

0 

•UN06. 

HUNT 

0 

. UN06 . 

INEDIT 

0 

. UN06 . 

ITER8 

0 

. UN06. 

flODELA 

0 

. UN06. 

moroJ 

0 

. UN06 . 

npsi 

0 

. UNOb - 

OUT 

0 

. UN06 . 

PAY02 

0 

.UN06. 

PRINT 

0 

.UNOt. 

PRINTV 

0 

UN06. 

PRINTUI 

0 

. UN06 . 

PRITEO 

0 

. UN06 . 

PRITVA 

0 

•UN06. 

PROP  I N 

0 

•UN06. 

PRDTHR 

0 

. UN06. 

PRUTS  11 

0 

. UN06. 

RANGE 

D 

•UN06. 

S 

D 

.UN06. 

SOI  NP 

0 

. UN06 . 

SIZE 

0 

. UNOB- 

SIZIN 

0 

. UN0.6. 

SIZ3UT 

0 

UNOB. 

SOLVE 

0 

. UN06 . 

SPLICO 

0 

. UNOB . 

SPL1Z 

0 

. U NO 6 . 

SPLYNE 

0 

. UNOB. 

SSSP 

D 

. UN06. 

STAU 

c 

.UN06. 

STPIT 

0 

.UNOB. 

SUrtOUT 

0 

.UNOB. 

TAB  IN 

0 

.UN06. 

TEST 

0 

•UN06. 

VEHDF 

0 

.UN06. 

UTSCH 

0 

. UNOB. 

UTVOL 

0 

.UNOB. 
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BNDKYC 


1 

SUBROUTINE  BNBRYCI ftflfi , 1 LOC. 1TA8 . BNARH , N.  IEND. IF4T AL1 

BNORY 

2 

C 

ARR  1$  THE  INPUT  ARRAY  CONTAINING  BNORY  COND  INPUT 

BNDRY 

3. 

C 

ILOC  IS  THE  1 NO  EX  OF  ARRAY  I Rfi  WHERE  THE  BNDRY  COND. 

INPUT  START 

BNDRY 

9 

c 

IT AB  IS  THE  ARRAY  WHOSE  VALUES  ARE  THE  NUMBER  OF  INITIAL 

BNDRY 

5 

c 

CONDITIONS  SPECIFIED  IN  EACH  ARC 

BNORY 

6. 

c 

BNARfi  15  AN  ARRAY  CONTAINING  IC  VALUES  AND  CLASSIFICATIONS 

BNDRY 

7. 

c 

FOR  EXAMPLE  classification  cooes  are* 

BNDRY 

8. 

c 

0.  CONTINUOUS 

BNDRY 

9. 

c 

1.  KNOWN 

BNORY 

10. 

c 

2.  OPTIMIZED 

BNDRY 

11. 

c 

3.  EST1 HATED 

BNORY 

12. 

c 

9.  UNKNOWN 

BNDRY 

13. 

c 

5.  DISCONTINUITY  IN  HASS  (WEIGHT) 

CQMN 

1 9. 

c 

6 WEIGHT  OISCONTI UTY  COMPUTED  IN  UTDROP 

COHN 

15. 

c 

15  BRANCH  TO  STAGE  5 (FOR  EXAMPLE ) 

BNDRY 

18. 

c 

*«»  *#«  *»« 

BNORY 

17. 

LOGICAL  I FATAL 

BNDRY 

18. 

DIMENSION  IT AB< 1 }, BNARR(  1 ) . ARfl(  1 ),ACD(  10,20),YZ(  10.20), 

ANC( 10,20), 

BNORY 

19. 

1AVA( 10,20)  * 

BNDRY 

20. 

EQUIVALENCE  ( ACO, ANC ), I AVA, YZ) 

BNDRY 

21. 

c 

COHN 

22 

c 

I ZERO  ARRAYS 

CDMN 

23. 

DO  10  1=1,200 

BNORY 

29. 

10 

ACDC I )~0. 

BNORY 

25. 

URITE( 6,20) 

BNDRY 

26. 

20 

FORRAT  (56H1  PRELIMINARY  SCAN  OF  BOUNDARY  CONDITION 

BNDRY 

27. 

15) 

BNDRY 

28. 

c 

CONN 

29. 

c 

II  EXTRACT  IC  DATA  FROM  ARR  AND  LOAD  INTO 

COHN 

30. 

c 

MATRICES  , ALSO  COUNT  NO  OF  IC5  AND  STORE  IN 

ITAB 

CQMN 

31. 

KCNT  =0 

BNDRY 

32 

J=ILOC 

BNDRY 

33. 

30 

I F ( J . GT  I END ) GO  TO  50 

BNDRY 

39. 

IAI=  ARRU)+.5 

BNDRY 

35. 

ICD1=ARR( J+l)  +.5 

BNDRY 

36. 

IF( ARR(J+2).NE.O.) 

BNDRY 

37. 

1 1 T AB( I A1  )=  ITABt I Al )*1 

BNDRY 

38. 

ACOt  ICD1,IA1)  =ARfl( J+2) 

BNORY 

39. 

YZ  (ICD1.IA1)  =ARR(J+3> 

BNDRY 

90. 

KCNT  s KCNT  *1 

BNDRY 

91. 

90 

J =J  +9 

BNDRY 

92. 

GO  TO  30 

BNDRY 

93. 

50 

CONTINUE 

BNDRY 

99. 

c 

CQMN 

95. 

c 

111  CHECK  FOR  ICS  IN  EACH  ARC  AND  PUT  COOES  IN  BN  ARR 

COHN 

96. 

c 

PACK  IC  DATA  IN  BNAfifi 

BNDRY 

97. 

H=0 

BNORY 

98. 

DO  1O0  1-1,20 

BNDRY 

99. 

I F ( I T ABC  I ) . £0 . 0 )G0  TO  100 

BNDRY 

50. 

JC=ITAB(I) 

BNDRY 

51. 

DO  90  K=l, 10 

BNDRY 

52. 

IF( ACOCK, f ).EQ.O)  GO  TO  90 

BNORY 

53. 

60 

BNARRt  rt+1 )=  ACDC K, I) 

BNDRY 

59. 

70 

BNARRCM+3)  = YZ(K,I> 

BNDRY 

55. 

80 

BNARR{M+2)  = K 

BNDRY 

56. 

H=M*3 

BNORY 

57. 

c 

COHN 

58. 

0 

I I I -A  TEST  FOR  TOO  MANY  ICS 

COMM 

59. 

IF(N  GT.N ) GO  TO  110 

BNORY 

60. 

90 

CONTINUE 

BNDRY 

61. 

100 

CONTINUE 

BNDRY 

62. 

GO  TO  190 

BNDRY 

63. 

no 

WRITEC  6,130) 

BNDRY 

69. 

IFATAL=  .TRUE. 

BNDRY 

65- 

120 

UR1TEC 6.150) 

BNDRY 

66. 

RETURN 

BNORY 

67 

130 

FORRAK  3X, 33H  TO  MANY  IC  S SPECIFIED  FOR  ARRAY) 

BNDRY 

68. 

190 

URITE<  6,160) 

BNORY 

69 

150 

F0Rl1AT( 39H  BAO  SCAN  OF  INPUT  INITIAL  CONDITIONS) 

BNDRY 

70. 

160 

FORMAK  39H  GOOD  SCAN  OF  INPUT  INITIAL  CONDITIONS) 

BNDRY 

7 1N 

RETURN 

BNDRY 

72. 

c 

IV  TARGET  CONDITION  SCAN  AND  PACKING 

CQMN 

90- 


100- 

90— 


UO-.J 


1190-1 
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73. 

C 

CO  AN 

74. 

c 

AKA  IS  THE  INPUT  AKA AY 

BNDRY 

75. 

c 

ILOC  IS  THE  LOCATION  IN  «RR  WHERE  TARSET  INPUTS  START 

BNDRY 

76. 

c 

KTAB  IS  THE  ABB AY  OF  AD  OF  TARSETS  PER  ABC 

BNDRY 

77. 

c 

TABS  IS  ARRAY  OF  T ASSETS  AND  TARGET  CLASSIFICATIONS 

BNDRY 

78. 

c 

I END  IS  LAST  HQBQ  IN  ARfi  ASSOCIATED  WITH  TARSETS 

BNDRY 

79. 

ENTRY  TARGCM 

BNDRY 

8G. 

c 

CONN 

81. 

c 

V-A  ZERO  MATRICES 

COHN 

r 

82. 

OD  170  IM,2C0 

BNDRY 

L 

83. 

170 

ACOC I )=0. 

BNDRY 

84  . 

c 

conu 

85. 

c 

IV-6  EXTRACT  0»T»  FRO*  1HPUT  ARRAY  AND  PUT  IN  MATRICES 

COAN 

86. 

c 

ALSO  COUNT  AO  OF  TARSETS  IN  EACH  ARC 

COAN 

87. 

KCNT  =0 

BNDRY 

88. 

J=IL0C 

BNDRY 

89. 

180 

IFU.ST  I END > SO  TO  190 

BNDRY 

?9G  — 

90. 

I Al=  AfUUJ)«.5 

BNDRY 

91. 

11  ADC  I Al ) = 1TA8C1A11+1 

BNDRY 

92. 

«=  IT  AB(  1 Al  1 

BNDRY 

93. 

ANCC  KK,  1 Al  ) - I Afifi(  J+l  )«1 .E6  ♦ ABS< ARRCJ+2 > > >*5I6N  C 1 . , ARRt  J+2  ) ) 

BNDRY 

94. 

AYA(Kft,m>  ft  ARRCJ+3) 

BNDRY 

95. 

J+4 

BNDRY 

96. 

SO  TO  180 

BNDRY 

97. 

190 

CONTINUE 

BNDRY 

98. 

c 

CORN 

99. 

c 

V PACK  DATA  IN  TARS  ARRAY 

COrtN 

1G0. 

N“1 

BNDRY 

— 

101- 

DO  210  I-l.ZO 

BNDRY 

102. 

1FC1TABC  D.EO-O)  60  TO  210 

BNDRY 

210  — 

103. 

K=  IT ABC  I 1 

BNDRY 

104. 

DO  200  JKsI.ft 

BNDRY 

105. 

BNARR(M)  = ANCCJK.l) 

BNDRY 

106. 

BNARRC  M+l )=AVA( JK.l  1 

BNDRY 

107. 

n-n*  2 

BNDRY 

108. 

200 

CONTINUE 

BNDRY 

- 

109. 

210 

CONTINUE 

BNDRY 

110. 

HR I TEC  6,220) 

BNDRY 

111. 

220 

F0HHATC32H  GOOD  SCAN  OF  TARGET  CONDITIONS) 

BNDRY 

112. 

RETURN 

BNDRY 

113. 

END 

BNDRY 
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««CMT 


l. 

SUBROUTINE  HOnENlIX  IUN,  Y,  1.  «1NKJ 

rtOrtENT 

2. 

OINENSION  X(l),  VI  11,  2t  I 1,  S(56>.  Ul  501 

nonEKT 

3. 

8 = 0. 

nonEMT 

9. 

U = 0. 

fiOflEWT 

5. 

X = 1 

flQflEWT 

6. 

KP1  = 1 + KINK 

MOWEWT 

7. 

00  10  I = 2,  I LIN 

*3*ENT 

a. 

INI  = I - 1 

ttOflENT 

9. 

KH1  = * 

«0«ENT 

10. 

K = KP1 

rtOrtEWT 

U. 

KP1  = KP1  ♦ KINK 

flOflENT 

12. 

XI  = XIII 

H09EMT 

13. 

»K  = VI  K 1 

flOHENT 

19. 

HI  = XI  - xi  inn 

HOflENf 

1$. 

H2  = XI  1 ♦ I ) - XI 

rtOHENT 

16. 

H1PH2  s Ml  . H2 

AOnENl 

17. 

XL«n  £ H2/H1PH2 

nOREMT 

ia. 

xnu  = 1.  - KL*H 

*0«ENT 

19. 

0 =6./HlPH2*(  1 VI  KP1  ) - YK  )/H2  - IYK  - Y(XH1>)/H1) 

«0«E«T 

20. 

P = xnu»0( INI > + 2. 

«0«E«T 

21. 

8(1 1 = — XLArt/P 

*0*ENT 

22. 

10  ucn  = id  - xnu«u< imn/p 

rt3*E*T 

23. 

l = uin 

*0*E*T 

29. 

DO  20  I 3 2.  ILln 

*fl*E«T 

25. 

£(K)  = Q(  L)«ZC  KPl  > ♦ U(  L> 

fiOrtEWT 

26. 

<P1  = K 

*0*EAT 

27. 

X = K - KINK 

ftanENT 

28. 

20  L = L — i 

HOrtEKT 

29. 

RETURN 

«onENT 

30. 

END 

*0«EHT 

20  OCT  72  6-01-96 
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Subroutine  SPLIC0 


1 3u  i-  po  s c 

Subroutine  SPLICQJ  computes  spline  fit  coefficients  for  univariant  tables. 


FORTRAN 

Symbol 

l FATAL 

LOCF 

LOCI 

LOCL 

NT 

X 

Y 

Z 


MATH 

SYMBOL 


cqoe  DESCRIPTION 


M F it > I err or  f I *9. 


M A 50  oord  array  that  corresponds  to  tables  1 thru 
50.  Each  entry  Is  an  Integer  that  points  to  the 
last  value  of  the  independent  variable  of  the 
corresponding  table. 


M A 50  «ord  array  that  corresponds  to  tables  I thru 
50  Each  entry  Is'  an  Integer  that  points  to  the 
initial  value  of  the  independent  variable  of  the 
corresponding  table  A lero  entry  Indicates  table 
net  Input. 


0 A 50  »ord  array  that  corresponds  to  tables  1 thru 
50.  Each  entry  is  an  integer  that  indicates  the 
last  interval  in  nhich  interpolation  of  the 
corresponding  table  secured. 


M Largest  untvartant  table  nuaber  in  this  case. 


It  A 50  cord  array  that  corresponds  to  tables  1 thru 
50.  Each  entry  is  an  integer  that  paints  to  the 
initial  value  of  the  independent  variable  of  the 
corresponding  table.  A cero  entry  indicates  table 
not  1 np  ut . 


M A 50  iord  array  that  corresponds  to  tables  1 thru 
50  Each  entry  is  an  integer  that  indicates  the 
last  interval  in  nhich>  interpolation  of  the 
corresponding  table  occured. 


M A 50  «ord  array  that  corresponds  to  tables  1 thru 
50  Each  entry  15  an  integer  that  points  to  the 
last  value  of  the  independent  variable  of  the 
corresponding  table. 


STORAGE  subroutine  usagi 

BLOCK  LQC  SUBR  COOE  VAR 


/GLOBAL/! 

IT) 

BLICO 

M 

IFATAL 

GE1NP 

0 

IFATAL 

PA0S1 

I 

IFATAL 

SOI  NP 

M 

IFATAL 

SPLIC0 

n 

IFATAL 

STPIT 

0 

IFATAL 

topm 

n 

IFATAL 

/TABLE  /! 

1401  ) 

SPLICO 

pi 

LOCF 

SPLICO 

n 

Z 

SPLIZ 

1 

LOCF 

SPLIZ 

1 

Z 

SPLYNE 

1 

LOCF 

SPLYNE 

I 

Z 

THRUP 

0 

Z 

/TABLE  /( 

1 ) 

SPLICO 

pi 

LOCI 

SPLICO 

pi 

X 

SPLIZ 

1 

LOCI 

SPLIZ 

1 

X 

SPLYNE 

1 

LOCI 

SPLYNE 

1 

X 

/ 

THRUP 

1 

LOCI 

THRUP 

0 

X 

/TABLE  /( 

701  ) 

SPLICO 

0 

LOCL 

SPLICO 

pi 

Y 

SPLI2 

M 

LOCL 

SPLIZ 

I 

Y 

SPLYNE 

M 

LOCL 

SPLYNE 

I 

Y 

THRUP 

0 

Y 

/GLOBAL/! 

66) 

SPLI  CO 

n 

NT 

SPLIZ 

1 

NT 

SPLYNE 

I 

NT 

/TABLE  /C 

1 > 

SPLICO 

IB 

LOCI 

SPLICO 

R 

X 

SPLIZ 

I 

LOCI 

SPLIZ 

1 

X 

SPLYNE 

I 

LOCI 

SPLYNE 

I 

X 

THRUP 

I 

LOCI 

THRUP 

0 

X 

/table  n 

701  > 

SPLICO 

0 

LOCL 

SPLICO 

PI 

Y 

SPLIZ 

11 

LOCL 

" 

SPLIZ 

I 

V 

SPLYNE 

n 

LOCL 

SPLYNE 

1 

Y 

THRUP 

0 

V 

/TABLE  /! 

HOI  ) 

5PLIC0 

n 

LOCF 

SPLICO 

IB 

Z 

SPLIZ 

1 

LOCF 

SPLIZ 

1 

Z 

SPLYNE 

1 

LOCF 

SPLYNE 

1 

z 

THRUP 

0 

z 
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S YnftQL  SYndOt. 


DESCRIPTION 


5 1 phage  s ubr o u r i Mg  usage 

810LK  LOU  SU8R  LOOt  VAR 


UN06 


0 Flic  of  ill  output  data 


/.UND8./(S 


BLJCO 

0 

.UN06. 

BNDRYC 

0 

UN06. 

CRASH 

0 

. UND6  . 

FRENCH 

0 

.UN06. 

FXDAT 

0 

* UN06  . 

GEINP 

0 

UNG6 

HUNT 

0 

UN06. 

I NED  IT 

0 

. UN06 

ITER8 

0 

UN06. 

raOQELA 

0 

.UNOt. 

nomj 

0 

. UNOt. 

nPSI 

0 

. UN06 . 

OUT 

0 

.UN06. 

PAYD2 

0 

. UNQ6. 

PRINT 

0 

. UNQ6 . 

PRINTV 

3 

. UN06 . 

PRINTU 

0 

UNO  6. 

PRITEO 

0 

.UN06. 

PRITVA 

0 

UN06. 

PROPIN 

0 

. UN06 . 

PROTHR 

0 

•UN06- 

PRUTSPI 

D 

. UN06 . 

RANGE 

0 

UN06. 

S 

0 

. UNO t . 

SOI  NP 

0 

. UNOfa. 

SIZE 

a 

. UN06. 

SIZIN 

0 

.UN06. 

SIZOUT 

0 

. UNO*. 

SOLVE 

0 

.UN06. 

SPLICO 

0 

. UN06  . 

SPLIZ 

0 

. UN06. 

SPLYNE 

0 

. UN06 . 

SSSP 

0 

. UN06 . 

STAU 

0 

. UN06. 

STPIT 

0 

.UN06. 

SUWOUT 

0 

. UNO 6 

TABI  N 

a 

•UN06. 

TEST 

a 

UN06. 

VEHDF 

a 

. UNOfc . 

UTSCH 

a 

. UNOB . 

UTVOL 

0 

.UN06. 

30  OCT  72  G . 01-86 


15S 


SPLICO 


SUBROUTINE  SPLICO 
LOGICAL  IFATAL 

COMMON  /SL0BAL/G(  66)  /T  A8LE/T{  2100  ) /TBL£/TBLE< 1 ) /LAST AB/LAST AB 
DIMENSION  1TBLEU),  LOCK  IK  LOCL(l),  LOCF<  1 >,  XU),  V(1L  2(1) 
EQUIVALENCE  t [TBLE,  TBLE ),  l IFATAL,  $U7)>,  (LOCI.  T>,  < LCCL,  TITO 
ID),  < LGCF,  TI11C11),  <X,  LOCI),  <Y,  LOCU,  ( Z,  LOCF).  (NT,  6(66>> 

10  FORHATUHO,  18H  FATAL  INPUT  ERROR) 

20  FORHATUHO,  77tt  TOO  MANY  TABLES  ANO/Ofi  TOO  MANY  POINTS.  THE  SUN 

10F  THE  LARGEST  TABLE  NUMBER/  77H  AND  THE  NUMBER  OF  POINTS  IN  ALL 

2QF  THE  TABLES  MUST  BE  LESS  THAN  OR  EQUAL  TO/  5lH  700.  IN  THIS  IN 
3STANCE,  THE  LARGEST  TABLE  NUMBER  IS  , 13,  19H,  AND  THE  NUrtBEfi  OF/ 

433H  POINTS  IN  ALL  OF  THE  TABLES  IS  , 13,  1H.) 

30  FORMATUHO,  13H  IN  TABLE  NO.,  13,  14H,  THE  POINT  X=,  E14.T,  17H  I 

IS  NOT  DISTINCT. > 

40  FGRrtATUHQ,  26X,  9HTABLE  NO-,  13//1H  , 2HX=,E14  7.  5X,  SHF(  X >=, 
1EI4 . 7,  5X,  5HM< X)=,E14  7/UH  , 2X,  E14.7,  2U0X,  E14.U)) 

NT  = f TBLE  - l 
IF(NT.GT.O)  GO  TO  45 
WT  = 0 
RETURN 


120  IRECYC  = 0 

DO  150  I = IIPl,  IF 
If4l  - I - J 

xs  - xum> 

XI  = XU) 

IF(XI  - XS)  130,140, 150 


SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

5PLIC0 

5EP18  45- 

SEPlfl 

SEP  IS 


21. 

22. 

23. 

24. 

25 

26. 

27. 

20 

45  CONTINUE 

NP  = (LASTAB  - 1 )/2 
LAST  = NT  4 NP 
I F( LAST  LE.  700)  60  TO  50 
IFATAL  = .TRUE. 

NRlTEt  6, 10 ) 

URITE( 6,20 ) NT,  NP 
RETURN 

SEP  1 8 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPLICO 

SPUCO 

SPUCO 

50  — 

r 29- 

50  DO  60  I = 1,  NT 

SPLICO 

30. 

LOCK  1 ) = 0 

SPLICO 

31. 

locu  n = o 

SPLICO 

L 32. 

60  LOCFU  ) - 0 

SPLICO 

33. 

J = MT  * 1 

SPLICO 

34. 

k = trr 

SPUCO 

r 3S- 

00  70  1 = J,  LAST 

SPUCO 

36 

K = K + 2 

SPLICO 

37. 

X<  I I = TBLEOO 

SPLICO 

j 38. 

V<  I ) — TBLE(X  4 1) 

spuco 

L 39. 

70  2(1  ) s 0. 

SPLICO 

40. 

LAST  S NT 

SPLICO 

41. 

NEXT  = LAST  ♦ 1 

5PLIC0 

r—  42. 

DO  110  I = 1,  NT 

SPLICO 

43. 

JC  = I ♦ 1 

SPLICO 

44. 

LOCO  = IT  BLEU) 

SPLICO 

45. 

I F( LOCO  .EQ  0)  GO  TO  110 

SPLICO 

110- 

46. 

LOCK  1 > = NEXT 

SPLICO 

47 

LOCL(I)  = NEXT 

SPLICO 

48 

IFC1  .LT.  NT)  60  TO  80 

SPLICO 

80— ^ 

49 

LAST  = NT  4 NP 

SPLICO 

50 

GO  TO  ICO 

SPLICO 

, j 

r 5i. 

80  00  90  J - K,  NT 

SPLICO 

52 

LOCA  = ITBLECJ  * 1) 

SPLICO 

53 

I F( LOCA  EC  0)  60  TO  90 

SFU  CO 

70-1 

54 

LAST  - LAST  4 (LOCA  - LOCO  )/2 

SPLICO 

55 

GO  TO  100 

SPLICO 

' 

L 56. 

90  CONTINUE 

SPLICO 

57 

100  LOCF{ I ) = LAST 

SPLICO 

58 . 

NEXT  * LAST  4 1 

SPLICO 

*—  59. 

110  CONTINUE 

SPLICO 

r~  60. 

DO  170  IT  = 1.  NT 

SPLICO 

61. 

II  = LOCK  IT  ) 

SPLICO 

62. 

IE(  1 1 .EO.  0)  60  TO  170 

SPLICO 

170- 

63. 

IF  = LOCF(IT) 

SPLICO 

64 

JF(II  .EO.  IF)  60  TO  160 

SPLICO 

160- 

65. 

IIP1  =11+1 

SPLICO 

SPLICO 

SPUCO 

SPUCO 

SPLICO 

SPUCO 

SPLICO  1 30 — 1 1 HO— 1 150- 
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72  130  YS  = Y<  1M ) SPLICO 

73.  xi ini > - si  splico 

ih.  Yi  mu  = *u  > splico 

75.  X(  I ) — xs  SPLICO 

74.  Y!  1 ) = YS  SPLICO 

77  1 FI  NOT.IFATftL)  IRECYC  s 1 SPLICO 

7B  6D  TO  150  SPLICO 


79.  190  IFATAL  = TRUE.  SPLICO 

80.  IRECYC  = 0 SPLICO 

81.  WRITE! 6.10)  SPLICO 

B2 ■ WRITE!  6,30)  IT,  XI SPLICO 


L 83  150  CONTINUE  SPLICO 

89  IF!  IRECYC  .6T  0)  60  TO  120  SPLICO 

85  IF!  IFATAL)  GO  TO  160  SFLICB 

86  IFDII:  IF  - II  SPLICO 

87  IFUFI91I  LT  2)  60  TO  160  SPLICO 

88  CALL  flOflENT!  X!  II  ),  IF  rl  n,  Y<  1 1 >,  Z1II),  11 SPLICO 


69,  160  WRITE!  6,50)  IT,  !X!IJ1,  Y1IJ),  Z!  1J  1,  IJ  s II.  IF) SPLICO 


■—TOO  170  CONTINUE  SPLICO 

I 91.  RETURN  SPLICO 

| 92.  END  SPLICO 
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Steepest  Descent  Trajectory  Module  (T0PM)  0 


CONTENTS 


Program 

Block 

Block 

Block 

Block 

Block 

Block 

Block 

Block 

Block 

Block 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutines 

Subroutine 

Subroutine 

Subroutine 


T0PM 

AEC03 

AIRBRE 

AXL 

DATA 

GENF 

PA  RAM 

RETREV 

STATE3 

STS 

XC0DES 

ACCEL 

ADEQ3A 

ADICB3 

ADIC3A 

ADID3A 

ADJUST 

AGETB3 

ANIATM 

AST3 

BER0C0 

BGET3 

BLGC0N 

BLYNE 

BL2  — BL9 

BNTG 

BST03 

C0N3 


163 


Subroutine 

Subroutine 

Sub  rout  i ne 

Subroutine 

Subroutine 

Sub  routine' 

Subroutine 

Subroutine 

Subroutines 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Function 

Subroutine 

Subroutine 

Function 

Subroutine 

Subroutine 

Subroutine 

Function 

Function 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 


BST03 
C0N3 
DER3A 
DTF3 
ELI 
•EL2 
ENVPRM 
EQUA3 
FH1  -*•  FH4 
FNTG 
FXDAT 
GETIT 
GUI3A 
ICOD 
IMPUL 
IPR 
L0MG 
MAMEC0 
M0DELA 
M0DELB 
M<jMJ 
MPSI 
MTX3A 
$UT 
PAT  63 
PAY02 
PDBC 
PDY3A 
PRMSET 
PRGPB 
PR  ©PIN 
RETJ3 
RKTA3A 
RKTB3A 


Subroutine 

Subroutine 

Function 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Subroutine 

Function 

Subroutine 

Subroutine 

Subroutine 

Function 

Function 

Subroutine 

Subroutine 

Subroutine 

Subroutine 


SDER3 

SDINP 

S0MG 

SPLYNE 

STAU 

STPIT 

STP3 

STVRL3 

SUMS 

SYMVRT 

TBLK 

TEST 

T0LPSI 

TQiU3 

TRAN3 

TRT0SZ 

VT 

YREF3 


SUBR0UT INE 
T0PM 


l 

v\ 

N 


TOPM 


Purpose 

TOPM  is  the  Steepest  Descent  module  mam  executive  program. 

Description 

The  reader  is  referred  to  Section  2.  0 of  Volume  II  for  a chart  of  the  overlay 
structure  particularly  under  this  routine  (TOPM),  The  chart  shows  the 
names  of  the  routines  that  are  called  on  UNIVAC  equipment  instead  of  the 
overlay  numbers  used  on  CDC  equipment.  A further  description  of  the 
iteration  procedure  generated  by  TOPM  is  contained  m Section  15.  3 of 
V olume  I. 


(u( 


T0  7=>M 


T 


cjathtw  npiH 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


S TOHAGF 
BLOCK  LOC 


SUBROUTINE  USAGE 
SUBrt  (OUE  VAR 


boon 

I 

Vector  ol  constraint  misses  on  trial  trajectory 

/GENF  /( 

19?) 

COM3 

TEST 

TOPPl 

0 

1 

1 

BCON 

BCON 

BCON 

OCON 

d*, 

I 

Asked  for  correction  In  constraint  Hisses  and 

/GEN*  n 

289  ) 

C0N3 

0 

OCON 

payoff  vector 

PITX3A 

I 

BOON 

PAY02 

PI 

OCON 

TEST 

PI 

DCON 

TOPM 

I 

OCON 

TRT0S2 

I 

DCON 

OELP 

D 

Input  or  preset  nominal  parameter  adjustment  siie 

/PARAFI  /( 

357  ) 

SOI  NP 

0 

DELP 

TOPPl 

D 

OELP 

DIP1 

I 

Phase  initial  times  for  nominal  trajectory  Csd3 

/GENF  /( 

953  ) 

GETIT 

I 

01  P 1 

• 

SOI  NP 

n 

01 P 1 

TEST 

0 

0 1 P 1 

TOPPl 

i 

D1P1 

QiSl 

I 

Arc  Initial  ti,mes  for  nowlnal  trajectory  CsdJ 

/GENF  /( 

973  ) 

GETIT 

i 

0IS1 

S-DINP 

pi 

DIS1 

TEST 

0 

01 S 1 

top  rc 

I 

01 S 1 

TRAN3 

I 

0 1 S 1 

DP  AR 

Sp 

D 

Adjustable  parameter  corrections 

/PARAFI  /( 

269  ) 

ADJUST 

I 

OPAR 

P1TX3A 

P) 

DP  AR 

TOPn 

D 

DP  AR 

TO 

I 

A four  word  array  containing  the  basic  deck. 

/GLOBAL/( 

21  ) 

BL1C0 

1 

ID 

reference  run,  case  and  part  case  nuabers  In  that 

FRENCH 

1 

ID 

order. 

GE1NP 

l 

10 

P ADS  1 

0 

10 

PRINT 

I 

ID 

SO!  NP 

I 

ID 

TOP  (A 

1 

ID 

VEHDF 

I 

ID 

I OP  AY 

d$> 

0 

Initial  payoff  improvement 

/STS  /( 

1 ) 

PAY02 

I 

OPAY 

SOI  NP 

I 

DP  AY 

SGINP 

0 

1ST 

SOI  NP 

1 

ST 

TEST 

I 

DP  AY 

TO  PM 

0 

I DP  AY 

IFAR 

M 

File  where  nominal  trajectory  data  is  read  from. 

/XCOOES/I 

139  ) 

AGETB3 

AST3 

toppi 

I 

I 

PI 

IFAR 

IFAR 

IFAR 

I FATAL 

n 

Fatal  error  flag. 

/GLOBAL/( 

17  ) 

'blico 

PI 

IFATAL 

GE1NP 

0 

1FATAL 

- 

P ADS  1 

I 

IFATAL 

SDINP 

PI 

IFATAL 

SFL1C0 

PI 

IFATAL 

STP1T 

0 

IFATAL 

TOPPl 

PI 

IFATAL 

IFAU 

n 

Logical  file  to  ur lie  current  trial  trajectory  data 

/XCODES/( 

1 38  ) 

AST  3 

I 

I FAW 

_ 

TDFM 

F! 

IF  AW 

1 FB 

0 

File  where  adjoint  solution  Is  stored 

/XCODES/< 

1 90  ) 

BGET3 

1 

I FB 

BST03 

1 

I FB 

TOPPl 

0 

IFB 

I FOB 

0 

Forward  or  adjoint  integration  flag 

/XCODES/t 

178  ) 

ACCEL 

r 

I FOB 

= 1 means  forward 

BEROCO 

i 

1 FOB 

= 2 means  adjoint 

BLYNE 

i 

IFOB 

EQUA3 

i 

I FOB 

1 PIP  UL 

i 

IFOB 

SPLYNE 

i 

IFOB 

TOPM 

0 

IFOB 

mo 

0 

Constraint  option  code  (internal) 

/XCODES/T 

1 ) 

A0ICB3 

i 

ITQ 

A0IC3A 

i 

ITS 

AO  I 0 3 A 

i 

ITS 

C0N3 

i 

1TB 

SO  I NP 

pi 

ITQ 

STAU 

i 

no 

TOPPl 

D 

I ITS 

30  OCT  r 2 G. 01-96 


I tlH  1H4N 
SYMBOL 


I’lAl  H 
SYNBOl 


CODE 


DESCRIPTIOIM 


UBBQ'JTINE  US  AG 
SUBS  CODE  VAR 


0 T ORA  jE 
8LULK  LOC 


IOMG  0 

0 

Array  of  arc  cut  oft  values  Isdl 

/GENF  /( 

1 ) ADJUST 

N 

ONG 

J 

FNTG 

I 

ONG 

PRNSET 

N 

ONG 

PROPS 

i 

ONG 

SDINP 

N 

ONG 

STP3 

I 

ONG 

TOPN 

0 

I ONG 

IPG1NT 

D 

Code  for  each  adjustable  parameter  In  steepest 

/PARAN  /( 

l 1 ADJUST 

I 

I P 0 1 NT 

descent. 

PRP1SET 

I 

I POINT 

SDINP 

0 

I P 0 1 NT 

STAU 

I 

IPO  I NT 

TOPn 

0 

I POINT 

IPRINT 

0 

Print  page  counter  initialization  flag 

/XCODES/t 

168)  OUT 

N 

IPRINT 

TEST 

I 

IPRINT 

TOPN 

a 

IPRINT 

I START 

n 

Initialization  and  divergence  flag 

/XCODES/f 

1N7  ) AST3 

a 

ISTART 

BLGCON 

a 

I 5T  ART 

BLYNE 

0 

ISTART 

FNTG 

i 

ISTART 

PIOOELA 

0 

ISTART 

PROPIN 

0 

ISTART 

REU3 

I 

ISTART 

TEST 

N 

ISTART 

TOPN 

N 

ISTART 

ITCT 

n 

Iteration  counter 

/XCODES/( 

IMS)  BNTS 

I 

ITCT 

OUT 

I 

ITCT 

TEST 

N 

ITCT 

TOPFi 

N 

ITCT 

ITER 

m 

Trajectory  pass  indicator. 

/XCOOES/t 

1H9  ) AST3 

I 

ITER 

ITER  = 1,  CONSTRAINTS 

FNTG 

I 

ITER 

= 2,  OPTIMIZATION 

GET  IT 

I 

ITER 

= 3,  SOLUTION 

NODELA 

I 

ITER 

OUT 

I 

ITER 

PAY02 

N 

ITER 

PROPIN 

I 

ITER 

TEST 

n 

ITER 

TOPN 

fl 

ITER 

I20P 

0 

First  optimization  pass  flag  sets  d$  = OPAY  Also 

/XCODES/t 

136)  PAY02 

N 

I20P 

used  to  indicate  payoff  degradation  due  to 

TEST 

M 

1 20P 

restoration  of  constraints 

TOPN 

0 

1 20P 

KOP 

i 

Counts  number  of  times  constraint  misses  are  halved 

/XCODES/( 

I5A)  TEST 

N 

KOP 

doan  because  of  divergence  problems 

TOFN 

I 

KOP 

KUOU  y 

0 

Relative  velocity  tFT/SEC) 

/ST  RTE3/( 

1 ) ACCEL 

I 

V 

ADICB3 

0 

VAR 

ADJUST 

n 

VAR 

AGETB3 

0 

VAR 

AST  3 

i 

VAR 

BLN 

i 

V 

BL7 

i 

V 

BLB 

i 

V 

C0N3 

i 

VAR 

DER3A 

i 

V 

DTF3 

i 

V 

ENVPfiN 

i 

VAR 

E0UA3 

i 

V 

NOOELA 

i 

V 

MODELA 

i 

VAR 

NODELB 

i 

V 

NT  X 3 A 

i 

VAR 

OUT 

i 

V 

OUT 

i 

VAR 

POBC 

i 

V 

PDY3A 

i 

V 

REU3 

« 

VAR 

RKTA3A 

n 

Y 

STP  3 

i 

VAR 

TOPN 

D 

KUJOU 

YREF3 

N 

V 

30  OCT  72  G.01-B6 

163 

I Dill  RAN 
IfYFMOl 


PIATH 

SVmrtOL 


CODE 


DESCRIPTIOEM 


s mb  age  Sim«outinf  usage 

blo  lk  loc  TuaiTToffl  v3r 


Lun 

n 

Pr  ogr  am  control  f log . 

/ GLOB  AL/t 

6 ) 

AST  3 

I 

LUPI 

LUN  = 0 Steepest  descent  only; 

FNT-G 

1 

LUn 

LU<1  n 1 Steepest  descent  and  adjoint 

GEJ  NP 

1 

LUPI 

transformation  stored  on  tape; 

P AOS  1 

n 

LUPI 

LUn  = 2 Steepest  descent  and  OL, 

50 1 NP 

i 

LUn 

LUfl  = 3 • QL  only. 

TOPP) 

n 

LUn 

ni  xa 

D 

Annua  number  of  oords  In  trajectory  data  buffer  = 

XRETREV/< 

12  ) 

AGETB3 

1 

Fl I XA 

990 

AST  3 

i 

PlIXA 

SD1NP 

i 

P1IXA 

TOPPI 

0 

PlIXA 

nixB 

D 

Plasinun  number  of  oords  In  adjoint  data  buffer  = 

/RETREV/i 

13  ) 

8GET3 

i 

PI  I XB 

3000 

BST03 

i 

PllXB 

SO  I NP 

i 

niXB 

TOPP! 

0 

PllXB 

NBFA 

D 

Aanaui  number  of  buffers  permitted  to  store 

/RETREV2( 

10) 

AST3 

I 

NBFA 

forward  trajectory  data  = 20. 

TOPPI 

E 

NBFA 

N9FB 

D 

Plaiiaum  number  of  buffers  permitted  to  store 

/RETREV/( 

11  ) 

BST03 

1 

NBFB 

adjoint  solution  data  = 60 

TOPP) 

D 

nbfb 

NCASE 

0 

Case  number 

/XCOOE5/I 

159) 

TOPPI 

0 

ncase 

NCN 

I 

Number  of  elements  in  df 

/ X CODES  /( 

ISO) 

ADE03A 

I 

NCN 

ADI  CBS 

I 

NCN 

AD1C3A 

I 

NCN 

ADID3A 

I 

NCN 

ADJUST 

I 

NCN 

AST3 

Pt 

NCN 

BNTG 

I 

NCN 

BST03 

1 

NCN 

PIT  X 3 A 

I 

NCN 

OUT 

I 

NCN 

PAV02 

PI 

NCN 

TEST 

PI 

NCN 

TOPPI 

I 

NCN 

TRAN3 

I 

NCN 

TRTOSZ 

I 

NCN 

NCNST 

n 

I 

Number  of  problem  constraints 

/XCODES/t 

132  > 

BGET3 

I 

NCNST 

BST03 

I 

NCNST 

COM3 

1 

NCNST 

PAYQ2 

1 

NCNST 

S01NP 

n 

NCNST 

SUP1S 

i 

NCNST 

TEST 

i 

NCNST 

TOPP) 

i 

NCNST 

TRAN3 

i 

NCNST 

NEB 

1 

Number  of  integrated  states 

/XCOOES/I 

162) 

ADICB3 

l 

NES 

A01  C3A 

I 

NEB 

ADI D3A 

f 

NES 

AGETB3 

i 

NEB 

AST3 

i 

NEB 

BGET3 

i 

NEB 

BST03 

r 

NEB 

P1TX3A 

i 

NEB 

OUT 

i 

NEB 

REU3 

i 

NEB 

SDER3 

i 

NEB 

SD1NP 

pi 

NEQ 

TOPP) 

i 

NEB 

TRAN3 

i 

NEB 

YREF3 

i 

NEB 

NEQF 

0 

Number  of  equations  to  be  integrated  on  formard 

/XCGDES/f 

185  ) 

REU3 

i 

NEBF 

trajectory 

RXTA3A 

i 

NN 

SDINP 

0 

NEBF 

STAU 

I 

NEBF 

TOPPI 

0 

NEBF 

TR’AN3 

0 

NEQF 

NOP 

I 

Counts  number  of  times  payoff  Is  scaled  doen  due  to 

/XCODES/< 

163) 

TE5T 

n 

NOP 

divergance  problems 

TOPPI 

I 

NOP 
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I OHIHAN 
SVMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


UftRQLII  | NE  USftG 
SU8R  CODE  VAR 


STORAGE 
BLOCK  LOL 


NPA 

NPARA 

NPH 

NST 

OMEGA 

0MEGA2 

OMGZ 

PARA 

SPARA 

SPARB 

SVAR 


u 


u 


0 Running  count  of  number  of  adjustable  parameters  to 
be  perturbed  on  remainder  of  trajectory 


D Number  of  adjustable  parameters  in  trajectory 
problem. 


I Number  of  phases  in  trajectory 


I Number  of  arcs  in  trajectory 


D Earth  rotation  rate  (RAO/SEC) 


0 See  synbo ! 


I Earth  rotation  rate  (RAD/SEC) 


0 Adjustable  parameter  nominal  values. 


0 Matrix  of  adjustable  parameter  sensitivities 
(including  all  parameters) 


D Matrix  of  adjustable  parameter  sensitivities 

(Contains  only  elements  corresponding  to  parameters 
yet  to  be  adjusted) 

I Array  of  state  values  at  initial  problem  time  Csd) 


/PARAM  /(  19) 

/PARAM  /(  13) 

/ XCO  PES  /(  US) 
/XC0DES/<  166) 

/STATE3/<  719) 
/STATE3/(  720) 

/GLOBAL/t-  3) 

/PARAM  /<  252  > 

/PARAM  /(  15  ) 

/PARAM  /(  1SS) 
/GENE  /(  79) 


ADJUST 

M 

NPAR 

FNTG 

1 

NP  A 

MTX3A 

I 

NP  A 

TOPM 

D 

NP  A 

ADJUST 

I 

NPARA 

BNTG 

1 

NPARA 

FNTG 

I 

NPARA 

MTX3A 

I 

NPARA 

PAY02 

I 

NPARA 

PRMSET 

I 

NPARA 

SDINP 

M 

NPARA 

STAU 

I 

NPARA 

TEST 

I 

NPARA 

TOPM 

0 

NPARA 

BNTG 

I 

NP  H 

FNTG 

0 

NPH 

PRMSET 

I 

NPH 

SDINP 

M 

NPH 

TEST 

I 

NPH 

TOPM 

I 

NPH 

BNTG 

I 

NST 

FNTG 

0 

NST 

PROPB 

I 

NST 

SDINP 

I 

NS 

SDINP 

M 

NST 

TEST 

I 

NST 

TOPM 

I 

NST 

TRAN3 

I 

NST 

BLS 

I 

OMEGA 

BL7 

I 

OMEGA 

TOPM 

0 

OMEGA 

BLS 

I 

0MEGA2 

BL7 

1 

DMESA2 

BL8 

I 

0MEGA2 

TOPM 

0 

0MEGA2 

ADID3A 

I 

OMGZ 

CRASH 

I 

OMEGA 

DER3A 

1 

OMGZ 

EQUA3 

I 

OMGZ 

GEINP 

I 

OMGZ 

MODELA 

I 

OMGZ 

MODELB 

I 

OMGZ 

POBC 

I 

OMGZ 

PDY3A 

: 

OMGZ 

SDINP 

i 

OMGZ 

TOPM 

i 

OMGZ 

ADJUST 

i 

PARA 

PRM5ET 

M 

PARA 

TDPM 

D 

PARA 

ADJUST 

[ 

SPARA 

PAYOZ 

I 

SPARA 

STAU 

n 

SPARA 

TOPM 

D 

SPARA 

ADJUST 

0 

SPARB 

MTX3A 

■1 

SPARB 

TOPM 

D 

SPARB 

ADJUST 

0 

SVAR 

BNTG 

I 

SVAR 

FNTG 

[ 

SVAR 

PRMSET 

M 

SVAR 

REU3 

I 

SVAR 

SDINP 

n 

SVAR 

TEST 

I 

SVAR 

TOPM 

i 

SVAR 

TRTOSZ 

I 

SVAR 

_ \ 
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HlfURftN  IIAIH 

SYilHOc  5YNBOL 


DESCRIPTION 


S I PRASE  SURSQJ1INF  USAG 
BLOCK  LOC  S’Jdfi  CODE  VAR 


S2INV  [ SS  ] O Parameter  sensl'tlwlty  contribution  to  A (atrli  /PARAr)  /(  27fc)  ADJUST  0 S2INV 

ITTX  3 A M 521  NY 
PAY02  It  52 1 NY 
TOPfl  0 521  NY 

TPH1  I Phase  end  tines  tor  no  nine  I trajectory  /GENF  /(  BIS)  BNTG  I TPH1 

GETIT  I TPH 1 
SOINP  0 TPH1 
TE5T  0 TPH1 
TOP  N 1 TPH1 

T5T 1 I Arc  end  tines  tor  nominal  trajectory  /GENF  /(  R33  ) BNTG  I TST1 

GETIT  I TST1 
PROF  I N I TST1 
SDINP  0 TST1 
TEST  0 TST 1 
TORN  I TST1 
TRAN3  I TST 1 
TRTOSZ  I TST1 


ulTP 

C Y 3 

D Adjustable  parameter  diagonal  weighting  matrix 

/PARAP1  /( 

132)  NTX3A 

I 

UTP 

order  according  to  IPOINT. 

PAY02 

I 

UTP 

SDINP 

0 

UTP 

TOP* 

D 

UlTP 

UTPD 

D Input  or  preset  adjustable  parameter  weighting 

/PARAH  /( 

123)  SDINP 

H 

WTP  D 

factors  according  to  type  of  parameter 

TOPfl 

D 

UTPD 
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TOP* 


1. 

2. 

3. 

H. 

5 


39. 

35 


PROSRAfl  TOP« 

STEEPEST  DESCENT  AM  N PROSHA* 
CQPU139/GENF/ 


TOP* 

CO*N 

CO*N 

con* 

SENF 


6. 

*ons<  20) 

,0fl5Pl 26 

2 ), VAROt 9 ) 

,T0U9  ) 

,SVAfi<  10) 

,U0C1 20) 

SiiNf 

7. 

♦ At  9.9) 

,AC0«(9> 

_ SCONt 9 ) 

,C0TI<9,9> 

,DCQN(9) 

, OTP 

GENF 

8. 

♦ QTS 

,0T 

,6 

,CPSB 

,a 

,as 

SENF 

9. 

♦R 

,KE 

.flACH 

,P  A 

,R0 

,cs 

SENF 

10. 

♦ VNU 

,PAR 

,RCR 

,CSfi 

, VNR 

.$u*sa 

GENF 

11. 

•svsa 

TlflEPH 

.TIflES 

.TOP 

,TOS 

,TR(9> 

SENF 

12. 

♦ TST<  20  ) 

,TPH  ( 20  ) _D1 Si  20 ) 

,DIPl 20 ) 

,T 

u 

SENF 

13. 

♦TUP  K 20) 

. TLSl  <20>,D1P1(20) 

,CIS112G) 

,TI«E 

,OBP 

SENF 

11. 

♦Tl APR 

.LIFT 

, DRAG 

.TAX 

,TBURN 

,T0U( 20) 

GENF 

15. 

*AE 

,FP 

, Ff old 

,FF  0 

, *ACHfi 

,nACHV 

SENF 

16. 

• OR 

,0V 

,FVAC 

.LIFTV 

6ENF 

17. 

•LIFTR 

,LJFTA 

DRAG* 

DR  ASH 

DR  AS  A 

SENF 

18. 

* 

LIFT* 

,DBH 

,oa 

,ISP 

,1SPF 

SENF 

19. 

♦ 

ULFT 

. olft  y 

,OLFTB 

, ULFT  A 

SENF 

20. 

♦ XrtCG 

,x*cgv 

,xacsr 

,X*CGA 

, XACSA 

, COD AE 

SENF 

2J. 

•CULFT 

,CT 

,CALPHA 

,CCE 

.CELTAE 

,S10 

GENF 

22. 

• COO 

,SIDAE 

, XC6 

,zcs 

,XJ 

StNF 

23. 

COAAOtf  / 

G§KF  / 

SENF 

29. 

♦ XJV 

, XJB 

,GH 

, GAAAAD 

,£<S 

,XKP 

SENF 

25. 

♦FRATED 

. IRATED 

SENF 

26. 

•PI 

,P2 

. P3 

,XK2 

,XK3 

SENF 

27. 

• XK1T 

XK2T 

, XX3T 

, XX  ID 

, XK2D 

. XX30 

SENF 

28 

• XK1A 

. XK2  A 

, XK3A 

,X*1V 

,XK2V 

. XX3V 

SENF 

29. 

♦ XK1G 

,l*ZG 

, XX3G 

,XX1P 

,XKZP 

. XK3P 

SENF 

30. 

♦ XX1R 

,XK2S 

,XK3R 

, XllQ 

,XK20 

. XX30 

SENF 

31 . 

• XK1U 

,X*2U 

,XX3U 

,X*1* 

, XK2A 

, XK3« 

SENF 

32. 

♦ PV 

,P  G 

.PP 

PR 

,P0 

, DPDVt  3,8  > 

GENF 

33. 

REAL  LIFTR  , LIFT 

, LIFTA,LIFT*  , 

HACH, 

nACHB, 

6EWF 

♦ ISP,  I 5PF  flACHV,LI 


I RATED 


FRAT 

GENF 


36. 

EOUIVALENC 

E(TLPl,TPHi).<TLSl, 

TSTU 

SENF 

37. 

COflUON/STS/ 

STS 

38. 

♦ DP  AY 

,P«I«  .UORIt  (20, VXDS 

,IPC 

< 7 ). NITER 

9 

STS 

39. 

♦ fINSAt  20.2). flhlGPl  20.2)  . AM2G0 

). I A0C2C ) . 

I N?<  2G  ).1SY<  20  ) 

STS 

90. 

CGflAOH/RETREV/  FTIrE, BTI*E, *AXAt2  >,*AXB 

RETREtf 

91. 

CGflftGN/RETREV/ 

RETREy 

92. 

•NBUFAC2) 

, I BUF1  M IBUF2 

,NBFA 

,HBFB 

,fUXA 

f 

RETREy 

93. 

♦*I  XB 

.«XA  .MB 

, UPTA 

,HPTB 

,IBLXB 

FcTREy 

99 

95. 

•.NBUFB  -IBDFB 

ConflQN  /xcodeS/ 

RETREy 

XCDOES 

96. 

♦ ITU  <9)1  COR  < 20 ) ITI 

,IH\B 

, J SI D( 20 

,2  >. JPH  C 20, 

2>. 

XCODES 

97. 

♦JST  (20)  .NCNST 

,NSB 

,NSAB 

. NICNB 

XCODES 

96. 

• I20P 

,ICOP  ,IFAM 

, IFAR 

#IFB 

,IND 

*9 

XCODES 

99. 

*IOPEN 

,IPH  ISPH 

,I$ST 

^ I ARC 

, ISTART 

w 

XCODES 

50. 

♦ ITCT 

,1T£R  , 1 VAR 

,JPS 

/JS 

9 

XCODES 

51. 

♦ KOP 

,<PST  ,t 

,KST 

.NAD. 

NCASE 

XCODES 

52. 

*HZH 

,NEPB  MED 

,NDP 

,NPH 

0 

XCODES 

53. 

♦ NST 

,tPST  ,IPRI«T 

,ism 

,1PHN 

, ISTNB 

0 

XCCDES 

59. 

♦IPKNB 

-IBLK2 

.JSTOP 

M ISTPP 

,L 

XCODES 

55. 

♦ IFOB 

,RB  , LB 

.snB 

, J 31 

. NPHP 

.NPHB 

XCODES 

56. 

♦NCTIN 

.NEOF  , ItAB(  B),JPfiP 

IP1HC20),JP1 

,JP2,JP3 

X CODES 

57. 

C0nAQN/DATA7 

DATA 

58. 

•PI 

,SAO  ,RDt  ’ 

,sc 

.imp 

, TrtPF 

DATA 

59. 

*FT«N 

, cab  .japi 

,je?2 

, J0P3 

, J0F9 

DATA 

60. 

COrtnOM/SLOBAL/ 

GLOBAL 

61 

• GR 

,ER  ,0*82 

r XLAnRF 

.YNOKF 

.LUN 

GLOBAL 

62. 

*,JJOPt 10) 

.ifatal  ,nahc 

9BRAN 

,NFARC 

, IOC  9) 

Global 

63. 

*,  KTABt  20 ), 

ITAS(20>  sib  ,h 

AXTAB 

global 

69. 

,psirf,ipflsi. 

lPFLG2,IPFLG3,lPFLG9,I«EaFL<Z0) 

Global 

65. 

» 

.ITPSD  _ KSQL 

.KSLOBLIS) 

— r - - ■ — 

* 9 

RET  AF 

66. 

COMMON/  ORBIT/  VI. 

GANI, 

PSII, 

xmji. 

f. 

ORBIT 

67. 

* 

ECC, 

AI NCL 

ARGP, 

ASCNOD, 

smnAj. 

APOGEE, 

ORBIT 

68. 

* 

PERGEE, 

ANOftLY, 

CAFX, 

CAFV, 

ASVMP, 

ENERSV, 

ORBIT 

69. 

* 

HfINT*. 

0 VI OY 

OVIDS, 

ORBIT 

70 

* 

DVIOH  . 

DVIDA, 

OYICFS^ 

D VIDRO, 

oviomi, 

0S10V, 

ORBIT 

71 

♦ 

DSIDS  , 

DSIOrt, 

DSIOn  , 

CSlOrS, 

DalDFO, 

OSIDMU, 

ORBIT 

72 

* 

DPIDV  , 

DFIDS, 

OrlDH  . 

DPI  Drt 

DPIDPS, 

OPIORO, 

ORBIT 

73 

-* 

OPiomj, 

DrtIDY, 

OAIOS  , 

CRIBH  , 

cm  ON  , 

OBIDPS, 

ORBIT 

79 

* 

OrtIDRO, 

Dni DAD, 

DPOV  , 

OPBa  , 

DPOH  . 

OPOfl  , 

ORBIT 

75. 

* 

DPDPS  , 

OPORO  , 

OPDAU  , 

DECOV  9 

CECDS  , 

DECDH  , 

ORBIT 
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76. 

♦ DcCD9  , CECCP5,  DECORO, 

DECCrtU 

01 DY  , 

DIDS  , 

ORBIT 

77. 

* EJIBH  CIDN  , D1CPS  , 

DIORO  , 

DIBNU  , 

CBEOV  , 

ORBIT 

78* 

* C3EC3  , C3EDH  , O3E0H  , 

oaeops. 

BStCnG , 

OBEDNU 

ORBIT 

79. 

* 0X009  , 0X003  , DXOOrt  , 

DXOCA  , 

CXDCrS, 

OXOORO, 

ORBIT 

60. 

♦ OXOCNJ.,  DS*BY,  CSABS, 

OSfiOM, 

BSABA, 

B5N0PS 

ORBIT 

61. 

CC*90*/eR3IT/ 

ORBIT 

82. 

• 05*360,  C$NBNU,  BftFDV, 

BAP06, 

CAPDH, 

CAPON  , 

ORBIT 

83. 

* DArSrS , DAPDriS,  DAFDflU, 

OFEOY, 

Dr  E Da, 

DFEOH  , 

ORBIT 

6*1. 

•CrEC*  ,CrEC?S  , DPfcBRQ 

.OrtONU 

,CAX3V 

, BANDS 

ORBIT 

85. 

* BftXDrt  , CANON  , BAXBP5, 

CAXORO, 

BAX09U, 

DCXOV  , 

ORBIT 

86. 

* DCXCS  , DC5CH  , OCXDN  . 

OCXDPS. 

BCXCnO , 

DCXDNU, 

ORBIT 

87. 

* 0CVC9  , CCYCS  , OCYDH  , 

OCYDN  _ 

OCYDPS, 

CCYDRO, 

ORBIT 

88. 

* 0CYD9U,  CAS09  , DA50S  , 

DASDH  * 

0 ASCI  , 

DASDPS, 

ORBIT 

89. 

* DASORQ,  DASCNU,  BENDY  , 

BEADS  , 

DEXBH  , 

DEMON  , 

ORBIT 

9G  . 

* CtXOrS,  OENDRO,  OENDNU, 

DADDY  I 

DADDS  , 

DNDDH  , 

ORBIT 

91* 

* DftOOA  , C^OCFS  ONODRQ, 

BNOONU 

ORBIT 

92. 

DINENSICN  Ondrnm  le  ),FPG<  7,  18  ) 

ORBIT 

93* 

EQUI VAlEXCE  ( Yl,CRBrRN),( BYIDV. 

PPO) 

ORBIT 

99. 

co«*o*/cssit/  t"XRF,SwxL«s,csxL«r,SDanH. 

S CROSS, TO, 

TC 

ORBIT 

95. 

♦.SXFSK  _CSPSR  ,SNSI 

,CSSI 

,CPSJI 

ORBIT 

96. 

* STQT  ,CS1  ,5X1 

,SNSNU 

, CSANO 

,COSONU 

ORBIT 

97. 

* SIXDNJ  _ThT  .WTFUEL 

ORBIT 

98. 

CGNfiaN/5TAT£3/ 

STATE3D 

99. 

♦ VARU9)  ,C9AR  C19),VARl  (99) 

.DtfABLl  99  ) , VG(  3 ) 

,SWY(  10) 

9 

STATE30 

ICO. 

*XL(9,5)  YBFt2G  9 ) YDS  (20*9) 

,COSSAN 

,SINSAN 

,$AVBP< 15) 

STATE30 

101. 

•SINP5I  CG5F5I  ,5INRH0 

, COSRHO 

,OCORHQ 

,OCOR02 

STATE30 

102* 

•SVBY  t9),0N£8A  ,D*tSA2 

STATE3D 

103. 

*VDV  ,SDV  ,RDV 

*P!OY 

,P0¥ 

,00¥ 

, 

STATE3D 

109. 

*UDV  ,9 OC  ,SBG 

,RDS 

,PBS 

,ODG 

, 

STATE3D 

105. 

•UD6  _Y OR  ,SBR 

,flOR 

,PDR 

,0  DR 

STATE3D 

106. 

♦ UDR  ,¥DN  .SON 

,«DN 

,PDN 

,VOP 

STATE3D 

107. 

*6DP  ,FBP  * ODP 

UDP 

,Y00 

, SDO 

, 

STATE3D 

108* 

♦POO  ,UOD  ,HTO¥ 

,HTDR 

STATE3D 

1G9. 

REAL  NON  NDV,  NDR 

5TATE30 

no. 

C0n*2N/STAT£3/ 

STATE3B 

111. 

•SIM2R0  , CGS2R0  C0S2GN 

STATE30 

112. 

OlNtXSlOX  11T3(2191  .IGNSC633) 

IOPAY( 370 1 

PH15Z 

113. 

EQUIVALENCE  ( JTO, I I IB), (OHS, I 093), (OP AY. 

IOP«lV> 

TOPN 

119. 

CONNON/PARA*/ 

PARAN 

115. 

♦IFQINTI  12 ) ARA, XPA  .SPAHAC  9.1Z),WTPD 

Ilf,  HIP 

12), 

PARAN 

116. 

•SPARBt  5, 12  > , P AR A{ 12 ), OP ARC  12 ) 

,S2IXY(  9 

PARAN 

117. 

♦ DELFl  9 1 

PARAN 

118. 

DATA  S2IN*  / 81*  0_  / 

TOPN 

119. 

DATA  I PC I XT. NP  AR  A XrA.SPARA.UTP 

, SP AR5.PARA.BPAR/ 

PH1SZ 

120. 

* 12*0,0.0, 1G£*G. _ 12*0. . 1G«*G. _ 12*0., 12*0 

-/ 

PrtlSZ 

121. 

LOSICAL  IrATAL 

TOPN 

122. 

DATA  M(PD/1-,1-,1*#-G1,1*,2.,1. 

..1.0./ 

TOPN 

123. 

DATA  CELP  / .02,2*, 02,200. ,2*,. 

02, .01* .01.  0./ 

TOPN 

129. 

DATA  10*3/633*0/ 

PrtlSZ 

125. 

DATA  1170/219*0/ 

PAISZ 

126. 

DATA  IDFAY/370*Q/ 

1 

PH1SZ 

127. 

DATA  NUA,NIXB,XBFA,MBF8  / 990, 

3000,20,60  / 

TOPN 

128. 

C 

TOPN 

129. 

DINENSICN  KWGU(757l 

PH1SZ 

130. 

EOUI YALEXCEC  A UGU, VAR  > 

Prtisz 

131* 

DATA  KWOai  / 757*6/ 

TOPN 

132. 

10  CONTINUE 

TOPN 

133. 

20  CONTINUE 

TOPN 

139. 

C 

I SCAN  INPUT  DATA 

CONN 

135* 

CALL  0YtfiLAY(9HSDlX,3,l,0> 

TOPN 

136. 

c 

11  IF  INPUT  EnfiORS  RETUfiB 

CONN 

137. 

IF(IFATAL)  SO  TO  130 

TOPN 

138. 

c 

III  IF  9L  ONLY  RETURN 

CONN 

139* 

IF( LJN. EO -3 ) £0  TO  130 

TOFN 

190* 

c 

SET  FILE  XUH8ERS  AXD  FLAC 

FOR  FIRST  XONIXAL 

CONN 

191* 

IFArf  =39 

TOPN 

192. 

I FAR  =90 

TORN 

H3. 

IFB  =91 

TOPN 

199. 

I START  =1 

TOPN 

115* 

I20P  =0 

- 

TOPN 

196. 

ITER  =1 

TOPN 

197. 

I PRINT  =1 

TOPN 

198. 

ITCT=1 

TOPN 

199. 

NCAS£=  1C(  3 > 

TOPN 

150. 

e«£SA=ONSI 

TOPN 
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151 

0'iEGA2=0«SZ.o*6l 

TOP* 

152 

30 

CONTINUE 

TOP* 

153. 

IFOfl  =1 

TOP* 

159. 

C 

CC"N 

155 

C 

IN  INTEGRATE  TRAJECTORY 

COAN 

154 

C 

V IF  NO  CONTROL  DIVEFSANCE  ERROR  SO  TO 

Will 

COAN 

157 

C 

else  chec*  if  first  ncminal  so  to 

XVIII 

CO  AN 

158 

C 

else  so  to  yi 

COAN 

159. 

call  OVERLAY  ! 5H!rNTS,3#2,6Hfi£CALL> 

TOP* 

140. 

IF{ ISTART.NE-6)  SO  TO  .6 

TOP* 

HO — • 

161 

i fi itct.le.i ) so  ra  125 

PHiSZ 

125' 

162. 

C 

VI  CALL  TEST  TO  SCALE  BONN  STEP  S1ZECSI 

CO*N 

163. 

CALL  OVERLAY  t 5HITEST, 3,3,0 > 

TOP* 

169 

IFRINT  =1  ' ' 

TCP* 

165 

C 

VI!  TEST  WHETHER  SOLUTION  CONVERSANCE  HAS 

FALTERED 

CO  «N 

166 

C 

IF  SO  60  10  XI  ELSE  RESET  FLAG  AND  SO 

TO  IX 

CONN 

167 

IFCISTART.E0.5I  SO  TO  IS 

TCP* 

70- 

168 

ISTfiRT  =2 

TCP* 

169. 

SO  TO  60 

TOP* 

6G“ 

170 

C 

VIII  NDRHAL  SOLUTION  CONVERSANCE  TESTINS 

CO*N 

171. 

C 

CD*N 

172. 

C 

VIII-A  IF  SOLUTION  TRAJECTORY  HAS  ALREADY 

BEEN 

1NTSRATED 

COAN 

173. 

C 

RETURN  ELSE  SO  TO  VII I-B 

CO*N 

17H. 

90 

CONTINUE 

TOP* 

175. 

IF!  ITER.E3.3J  S3  TO  130 

TOP* 

176. 

IPR1NT=I 

TOP* 

177. 

C 

VIII-B  TEST  CONVERSANCE 

COAN 

178. 

50 

CALL  OVERLAY!  5HITEST.3, 3, 0> 

TOP* 

1 

179 

60 

CONTINUE 

TOP* 

180. 

C 

CO  AN 

181 

C 

IX  PRINT  CONSTRAINT  rtlSSES  AND  PAYOFF 

COAN 

182. 

CALL  IPR( 4HDC0X,0C0N,I,NCN,O> 

TOP* 

183 

IFC ITER.E0.2)  CALL  IFR<  6HPAY0FF. BCONC  NCN1.I .1.0) 

TOP* 

1 89 

I F( 1ST  ART  EO.l)  ISTART=2 

TOP* 

185. 

C 

X IF  NO  CONVERSANCE  PROBLEM  SO  TO  XII 

ELSE 

XI 

CONN 

186. 

IFC I START. NE- 5 > SO  TO  80 

TOP* 

80  — 

187. 

c 

XI  SET  SOLUTION  FLftS  SO  TO  XVII 

COAN 

188. 

70 

ITER-3 

TOP* 

189. 

ISTART=2 

TOP* 

190. 

so  to  no 

TOP* 

110- 

191. 

c 

COAN 

192. 

c 

XII  IF  SOLUTION  FLAS  NOT  SET  SO  TO  XIII 

COAN 

193. 

c 

ELSE  REVERSE  READ  AND  WRITE  FILES  AND 

GO  TO 

XVII 

COAN 

199. 

80 

CONTINUE 

TOP* 

195. 

IFC ITER. NE. 3)  60  TO  90 

TOP* 

90  — 

196. 

IFR=1FAR 

TOP* 

197. 

IFAR-IFAU 

TOP* 

198 

If AN'IFH 

TOP* 

199 

60  TO  110 

TOP* 

lie- 

200. 

c 

CG*N 

201. 

c 

XIII  IE  STEP-SIZE  SCALING  HAS  QCCURREO  RUN  ANOTHER 

CQ*N 

202. 

c 

TRIAL  TRAJECTORY  I GO  TO  IY  ) 

CO*N 

203 

c 

ELSE  RESET  FILE  NUMBERS  SO  TO  XIV 

CO*N 

209. 

9G 

1F( XOP+NOP . 6T- 0)  SO  TO  30 

TOP* 

205. 

IFR  = IFaR 

TOP* 

206 

IFAR—  I F AW 

TOP* 

207. 

IFAU  = IFR 

TQF* 

208. 

1FB8  =2 

TOP* 

209. 

c 

COAN 

210. 

c 

XIV  INTEGRATE  ADJOINT  SOLUTION 

COAN 

211. 

CALL  aVERLAY!  SHI BNTG, 3, 4, 0 > 

TOP* 

212 

1START=2 

PHISZ 

213. 

c 

COAN 

219 

c 

XV  IF  OPTIMIZATION  PASS  COMPUTE  PAYOFF 

IMPROVEMENT 

COAN 

215- 

IF!  ITER.NE.2)  SO  TO  100 

TOP* 

ICC- 

-1 

216. 

CALL  OVERLAY  I5HIPAY0,3,5.0> 

TOP* 

„ f 

217 

ICG 

CALL  IFR!  4HDC0N,  DCBN, J.nCN.O J 

TOP* 

218. 

IF! ITER.E3.3)  SO  TO  110 

TOP* 

11C  — 

— 

219. 

c 

XVI  IF  SOLUTION  FLAS  SET  SO  TO  XVII  ELSE  SO  TO  I V 

COAN 

220 

60  TO  30 

TOP* 

221. 

110 

CONTINUE 

TOP* 

rrsr 


130-f 


20  OCT  72  G. 01-96 


231 

115 

CONTINUE 

PHISI 

232 

C 

XVIl-B  CALCULATE  TRANSFORMED  ADJOINTS 

COM4 

233. 

C 

WRITE  FIRST  STARTING  SOLUTION  RECORD  AND  GO  TO  IV 

COM4 

234. 

ITER-2 

TOPM 

235 

CALL  OVERLAVl NHTRAN, 3,6,0) 

TOPM 

236. 

REWIND  11 

PHISI 

237. 

WRITE!  11)  5 VAfi<  1 ),NEQ.NST,<  DISK  I l.I-I  .NST),<  DIPK  J ),J  = 1,NPH1 
*,(  T5TU  II  >,II=1  .NSTKCTPHH  I J ),  I J=1 , NPH  ) 

RETAP 

238. 

NOS 

239. 

flER=3 

TOPM 

240. 

BO  TO  30 

TOPM 

241. 

C 

XVIT-C  RESET  NO-  OF  EOUATIONS,  BO  TO  I V 

COM4 

242 

120 

NEQF  s NEQ  +3 

TOP* 

243. 

60  T030 

TOP* 

ZNA 

C 

X VI t I FATAL  ERROR  RETURN 

CONN 

245 

125 

1FATAL=-TRUE. 

PH  151 

246. 

130 

CONTINUE 

TGPft 

247. 

END 

TOPM 

222 

C 

XVII 

223. 

I F(  LUrt  ED 

224. 

1 F(  NCN  ED 

225. 

C 

XVtl-A 

226. 

c 

227 

c 

228 

I FATAL  = 

229 

LUM-Q 

230 

GO  TO  120 

IF  NO 


TRANSFORMATION  FLAG  SET 
I 120 


GO  TO  .XVII-C 


TRANS. FLAG  IS  SET. 
OPTIMIZATION  PASS 
ELSE  ERROR  FLAG 


IF  LAST  TRAJECTORV  WAS 
GO  TO  XVI I-B 
SET  .SO  TO  XVII-D 


CONN 

TOPfl 

PHISI 

CONN 

CONN 

CONN 

FH15Z 

FH1SI 

PHISI 


120“ 

115- 


30-* 
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BL0CK 

AEC03 


177 


hath 

SYlBBOL 


DESCRIPTION 


S TORASF 
BLOCK  LOC 


subrpuhrf  us AGg 
SUSR  root  VAR 


APHO 

Angle  of  attack 

o 1 d 

AP  HR 

« 

Angle  of  attack 

ALPHA 

ct 

Angle  of  attack 

VOA 

3v  /a« 

See  sy  *bo  1 

GDA 

37/3« 

See  syabol 

PDA 

3^/3“ 

See  syabol 

SINA 

s i n« 

5ee  syabol 

COSA 

cos« 

See  syabol 

PHIO 

4 

old 

Bank  angle  fro* 

PHIO 

* 

Bank  angle 

PHI 

Bank  angle 

5INPHI 

s t 

See  sy*bol 

/AEC03 

/( 

l ) 

AST  3 

IB 

APHO 

FNTG 

I 

APHO 

HTX3A 

I 

APHO 

OUT 

1 

APHO 

PROP  B 

0 

AEZRO 

PROPIN 

0 

AE2R0 

/AEC03 

/( 

2 ) 

A5ETB3 

0 

AP  HR 

AST  3 

IB 

AP  HR 

BEROCO 

I 

APHR 

8LGC0N 

0 

AP  HR 

GUI  3A 

n 

APHR 

rtOOELA 

n 

APHR 

IBGOELB 

1 

APHR 

IBTX3A 

0 

APHR 

OUT 

l 

APHR 

/AEC03 

/( 

3 ) 

BEROCO 

i 

alfha 

BLSCCN 

n 

ALPHA 

BL2 

! 

ALPHA 

FNTG 

a 

ALPHA 

IBAIBECO 

i 

ALPHA 

FIOOELA 

n 

ALPHA 

P100ELB 

0 

ALPHA 

REUS 

0 

ALPHA 

VT 

I 

ALPHA 

/AEC03 

/( 

<n 

ACCEL 

0 

VOA 

A0E93 A 

I 

VDA 

/AEC03 

n 

5 ) 

ACCEL 

0 

GDA 

ADE33 A 

I 

GDA 

/AEC03 

/[ 

6) 

ACCEL 

0 

PDA 

A0E33A 

I 

PDA 

/AEC03 

n 

7 ) 

ACCEL 

I 

SINA 

BLR 

I 

SINA 

BL6 

I 

SINA 

BLT 

I 

SINA 

BL8 

I 

SINA 

FH3 

I 

SINA 

GUI3A 

IB 

SINA 

OUT 

I 

SINA 

VT 

IB 

SINA 

/AEC03 

n 

8 ) 

ACCEL 

I 

COSA 

SLR 

I 

COSA 

Bl6 

I 

COSA 

BLT 

I 

COSA 

BL8 

I 

COSA 

FH3 

I 

COSA 

OUT 

I 

COSA 

VT 

IB 

COSA 

/AEC03 

n 

9 ) 

AST3 

IB 

PHIO 

HTX3A 

I 

PHIO 

/AEC03 

n 

10) 

AGETB3 

0 

PHID 

AST3 

n 

PHID 

GUI  3 A 

IB 

PHID 

rtBDELA 

IB 

PHID 

IBDOELB 

'I 

PHID 

IBTX3A 

0 

PHID 

OUT 

I 

PHID 

/AEC03 

n 

n ) 

GUI3A 

IB 

PHIR 

rtOOELA 

IB 

PHI 

IBODELB 

rB 

PHI 

OUT 

I 

PHI 

/AEC03 

n 

12  ) 

ACCEL 

I 

SINPHI 

BLR 

I 

SINPHI 

nGOELA 

IB 

SINPHI 

HOOELB 

IB 

SINPHI 

OUT 

I 

SINPHI 

30  OCT  72  G 01-R6 
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I OMItflU 
SYMBOL 


lift  1 H 

symbol 


DESCRIPTION 


■j^apunwe  usage 

3J6h  (ODE  var 


storage 

a lock  toe 


rosPHi 

c o stf 

See  ty nbo  1 

/AEC03  /[ 

13  ) 

ACCEL 

I 

COSPHt 

8LH 

I 

C0SPH1 

Gill  3A 

PI 

COSPHt 

DOOELA 

PI 

COSPHt 

ROOEL8 

PI 

COSPHI 

OUT 

I 

COSPHt 

GOPHI 

d?/dt 

See  symbo  1 

/ AEC03  /[ 

19) 

ACCEL 

ADE03A 

0 

1 

GDPH 

GOPH 

PDY3A 

0 

GDPH 

P DPMI 

dt/d? 

See  sy mbo  1 

/AEC03  /{ 

15  ) 

ACCEL 

AOE93A 

0 

I 

P DP  H 
POPH 

P DY3A 

0 

POPH 

XLAPIA 

.y.n 

Impulse  response  function  column  vector  associated 

/AEC03  /{ 

16  ) 

A0ES3A 

PI 

XLAPIA 

A 1 J 

«ith  angle  of  attack 

A0IC3A 

0 

XLAPIA 

A5T3 

0 

XLAPIA 

8GET3 

0 

XLAPIA 

B5T03 

PI 

XLAPIA 

RTX3A 

I 

XLAPIA 

TRAN3 

PI 

XLAPIA 

XLAPIP 

Impulse  response  function 

eotumm  vector  associated 

/AEC03  n 

25  ) 

ADE03A 

PI 

XLAPIP 

A 1 J 

mith  bank  angle 

ADIC3A 

0 

XLAPIP 

AST3 

0 

XLAPIP 

8GET3 

0 

XLArtP 

8ST03 

PI 

XLAPIP 

RTX3A 

I 

XLAPIP 

TRAN3 

PI 

XLAPIP 

CDO 

c„ 

Drag  coefficient  at  « = 0 

/ AECD3  /[ 

3*t) 

9ERQC0 

I 

COO 

D0 

EQUA3 

I 

COO 

CDOPI 

acn  /am 

See  symbol 

/AEC03  /[ 

351 

BEROCO 

I 

CDOrt 

D0 

E0UA3 

I 

CDOPI 

CLO 

c, 

Lift  coefficient  at  * = 0 

/ AEC03  /t 

36) 

3ER0C0 

I 

CLO 

Lo 

Eau  A3 

1 

CLO 

FK 

k 

Induced  drag  coefficient 

/ AEC03  /( 

37) 

3EROCO 

I 

FK 

E0UA3 

1 

FK 

XCGR 

ax„_/am 

See  symbo 1 

/ AEC03  /[ 

38  ) 

EL2 

I 

XCGPI 

tO  UA3 

0 

XCGI9 

YT 

I 

XCGrt 

ZCGPI 

dl^/da 

See  symbo 1 

/ AEC03  n 

39  ) 

EL2 

I 

ZCGp) 

Cb 

EQUA3 

0 

ZCGPI 

YT 

I 

zcgia 

CLGR 

ac.  /an 

See  symbol 

/AEC03  /( 

90  > 

BEROCO 

1 

CLOP! 

Lo 

E8UA3 

I 

CLOU 

CPI 

c„ 

Moment  coefficient 

/AECQ3  /( 

91  1 

PIAPIECO 

0 

CM 

H 

YT 

I 

CPI 

CPI  A 

Ct, 

Moment  coefficient  slope 

/ AEC03  /( 

92  ) 

EQUA3 

R 

COA 

Ha 

PIAP1ECO 

I 

CPIA 

YT 

I 

CP1A 

CPIAPI 

ac„  /an 

See  symbol 

/AECD3  /( 

93) 

E0UA3 

PI 

CPIArt 

" a 

PIAPIECO 

I 

CPIAPI 

CPI  PI 

aCjy/an 

See  symbol 

/ AEC03  /( 

99  ) 

PIAPIECO 

0 

cpm 

YT 

I 

CPI  PI 

CPIO 

c„ 

Moment  coefficient  it  a = 

0 

/AEC03  /( 

95  ) 

E0UA3 

I 

CPIO 

“o 

PIAPIECO 

I 

CPIO 

C'lOPI 

ac„  /an 

See  symbo  f 

/AEC03  /( 

96  ) 

E0UA3 

I 

CPIOPI 

"0 

PIAPIECO 

I 

CP10PI 

FKP5 

ak/an 

See  symbo 1 

/AEC03  /< 

97) 

BEROCO 

I 

FKPI 

E0UA3' 

I 

FKB 

CLAP! 

ac.  /an 

See  symbo 1 

/AEC03  /( 

96  ) 

BEROCO 

I 

CLAPI 

'-a 

E0UA3 

PI 

CLAB 

CL 

C, 

Lift  coefficient 

/AEC03  /( 

99  ) 

BEROCO 

PI 

CL 

L 

OUT 

I 

CL 

YT 

1 

CL 
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FORI  RAtJ 

FIAT  H 

DESCRIPTION 

5 I On  A1 

RE 

SiMfiO'Ji  I V£ 

US  AGE 

jYPIHOL 

SYMBOL 

6LQ..K 

LDC 

GUSH 

LODE 

VAR 

CLA 

c 

Lift  coefficient 

5 lope 

/AEC03  /( 

50  ) 

8ER0C0 

n 

CLA 

ECUA3 

CLA 

VT 

i 

CLA 

CLP) 

acL/ai<i 

Sec  sy »bo 1 

/AEC03  /( 

51  ) 

BEROCO 

VT 

n 

I 

CUT 

CLR 

CO 

r 

Dreg  coefficient 

/AECQ3  /( 

52  ) 

BEROCO 

0 

CD 

OUT 

I 

CO 

VT 

I 

CO 

CDA 

acD/a« 

See  syabol 

/AEC03  /( 

53  ) 

BEROCO 

VT 

m 

I 

CDA 

CDA 

con 

aCp/an 

See  symbol 

/ AEC03  /( 

5<») 

BEROCO 

VT 

0 

I 

con 

con 

30  OCT  72  G Ol-Bt 


189 


BL0CK 

AIRBRE 


181 


FORtRAN  NATH 

SvmftOL  SVmftOL 

TAIRB 

TAJRBV 

TAIRBH 

SFC 

SFCV 

SFCH 


DESCRIPTION 

Alrbrcather  thrust.  ( LB5  ) 

Partial  of  airbrsather  thrust  WRT  velocity 

Partial  of  airbreather  thrust  WRT  altitude 

Specific  fuel  consumption  (LBS/LB/HR) 

Partial  of  SFC  URT  velocity. 

Partial  of  SFC  URT  altitude. 


S TOR  ft. IF  i UBHQUT  I lit 

BLOCK  LOC  SOAR  COOt  VAR 


/AlflBRE/l 

1 ) 

£ 0 U A 3 

I 

TA1RB 

F HA 

I 

TA1RB 

/A1RBRE/I 

2) 

ACCEL 

I 

TA1RBV 

F HA 

I 

TAJRBU 

/ A I RBR  E/( 

3) 

ACCEL 

I 

TAIRBH 

F HA 

I 

TAIRBH 

/AIRBRE/C 

A) 

ACCEL 

I 

SFC 

/AIRBRE/l 

5) 

ACCEL 

I 

SFCH 

/A13BRE/1 

6) 

ACCEL 

I 

SFCH 

30  OCT  72  G 0 1 -At 


BL0CK 

AXL 


fr  OH  1 HAN  HATH 

SYMBOL  SYMBOL 


DESCRIPTION 


s T o a a ~ig 

BIOL*  LOC 


S'JBR  CODE 


AV 

_ V 

Acceleration  vector 

e 1 ement . 

/AXL 

/( 

l ) 

ACCEL- 

(1 

AV 

a 

DER3A 

J 

AV 

AG 

_ 7 

Acceleration  vector 

e 1 ement . 

/AXl 

/( 

2) 

ACCEL 

n 

AG 

a 9 

DER3A 

I 

AG 

' 

P0Y3A 

l 

AG 

AP 

Acceleration  vector 

e i ement . 

/AXL 

/< 

3) 

ACCEL 

m 

AP 

a 

DER3A 

l 

AP 

PDY3A 

l 

AP 

All 

i R 

Acceleration  vector 

e lement. 

/AXL 

/( 

A ) 

ACCEL 

n 

AM 

a 

OER3A 

i 

An 

AV 

Name  of 

ac  ce  1 er  at i on 

parti  a 1 s ■ a t r i x * 

/AXL 

/( 

5 > 

ACCEL 

n 

AW 

ACCEL 

0 

AY 

PDY3A 

i 

AW 

AW 

Element 

state. 

of 

■ at r i x 

of 

acceleration 

vector 

p art i a t s 

UIRT 

/AXL 

/< 

5) 

AGV 

Element 

of 

■ at  r i x 

of 

acceleration 

vector 

p ar  1 1 a 1 s 

URT 

/AXL 

/( 

6 > 

ACCEL 

0 

AGV 

state . 

PDY3A 

i 

AGV 

AP  V 

Element 

of 

■atr i x 

of 

acceleration 

vector 

p ar  1 1 a 1 s 

URT 

/AXL 

/( 

T ) 

ACCEL 

0 

AP  V 

state . 

P0Y3A 

i 

AP  V 

APIV 

Element 

of 

■ atr  I x 

of 

acceleration 

vector 

p art i • 1 s 

URT 

/AXL 

/( 

8) 

ACCEL 

0 

Anv 

state  . 

PDY3A 

i 

Afiv 

AV6 

El e>ent 
state. 

of 

■ atr  i x 

of 

acceleration 

vector 

part i a 1 $ 

URT 

/AXL 

/t 

9) 

AGG 

El  ement 
state 

of 

■atr 1 x 

of 

‘acceleration 

vector 

parti  a I s 

URT 

/AXL 

/( 

10  ) 

AP  G 

E 1 e »e  nt 
state . 

of 

■ atr  I x 

of 

acceleration 

vector 

p art  i a 1 s 

URT 

/AXL 

/( 

in 

AUG 

Element 

state. 

of 

■ atr  I x 

of 

acce 1 er  at i on 

vector 

p art  i a 1 s 

URT 

/AXL 

/{ 

12) 

AVP 

Element 

state. 

of 

■ at  r { x 

of 

acceleration 

vector 

p art  I a 1 s 

WRT 

/AXL 

/( 

13) 

AGP 

Element 

state. 

of 

■ at  r i x 

of 

accel er  at  Ion 

vector 

parti  a 1 s 

U)RT 

/AXL 

/( 

19) 

APP 

Element 

state. 

of 

■ atr  I x 

of 

acceleration 

vector 

part i a I s 

URT 

/AXL 

n 

15  ) 

A(1P 

Element 

state. 

of 

■ atr  i x 

of 

acceleration 

vector 

p art  1 a 1 s 

URT 

/AXL 

/< 

16) 

AVR 

Element 

of 

■ atr  i x 

of 

acceleration 

vector 

p art i a 1 s 

URT 

/AXL 

/( 

17) 

ACCEL 

G 

AVR 

state. 

P0Y3A 

1 

AVR 

AGR 

Element 

of 

■ atr  * x 

of 

acceleration 

vector 

p ar  1 1 a 1 s 

URT 

/AXL 

/( 

18) 

ACCEL 

0 

AGR 

state 

PDY3A 

I 

AGR 

APR 

E 1 e men t 

of 

■ at r i x 

of 

acceleration 

vector 

partial: 

URT 

/AXL 

/< 

) 9 ) 

'ACCEL 

a 

APR 

state. 

PDY3A 

i 

APR 

APIA 

E 1 cient 

of 

■ atr  i x 

0 f 

acceleration 

vector 

part  i a 1 s 

URT 

/AXL 

/( 

20  ) 

ACCEL 

‘0 

AI9R 

state. 

POY36 

i 

ArtR 

A VO 

Element 
state  . 

of 

■ atr  i x 

of 

acceleration 

vector 

parti  a 1 s 

URT 

/AXL 

/< 

21  ) 

AGO 

E 1 ement 

state- 

0 f 

■ a t r i x 

0 f 

acceleration 

vector 

p ar  t t a 1 S 

URT 

/AXL 

n 

22  ) 

APO 

E 1 e sent 
state 

of 

■at r i x 

of 

acceleration 

vector 

parti  a 1 S 

URT 

/AXL 

/< 

23) 

A (10 

Element 

state 

0 f 

■ atr  i x 

of 

acce leration 

vector 

p ar  t i a 1 s 

URT 

/AXL 

/( 

2 9) 

AVU 

Element 
st  ate. 

of 

■ atr  i x 

of 

acce leration 

vector 

parti  a t s 

URT 

/AXL 

/< 

25) 

AGO 

Element 

state. 

of 

matrix 

of 

acce leration 

vector 

p ar  t i a 1 s 

URT 

/ AXL 

/( 

26) 

APU 

Element 

state. 

of 

■ atr  i x 

of 

acceleration 

vector 

p art  i a 1 5 

URT 

/AXL 

/( 

27) 
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i ii  ii  Ui  nM  rtft  I H nCQr'DTDTTflM  !>  t C ft  a 3 uraqu  n us» 

3 mill)  I iVilHOL  U C.  O l)  M I " I 1 U IV  8tOI  K lOL  it)1)"  t OOfc  VAn 


flnu 

E 1 e me  n t 
st  ate 

0 f 

matrl  > 

of 

acceleration 

vector 

p art  1 a I a 

URT 

7 AXL 

/( 

28) 

Avm 

Element 

0 f 

matr I i 

0 f 

ac  c e l er  at  1 on 

vector 

part  1 a Is 

P1RT 

/ AXL 

/( 

29  ) 

ACCEL 

0 

A Vrt 

state. 

POY3A 

I 

AVI1 

agm 

Element 

of 

matr I « 

of 

acceleration 

vector 

p ar  1 1 a 1 s 

URT 

/AXL 

/( 

30  ) 

ACCEL 

0 

AGP! 

state. 

PDY3A 

I 

AGH 

APm 

Element 

0 f 

matr  1 e 

0 f 

acceleration 

vector 

p art i a 1 s 

UIRT 

/AXU 

/( 

31  i 

ACCEL 

0 

Apfl 

state. 

PDY3A 

I 

APn 

Ann 

Element 

of 

matri « 

of 

acce  ler  at  i on 

vector 

partial: 

URT 

/AXL 

/( 

.32) 

PDY3A 

I 

Ann 

state. 


185 
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DATA 


186 


f OUTRAN 

SYMBOL 


DESCRIPTION 


STORAGE  SiMROUT  I NE  U5A6E 
block  loc  soon  code  vah 


30  OCT  72  G.Ol-Afc 


87 


BL0CK 

GENF 


188 


F OH  1 A AN  BATH 

Sybbol  sybbol 


DESCRIPTION 


.STORAGE 
rluch  loc 


i LiRAQ  ilT  I NE 
SUBh  I DOE 


DBG 

n 

Array  of  arc  cut  off  values  *lid3 

/GENE 

/( 

l ) 

ADJUST 

n 

OBG 

J 

FNTG 

I 

DBG 

PRBSET 

B 

OBG 

PROPB 

I 

OBG 

50INP 

B 

OBG 

StP  3 

l 

OBG 

TOPB 

D 

I OBG 

OMGP 

Array  of  phase  cut  off  values  Ltd] 

/GENF 

/( 

21  ) 

ADJUST 

0 

OBGP 

FNTG 

B 

OBGP 

PRB5ET 

D 

OBGP 

SOI  NP 

B 

OBGP 

VARO 

<VARQ> 

Desired  constraint  values  tsd} 

/GENF 

/< 

61) 

C0N3 

I 

VARO 

5DINP 

n 

VARQ 

TEST 

I 

VARO 

TOL 

Tolerence  on  constraint  olss-es  tsd3 

/GENF 

n 

TO) 

SO  I NP 

pi 

TOL 

511115 

I 

TOL 

TEST 

I 

TOL 

SVAR 

y j 

Array  of  state  values  at  Initial  problea  tine  Csdl 

/ GENF 

n 

79) 

ADJUST 

0 

SVAR 

' 1 t = 0 

BNTG 

i 

SVAR 

FNTG 

i 

SVAR 

PRBSET 

B 

SVAR 

REU3 

I 

SVAR 

5DINP 

B 

SVAR 

TEST 

I 

SVAR 

TOPO 

I 

5 VAR 

TRTOSZ 

I 

SVAR 

HOC 

Array  of  drop  oeight  per  arcCsdl  ( L&5 ) 

/GENF 

n 

89  ) 

BNTG 

REU3 

SDINP 

I 

I 

B 

LlOC 

uoc 

t 

DOC 

A 

A 

Control  Integral  taatrlx 

/GENF 

/( 

109  ) 

ADES3A 

0 

A 

ADI CB3  B A 
SGET3  0 A 
BNTG  I A 
B5T03  I ft 
BTX3A  I A 
PAY  02  I ft 
501 NP  I ft 
TRAN3  I A 


A CON 

Vector  of  noainal  constraint  aisses  + PAYOFF 

/GENF 

/( 

190) 

CONS 

B 

ACON 

inPROVEBENT 

TE5T 

B 

ACQN 

BCON 

Vector  of  constraint  aisses  on  trial  trajectory 

/GENF 

/( 

199  ) 

CONS 

0 

'BCON 

TEST 

I 

BCON 

TOPB 

I 

BCON 

COT  1 

Teap  storage  for  a aatrix  also  called  B aatrix 

/GENF 

/( 

208  ) 

AO  1 CB3 

» 

C0T1 

BTX3A 

n 

B 

TRAN3 

B 

COT  I 

DCON 

d^i 

Asked  for  correction  in  constraint  aisses  and  payoff 

/GENF 

/( 

289  ) 

C0N3 

a 

OCDN 

vector 

BTX3A 

i 

DCON 

PAY02 

B 

DCON 

TEST 

B 

DCON 

TOPB 

I 

DCON 

TRTOSZ 

I 

DCON 

OTP 

Altered  integration  interval  reqd  to  hit  phase  cut  off 
IsdD  (SEC) 

/GENF 

/( 

298  > 

FNTG 

n 

DTP 

DTS 

Altered  integration  interval  reqd  to  hit  arc  cut-off 
Csdl  (SEC) 

/GENF 

/( 

299  ) 

FNTG 

n 

DTS 

OT 

Integration  Interval  (SEC) 

/GENF 

/( 

300  ) 

BNTG 

B 

OT 

FNTG 

n 

DT 

REU3 

l 

OT 

RKTA3A 

I 

P 

RKT83  A 

i 

P 

STP3 

I 

DT 

YREF3 

0 

DT 
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HlR  1 RAN  PlftlH  nCrrDTDTlflM  S 1 QRAGE SUBROUTINE  USAGI 

SYMBOL  SYMBOL  UtOlnlf  I iUI\i  ftLOU  LOC  SU8H  CODE  VAR 


G 

g 

Gr tv | t at  1 o n» 1 attraction 

( FT/SEC»»2  ) 

/ GENF 

/{ 

30U 

BL9 

1 

G 

BL7 

I 

G 

BL8 

I 

G 

0ER3A 

I 

6 

E0UA3 

n 

G 

mODELA 

i 

G 

FIOOELB 

i 

S 

PDY3A 

i 

G 

SDER3 

i 

G 

SD1NP 

n 

G 

DPSO 

( dp  )2 

Pletrlc  of  control  and  parameter  changes  tsdl 

/GENF 

/( 

302) 

PAY02 

TEST 

n 

n 

DPSQ 

PS1S0 

TRTOSZ 

i 

0P50 

0 

a 

Dyna.Ic  pressure 

I P5F  ) 

/GENF 

/( 

303) 

ENVPRPI 

i 

0 

E0UA3 

« 

a 

OUT 

i 

a 

POBC 

i 

a 

VT 

i 

a 

as 

Product  of  dynamic  pressure  and  aero 

. Ref.  Area 

/GENF 

/( 

309  ) 

EUUA3 

0 

as 

( LBS) 

VT 

I 

as 

R 

R 

Radial  distance  fro*  earth  center  to 

vehicle  < FT ) 

/GENF 

/( 

305  ) 

BL9 

I 

R 

BL7 

I 

R 

BL8 

1 

R 

DER3A 

I 

R 

EBUA3 

n 

R 

PIOOELA 

i 

R 

DODEEB 

i 

R 

PDBC 

i 

R 

PDY3A 

i 

R 

TRTOSZ 

i 

R 

RE 

R 

Unit  reynatds  number 

( 1/FT  ) 

/ GENF 

/< 

306  > 

OUT 

n 

RE 

POBC 

n 

RE 

FIACH 

n 

Mach  number 

/GENF 

/( 

307  ) 

BEROCO 

i 

PIACH 

ENVPRR 

i 

RACH 

E0UA3 

n 

iaach 

OUT 

i 

aach 

PA 

D 

Atmospheric  pressure 

( PSF  ) 

/GENF 

/< 

308  ) 

E0UA3 

a 

DZfl 

y a 

FH2 

i 

PA 

1PIPUL 

i 

PA 

OUT 

i 

PA 

P D&C 

l 

SDER3 

j 

PA 

RO 

p 

Atmospheric  density 

l SLU6S/FT»»3  ) 

/GENF 

/( 

309  ) 

BL7 

i 

RO 

BL8 

i 

RO 

DER3A 

i 

RO 

E0UA3 

i 

RO 

OUT 

i 

RO 

POBC 

i 

RO 

PDY3A 

i 

RO 

cs 

a 

Speed  of  sound 

(FT/SEC) 

/GENF 

/( 

310  ) 

E0UA3 

n 

CS 

OUT 

i 

CS 

YNU 

u 

Atoospheric  viscosity  [dynaaicl 

[ SLOGS/FT/SEC  ) 

/GENF 

/( 

311  ) 

OUT 

i 

YNU 

« 

POBC 

i 

VNU 

PAR 

Oeriv.  Of  press.  Wrt  aft. 

/GENF 

/< 

312) 

ACCEL 

i 

PAR 

FH2 

i 

PAR 

ROR 

Derlv.  Of  density  »rt  alt. 

/GENF 

/( 

313  ) 

BL7 

i 

ROR 

BL8 

i 

ROR 

E0UA3 

i 

ROR 

POBC 

i 

ROR 

P0Y3A 

i 

ROR 

CSR 

Oerlv  Of  speed  of  sound  srt  alt. 

/GENF 

/< 

319) 

E3UA3 

i 

CSR 

VNR 

Darla. of  viscosity  ort  alt. 

/GENF 

/( 

315  ) 

POBC 

i 

VNR 

SUmSO 

Sua  of  squares  of  constraint  alsses 
tolerances  on  trial  trajectory 

(BOON)  divided  by 

/GENF 

/( 

316) 

TEST 

m 

sumsa 

SVSO 

Sa«e  as  $u«sq  but  saved  for  nominal 

trajectory  tsdl 

/GENF 

/( 

317  ) 

TEST 

fl 

SVSB 

30  OCT  72  G . 0 1 - 6 


TlnEPH 

r 

Ph«  t t tl«t 

< SEC> 

/GENF 

/t 

318  ) 

EOUA3 

0 

TlnEPH 

P 

FNTS 

n 

TlnEPH 

GETIT 

I 

T1P1EPH 

GUI  3A 

I 

TlrtEPH 

OUT 

1 

TlnEPH 

T 1 PIES 

r 

Arc  tine 

(SEC) 

/GENF 

/< 

319) 

AST3 

I 

TinES 

E3UA3 

0 

TlrtES 

FNTG 

n 

TinES 

GETIT 

I 

tides 

OUT 

I 

T I nE5 

TOP 

Elasped  tine  at  phase  initiation 

/GENF 

/( 

320  ) 

BNT  S 

n 

TOP 

EQUA3 

I 

TOP 

FNTS 

n 

TOP 

TOS 

Elasped  tine  at  arc  initiation 

/GENF 

/( 

321 ) 

BNTG 

n 

TOS 

E3UA3 

1 

TOS 

FNTG 

n 

TOS 

TH 

Vector  nodifter  of  inpulse  response  function  a 

/GENF 

/( 

322  ) 

HTJI3A 

K 

TR 

control  calculation 

TRAN3 

fl 

TR 

TST 

Array  of  arc  end  tines  on  trial  trajectory  Lsd3 

/GENF 

/< 

331  ) 

A0ICB3 

I 

TST 

BNTG 

I 

TST 

F NT  6 

0 

TST 

TEST 

I 

TST 

TPH 

Array  of  phase  end  tines  on  trial  trajectory  EsdD 

/GENF 

/( 

351 ) 

FNTG 

TEST 

0 

I 

TPH 

TPH 

BIS 

Array  of  arc  end  integration  intervals  for  trial 

/GENF 

/( 

371 ) 

BNTG 

I 

015 

tr a je  ctory 

FNTG 

0 

U15 

DIP 

Array  of  phase  end  integration  intervals  for  tria 

1 

/GENF 

/( 

391 ) 

BNTG 

I 

DIP 

trajectory 

FNTG 

0 

DIP 

T 

T 

Thrust 

( LBS  ) 

/GENF 

/( 

911) 

ACCEL 

1 

T 

blscon  n r 
BLN  I T 
BL6  I T 
BLT  I T 
BL8  I T 
ELZ  I T 
E3UA3  0 T 
FH1  I T 
FHZ  I T 
F H3  I T 
FHN  I T 
InPUL  I T 
OUT  I T 
PROPB  0 T 
PROP  IN  G T 
REU3  0 T 
SDER3  I T 

U U Weight  ( LBS  ) / GENF  /<  1 2 > BL5  1 W 

ENVPRn  I Ul 
E0UA3  D H 
FH3  I W 
OUT  I W 
POBC  I U 
REU3  I W 
TRTOSZ  I U 

TLP1  Phase  end  tines  for  noninel  trajectory  /GENF  /<  N13)  BNTG  I TPH1 

GETIT  I TPHl 
SD1NP  0 TPHl 
TEST  0 TPHl 
TOPH  I TPHl 

TLS1  Arc  end  tines  for  nominal  trajectory  /GENF  /<  N33)  BNT S 1 TST1 

GETIT  I TST 1 
PROPIN  1 TST 1 
SQINP  0 TSTl 
TEST  0 TSTl 
TOPfi  I TSTl 
TRAN3  I TSTl 
TRTOSZ  I TSTl 
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MimiUN  .PI  ft  T H 

SYRBOL  SYMBOL 

OIP1 
01  SI 

TIME  -l 


ORP 

TinPB 

LIFT  L 

\ 

DRAG  p 

T BURN  f 

b 

TBU 


DESCRIPTION 

Phase  Initial  tiiei  for  nonlnat  trajectory  tnJ3 
Arc  Initial  ila«s  for  noolnal  trajectory  [ s d) 

T t a*  ( e l spied > 


Phase  cut-off  value 
Trajectory  print  tine 

fterody n jai c lift  (LBS) 

Aerodynamic  drag  (LAS) 

Bucket  burn  initiation  tioe  on  foruard  t r ajet tory ts d) 


S IQfiftNF  SO^RQJTINE  USA 

BLOCK  LOU  SUBfi  CODE  VA1 


/GENF 

/< 

H53  ) 

GET  IT 

1 

DIP! 

SOINP 

n 

Dl  PI 

TEST 

0 

01P1 

TORN 

I 

D1P1 

/GENF 

n 

HT3  ) 

GET1T 

I 

01S1 

SOINP 

R 

01  S3 

TEST 

0 

01 S t 

TOPn 

I 

D1S1 

TRAN3 

1 

0151 

/ GENF 

/t 

<t93  ) 

ADICB3 

0 

tire 

AST  3 

I 

TIRE 

BNTG 

m 

TIRE 

C0«3 

1 

TIRE 

0TF3 

1 

TIRE 

ENVPRfl 

I 

TIRE 

EUUA3 

I 

T 1 IRE 

FNTG 

n 

TIRE 

ITOOELA 

I 

TIRE 

OUT 

I 

TIRE 

PDBC 

1 

TIRE 

PROPIN 

I 

TIRE 

REU3 

R 

TIRE 

RKTA3A 

n 

TT 

RKT33A 

R 

TT 

YREF3 

n 

TIRE 

/ GENF 

/i 

N9B) 

ADJUST 

0 

ORP 

FNTS 

ft 

ORP 

STP3 

! 

ORP 

/ GENF 

n 

995  ) 

BNTG 

0 

TIRPR 

FNTS 

R 

TIfIPR 

RKTA3A 

I 

TP 

RKTB3A 

I 

TP 

/GENF 

n 

996) 

ACCEL 

I 

LIFT 

BLN 

I 

lift 

, 

BL5 

I 

lift 

BL6 

1 

LIFT 

ENVPfirt 

I 

LIFT 

FH3 

1 

lift 

OUT 

I 

LIFT 

PSOPB 

0 

lift 

PROPIN 

0 

LIFT 

VT 

0 

LIFT 

/GENF 

/t 

<i97  ) 

ACCEL 

1 

drag 

BL5 

1 

drag 

blt 

1 

drag 

BL8 

I 

drag 

ENVPRfl 

I 

drag 

FK3 

1 

drag 

OUT 

I 

drag 

PROPS 

3 

URAG 

PROPI N 

0 

ORAG 

SOER3 

I 

DRAG 

VT 

ft 

ORRS 

/GENF 

/( 

999) 

EQUA3 

I 

TBURN 

IR3DELA 

1 

TBURN 

PROPS 

0 

TBURN 

PROP  I N 

ft 

TBURN 

Saved  rocket  burn  initiation  tints  used  during  adjoint 

/GENF 

/( 

500  ) 

PROPS 

I 

TBU 

I nte^r  at ' on  < S d ) 

PROPIN 

0 

TBU 

Total  noizie  exit  area 

/GENF 

/( 

520  ) 

ACCEL 

I 

AE 

FH2 

1 

AE 

input 

1 

AE 

PROPS 

0 

AE 

‘PROPIN 

0 

AE 

SDER3 

1 

AE 
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EOHlflAN 
S VIROL 


MATH 

5YP1R0L 


DESCRIPTION 


SUUH  CODE  VAR 


STORAGE  S 

BLOCK  lOC 


FP 

Current  valut  of  cut-off  function  - non-Mnear  only 

/GENF 

/< 

52 1 ) 

0TF3 

I 

FP 

5TP3 

} 

FP 

T0L3 

I 

FP 

YREF3 

i 

FP 

FPOLD 

Value  of  non-llneir  cut-off  function  at  prior  co»pute 

/GENF 

/( 

522  > 

OTf  3 

t 

FPOLD 

I ntar  v»l 

STP3 

0 

FPOLD 

T0L3 

0 

FPOLD 

YREF3 

I 

FPOLD 

FPO 

Rate  of  change  of  non-linear  cut-off  function 

/GENF 

/( 

523  ) 

C0N3 

I 

FPD 

DTF3 

I 

FP  D 

STP3 

I 

FPD 

YREF3 

I 

FPD 

WACHR 

Partial  of  aach  nucaber  «rt  altitude 

/GENF 

/( 

52H  ) 

EQUA3 

0 

IRACHR 

PROPB 

0 

ZERO 

PRDPIN 

0 

ZERO 

VT 

I 

(3ACHR 

PIACHV 

Partial  of  aiach  number  «rt  velocity 

/GENF 

/( 

525  ) 

E0UA3 

0 

IRACHV 

VT' 

I 

WACHV 

OR 

Partial  of  dynataic  pressure  iart  altitude 

/6ENF 

/( 

526  ) 

EOUA3 

H 

OR 

VT 

I 

SR 

QV 

Partial  of  dynaaic  pressure  »rt  velocity 

/GENF 

/( 

527  ) 

EQUA3 

n 

QV 

TEST 

n 

QV 

VT 

I 

QV 

F VAC 

Total  vacuus  thrust  Crocket)  (LBS) 

/GENF 

/( 

528  J 

ACCEL 

i 

FVAC 

EQUA3 

(i 

F VAC 

FH2  ' 

i 

FVAC 

IMPUL 

n 

fvac 

PROPB 

N 

FVAC 

PROP  IN 

rc 

fvac 

SDER3 

1 

fvac 

LIFTV 

Partial  of  lift  ert  velocity 

/GENF 

/( 

529  ) 

ACCEL 

2 

LIFTV 

BLR 

2 

LIFTV 

BLS 

I 

LIFTV 

BL6 

I 

LIFTV 

FH3 

I 

LIFTV 

VT 

0 

LIFTV 

LIFTR 

Partial  of  lift  ert  altitude 

/SENF 

/( 

530) 

ACCEL 

I 

LIFTR 

t 

BLR 

I 

LIFTR 

BL5 

) 

LIFTR 

BL6 

1 

LIFTR 

FH3 

1 

LIFTR 

VT 

0 

LIFTR 

LIFTA 

Partial  of  lift  wrt  ang le- of  - attack 

/GENF 

/< 

531  > 

ACCEL 

1 

LIFTA 

BLR 

1 

LIFTA 

BL5 

:1 

LIFTA 

BL6 

I 

LIFTA 

FH3 

I 

LIFTA 

VT 

0 

LIFTA 

ORAGV 

Partial  of  drag  *rt  velocity 

/GENF 

/( 

532) 

ACCEL 

2 

DR  AGV 

BLS 

I 

ORAGV 

BL7  I ORASV 

BUS  I ORAGV 

FH3  1 BRAGV 

VT  n ORAGV 


ORAGR 

Parti  si 

drag  art  altitude 

/GENF 

/( 

533  ) 

ACCEL 

I 

ORAGR 

BL5 

I 

ORAGR 

BL7 

I 

DRAGR 

BLB 

I 

ORAGR 

FH3 

I 

ORAGR 

VT 

n 

DRAGR 

ORAGA 

Partial 

of  drag  art  angle  of  attack 

/GENF 

/( 

53R  ) 

ACCEL 

I 

DRAGA 

BL5 

i 

ORAGA 

BL7 

i 

DRAGA 

BLS 

I 

DRAGA 

FH3 

i 

ORAGA 

VT 

n 

ORAGA 
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F 0 H 1 RAN 
SYMBOL 

MATH 

SYMBOL 

DESCRIPTION 

STORAGE 

subroutine 

: USAGE 

, BLOCK 

LOC 

S Uftfi  CODE 

VAR 

UFTH 

Parti  at  0 f LIFT  ort  natt 

/GENF 

/( 

535  ) 

ACCEL 

I 

LIFT* 

BL9 

I 

LIFTM 

BIS 

I 

LIFTN 

BLb 

I 

L1FTI9 

FK3 

I 

LIFTM 

VT 

0 

LIFTM 

DBR 

Partial  of  base  drag  art  altitude 

/ GENF 

/( 

535 ) 

ACCEL 

1 

OBR 

. 

BL9 

I 

DBR 

BLb 

I 

OBR 

* 

BL7 

1 

DBR 

BLB 

I 

DBR 

E0UA3 

1 

DBR 

FR3 

I 

OBR 

VT 

i 

OBR 

OB 

D 

Bast  drag 

(LBS) 

/GENF 

/( 

537  ) 

ACCEL 

I 

OB 

b 

BL9 

I 

DB 

BLb 

I 

OB 

BL7 

I 

DB 

BLB 

1 

DB 

E3UA3 

I 

OB 

>F  H3 

I 

DB 

OUT 

I 

DB 

SDER3 

I 

DB 

VT 

I 

OB 

ISP 

I 

Net  vacuua  specific  impulse 

/GENF 

/( 

538) 

ACCEL 

I 

ISP 

*P 

IMPUL 

0 

ISP 

ISPF 

Partial  of  ISP  urt  vacuua  thrust 

/GENF 

/( 

539) 

ACCEL 

I 

ISPF 

I MP  UL 

0 

ISPF 

ULFT 

L., 

Untrlaaed  aero. lift 

/GENF 

/( 

5H0) 

BL3 

I 

ULFT 

U 

WDDELA 

I 

ULFT 

VT 

ft 

ULFT 

ULFTV 

Partial  of  ULFT  art  velocity 

/GENF 

/( 

591  ) 

BL3 

I 

ULFTV 

VT 

n 

ULFTV 

ULFTR 

Partial  of  ULFT  art  altitude 

/GENF 

/( 

592) 

BL3 

i 

ULFTR 

VT 

n 

ULFTR 

ULFT  A 

Partial  of  ULFT  *rt  angle  of  attack 

/GENF 

/( 

593  ) 

BL3 

i 

ULFTA 

9 

VT 

n 

ULFT  A 

X PIC  6 

M 

Aerodynamc  aonent  about  center  of  gravity 

(FT-LBS ) 

/GENF 

/( 

599  ) 

EL2 

i 

XMCG 

“CG 

OUT 

i 

XMCG 

VT 

n 

XMCG 

XMCGV 

Partial  of  XflCG  ort  velocity 

/GENF 

/( 

595) 

EL2 

i 

5-1CGV 

VT 

n 

XOCGV 

XnCGR 

Partial  of  XnCG  nrt  altitude 

/GENF 

/( 

5*t6  > 

EL2 

i 

XMCGR 

VT 

n 

XMCGR 

xncGft 

Partial  of  XMCG  art  angle  of  attack 

/GENF 

/( 

597) 

EL2 

i 

XMCG  A 

VT 

M 

XNCGA 

xncGfl 

Partial  of  XMCG  ort  aass 

/GENF 

/l 

598) 

EL2 

I 

XmCGH 

VT 

A 

XMCGR 

COOAE 

See  symbol 

/GENF 

/( 

599  ) 

ACCEL 

i 

COBAE 

BL9 

i 

COOAE 

&L6 

i 

COOAE 

BL7 

i 

CDOAE 

BLB 

i 

COOAE 

FH3 

i 

COOAE 

SDER3 

i 

CODAE 

VT 

0 

COOAE 

culft 

Constant  value  of  ULFT 

(LBS  ) 

/GENF 

/( 

550  ) 

BL3 

I 

CULFT 

MODELA 

0 

CULFT 

CT 

Constant  value  of  vacuua  thrust 

(LBS  ) 

/GENF 

/( 

551  ) 

FH1 

I 

CT 

CflLPHA 

Constant  value  of  angl e-of- attack 

(RAD) 

/GENF 

/( 

552  ) 

BL2 

I 

CALPHA 

MODELA 

M 

CALPHA 

MODELS 

M 

CALPHA 
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194 


FORIRAN  NATH 

symbol  symbol 


DESCRIPTION 


STORAGE  SUSRQUHNE  USAGE 
BLOCK  LQC  SUBR  CODE  V AB 


COE 

Constant  value  ot  engine  deilactlon 

< BAD  ) 

/GE-NF 

/( 

553  ) 

ELI 

I 

COE 

PROPS 

0 

CDE 

PROPIN 

0 

CDE 

OELTAE 

b _ 

Engine  glnba'l  deflection  angle 

< RAD  ) 

/ GENF 

/< 

55H  > 

BLGCON 

n 

OELTAE 

E 

ELI 

1 

DELTAS 

OUT 

I 

OELTAE 

REU3 

0 

DELTAE 

VT 

I 

OELTAE 

STD 

s 1 n(  s ) 

Set  syabot 

7GENF 

/( 

555  1 

EL2 

I 

SID 

OUT 

I 

SID 

VT 

n 

5ID 

COD 

c o sC  s_  ) 

See  syabol 

/GENF 

/( 

556  ) 

EL2 

i 

COD 

E 

OUT 

i 

COD 

VT 

pi 

COD 

SIDAE 

s i n( a- Sg ) 

Set  syabol 

/GENF 

/( 

557  ) 

ACCEL 

i 

SIOAE 

BL9 

i 

SIDAE 

BL6 

i 

SIDAE 

BL7 

i 

SIDAE 

BL8 

i 

SIDAE 

FH3 

i 

SIDAE 

VT 

0 

SIDAE 

XCG 

X-- 

Center  of  gravity  body  « station 

(FT  ) 

/GENF 

/( 

556  ) 

EL2 

i 

XCG 

CG 

E0UA3 

i 

XCG 

VT 

i 

XCG 

ZC6 

Z„ 

Center  of  gravity  body  z station 

(FT) 

/GENF 

/( 

559  ) 

EL2 

i 

ICG 

CG 

E0UA3 

i 

ZCG 

VT 

i 

ZCG 

XJ 

t 

Control  blend  factor 

/GENF 

/( 

560  ) 

EL2 

i 

XJ 

J 

E0UA3 

i 

XJ 

OUT 

i 

XJ 

VT 

i 

XJ 

XJV 

Partial  of  blend  factor  airt  velocity 

/GENF 

/< 

561  ) 

EL2 

i 

XJV 

E0UA3 

0 

XJV 

VT 

I 

XJV 

XJR 

Partial  of  blend  facto r art  altitude 

/GENF 

/( 

562) 

EL2 

I 

XJR 

E0UA3 

0 

XJR 

VT 

I 

XJR 

GH 

Partial  of  gravity  art  altitude 

/GENF 

/( 

563  > 

BL7 

I 

SR 

BLB 

I 

GH 

EQUA3 

0 

GH 

P0V3A 

1 

OGDH 

GAMMAD 

Pitch  rate 

( RAD  > 

/GENF 

/( 

569  ) 

BL9 

I 

GAMMAD 

PROPS 

0 

G AHMAD 

PROPIN 

0 

GAMMAD 

XKG 

k 

Algebraic  equation  used  in  vertical  rise 

and 

pitchover 

/GENF 

/( 

565  ) 

BL9 

I 

XKG 

7 

MODELA 

N 

XKGAIf 

CIO  DELB 

n 

XKG  AM 

XKP 

k . 

Algebraic  equation  used  in  vertical  risa 

and 

p 1 1 c hover 

/GENF 

/( 

566) 

BL9 

1 

XKP 

(100ELA 

M 

XKPS 

DOOELA 

l 

XKPSI 

nODELB 

n 

XKPS 

(10DELB 

I 

XKPSI 

PRATED 

Net  rated  aasinua  rocket  vacuua  thrust 

( LB5  ) 

/GENF 

/( 

567  ) 

IMPUL 

I 

PRATED 

PROP  B 

0 

FB AT  ED 

PROPIN 

0 

FRATED 

IRATED 

Mamaua  rated  ISP 

( SEC  1 

/ GENF 

/( 

568  ) 

IMPUL 

I 

IRATED 

PI 

First  eleaent  in  in-plane  control  vector. 

Corresponds 

/GENF 

/( 

569  ) 

BLGCON 

It 

P 

to  thrust 

BLGCON 

M 

PI 

OUT 

I 

PI 

P2 

Second  eleaent  in  In-plane  control  vector 
Corresponds  to  deflection 

• 

/GENF 

/( 

570  ) 

BLGCON 

It 

P2 

P3 

Third  eleaent  In  In-plane  control  vector. 

corresponds 

/GENF 

/( 

571  ) 

BLGCON 

N 

P3 

to  a 
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FOHl RAN 
SYMBOL 

HATH 

SYMBOL 

DESCRIPTION 

SIOBAGF 
ULOLK  LOC 

GUBROUl  MF 

3UHR  lode 

USAGE 

VAR 

XXI 

First  control  vector  gevernino  equation  value 
corresponds  to  error  fn  thrust 

/GENF  /(  572) 

BLGCON  I 
FH1  0 

XXI 

XXI 

FHZ  0 XK1 

FH3  0 XX 1 

FHH  0 XXI 

MOOELA  I XXI 


XK2 

Second  control  vector 

go ver nt  ng  equat  < or 

i v a 1 ue  . If 

/GENF 

/< 

573  > 

ELI 

0 

XK2 

non-trlvial  corresponds  to  error  1 

In  «onent 

balance 

EL2 

0 

XK2 

XK3 

Third  control  vector 

go  vernl ng 

equation 

v a 1 

ue  * 

/GENF 

n 

5 7H ) 

BL2 

0 

XK3 

Corresponds  to  error 

in  algebr 

• Ic 

equation 

Involving 

BL3 

0 

XK3 

a* 

BLH 

0 

XX3 

&L5 

0 

XX3 

8L6 

0 

XK3 

BL7 

0 

XX3 

BL8 

0 

XK3 

flODELA 

I 

XK3 

OUT 

I 

XK3 

XX1T 

Partial  of  governing 

equat { o n 

»rt 

state 

or 

contro 1 

/GENF 

575  ) 

BUGCGN 

I 

XX1T 

vector  component 

FH1 

0 

XK1T 

FH2 

0 

XK1T 

FH3 

ft 

XX  IT 

FHH 

0 

XX1T 

rlODELA 

I 

XXIT 

XK2T 

P art  I a 1 of  go  ver  nl ng 

equation 

art 

state 

or 

control 

/GENF 

n 

576  ) 

BLGCON 

I 

XX2T 

vector  component 

EL2 

0 

XX2T 

XK3T 

Partial  of  governing 

equat ion 

■ rt 

state 

or 

contro 1 

/GENF 

/( 

577  ) 

BLGCON 

I 

XK3T 

vector  coaponent 

BLH 

0 

XX3T 

BL6 

0 

XK3T 

BL7 

0 

XX3T 

BL8 

0 

XX3T 

XX  ID 

Partial  of  governing 

equat 1 o n 

■ rt 

state 

or 

control 

/GENF 

/< 

576  ) 

BLGCON 

I 

XX  j D 

► vector  coaponent 

FH3 

n 

XX10 

XX  2D 

Partial  of  governing 

equat  f on 

art 

state 

or 

co  ntr o 1 

/GENF 

/t 

579  ) 

ACCEL 

i 

XX2D 

vector  component 

BLGCON 

i 

XK2D 

ELI 

0 

XX2D 

- 

EL2 

0 

XK20 

XX3D 

P art i a 1 of  governing 

equation 

*rt 

state 

or 

contro  1 

/GENF 

/t 

560  ) 

BLGCON 

I 

XK3D 

vector  component 

BLH 

0 

XX  3D 

BL6 

0 

XK3D 

BL7 

0 

XX3D 

BL8 

0 

XX30 

X X 1 A 

Partial  of  governing 

equat i on 

■ rt 

state 

or 

control 

/GENF 

/i 

581  ) 

BLGCON 

I 

XXI  A 

vector  component 

FH3 

n 

XX  1 A 

XK2A 

P art i a 1 of  go  vern i ng 

equat I on 

or  t 

state 

or 

contro  1 

/GENF 

/( 

582) 

ACCEL 

i 

XX2A 

vector  coaponent 

BLGCON 

i 

XK2A 

EL2 

0 

XK2A 

XK3A 

Partial  of  governing 

equat ion 

■ rt 

state 

or 

co  nt ro  1 

/GENF 

/( 

583  ) 

BLGCON 

I 

XK3A 

vector  coaponent 

BL2 

0 

XK3A 

BL3 

0 

XK3A 

BLH 

0 

XK3A 

BL5 

n 

XX3A 

BL6 

0 

XK3A 

BL7 

0 

XK3A 

BL8 

0 

XK3A 

XXIV 

Partial  of  governing 

equation 

■rt 

state 

or 

control 

/GENF 

/c 

589) 

BLGCON 

i 

XXIV 

vector  component 

FH3 

n 

XXIV 

- 

FHH 

0 

XXIV 

XK2V 

Partial  of  governing 

equation 

■ rt 

state 

o r 

control 

/GENF 

/< 

585  ) 

EL2 

0 

XK2V 

vector  coaponent 

XX3V 

Part  1 a 1 of  governing 

equation 

■ r t 

state 

or 

COtttr o 1 

/GENF 

/( 

586) 

BL3 

0 

XK3V 

vector  coaponent 

BLH 

0 

XK3V 

BL5 

n 

XX3V 

&L6 

0 

XK3V 

BL7 

0 

XK3V 

BLB 

0 

XX3V 

30  OCT  72  G.01-H6 


FORTRAN 

HATH 

DESCRIPTION 

S10RA 

GE 

SUBROUTINE 

OSAGE 

SYMBOL 

SYn&OL 

Block 

LDC 

SU3R 

rooE 

VAR 

XK1G 

Part  1 ■ 1 of  governing 
vector  component 

equation 

art 

Itite 

Or 

contro 1 

/ GENF 

/( 

58-7  ) 

XU2G 

Partial  of  go  ver  nl ng 
vector  coaponent 

equation 

art 

state 

or 

contr o 1 

/GENF 

/( 

588  ) 

XK3G 

Partial  of  governing 

equat ion 

art 

state 

or 

contro  i 

/GENF 

/( 

589  ) 

BC4 

0 

XK36 

vector  coaponent 

BL7 

0 

XK36 

818 

0 

XK3G 

XK1P 

Partial  of  governing 
vector  coaponent 

equation 

art 

state 

or 

contro  1 

/ SENF 

/< 

590) 

XK2P 

Partial  of  governing 
vector  coaponent 

equation 

art 

state 

or 

contro 1 

/GENF 

/< 

591  > 

XK3P 

Partial  of  governing 

equation 

art 

state 

or 

contro l 

/GENF 

/( 

592) 

8L4 

0 

XK3P 

vector  coaponent 

8L7 

0 

XK3P 

BL8 

0 

XK3P 

XK1R 

Partial  of  governing 

equation 

art 

state 

or 

contro 1 

/GENF 

/( 

593  ) 

FH2 

0 

XK1R 

vector  coaponent 

FH.3 

n 

XX 1 R 

FH4 

0 

XK1R 

XK2R 

Partial  of  governing 
vector  component 

equation 

art 

state 

or 

contro  1 

/GENF 

/( 

594) 

EL2 

0 

XX2R 

XK3R 

Partial  of  governing 

equation 

art 

state 

or 

co  ntr  o 1 

/GENF 

/( 

595  ) 

BL3 

0 

XK3R 

vector  coaponent 

BL4 

0 

XK3R 

BL5 

n 

XK3R 

BL6 

0 

XK3R 

BL7 

0 

XK3H 

BLB 

0 

XK3R 

XK10 

Partial  of  governing 
vector  coaponent 

equation 

art 

state 

or 

contro  1 

/GENF 

/( 

596) 

XK20 

Partial  of  governing 

equat Ion 

art 

st  at  e 

or 

contro  1 

/GENF 

/< 

597  ) 

vector  coaponent 

■ 

XK30 

Partial  of  governing 

equation 

art 

state 

or 

contro  \ 

/GENF 

/( 

598  ) 

BL4 

0 

XX30 

vector  coaponent 

BL7 

0 

XK30 

BL8 

0 

XX30 

XX1U 

Partial  of  governing 
vector  coaponent 

equat 1 o n 

art 

state 

or 

control 

/GENF 

H 

599) 

XK2U 

Partial  of  governing 
vector  coaponent 

e q uat < o n 

art 

state 

or 

contro  1 

/GENF 

/< 

600) 

XK3U 

Partial  of  governing 
vector  coaponent 

equat ion 

art 

state 

or 

contro  1 

/SENF 

/( 

601  > 

xxin 

Partial  of  governing 
vector  coaponent 

equ»-t  io  n 

art 

state 

or 

contro 1 

/GENF 

/( 

602) 

FH3 

N 

XK1« 

XK2M 

Partial  of  governing 
vector  coaponent 

equation 

art 

state 

o r 

co  ntr o 1 

/GENF 

/( 

603  ) 

EL2 

0 

XK2I4 

XK3m 

Partial  of  governing 

eq  uat I o n 

art 

state 

o r 

contro  1 

/GENF 

/C 

604  ) 

BL4 

0 

XK3I4 

vector  coaponent 

BL5 

ft 

XK3I9 

BL6 

0 

XX3N 

BLT 

0 

XK3I4 

BL8 

0 

XK3M 

PV 

Partial  of  * art  state 

/GENF 

/( 

605  ) 

BL4 

n 

PV 

PG 

Partial  of  * art  state 

/GENF 

/( 

606  ) 

BL4 

n 

PG 

PP 

Partial  of  * art  state 

/GENF 

/< 

607  ) 

BL4 

n 

PP 

PR 

Partial  of  * art  state 

/GENF 

/( 

608  ) 

BL4 

n 

PR 

PO 

Partial  of  V art  state 

/GENF 

/( 

609) 

BL4 

n 

PO 

OPOY 

9 m/dy 

flatrix  of  partlais  of  in-plane  control 

vector  »rt 

/GENF 

/< 

610  1 

ACCEL 

i 

DP  DY 

state 

BLSCOAI 

i i 

DPOY 

OUT 

i 

DP  DY 
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BL0CK 
PAR  AM 


IPOINT 


NPARA 


NPA 

5PARA  *. 

S' 


UTPD 

WTP 

£ Y 3 

SPARB 

♦ 

S' 

PARA 

P 

OPAR 

Sp 

521  NV 

£ 5 S 3 

OPLP 


Cdi)(  for  each  adjustable  parameter  In  steepest 
descent 


Nuaber  of  adjustable  paraaeters  In  trajectory  problea 


Running  count  of  nuaber  of  adjustable  paraaeters  to  be 
perturbed  on  reaainder  of  trajectory 


matrix  of  adjustable  paraaeter  sensitivities 
(including  all  paraaeters) 


Input  or  preset  adjustable  paraaeter  aeighting  factors 
according  to  type  of  paraaeter 

Adjustable  paraaeter  diagonal  aeighting  aatrlx  order 
according  to  IPOINT. 


matrix  of  adjustable  paraaeter  sensitivities. 
(Contains  only  eleaents  corresponding  to  paraaeters 
yet  to  be  adjusted) 

Adjustable  paraaeter  noalnal  values. 


Adjustable  paraaeter  corrections 


Paraaeter  sensitivity  contribution  to  A aatr i x 


Input  or  preset  noatnal  paraaeter  adjustaent  size 


/PARAm 

/( 

1 ) 

ADJUST 

I 

IPOINT 

PRmSET 

l 

IPOINT 

SOINP 

0 

IPOINT 

STAU 

I 

IPOINT 

TOPm 

D 

IPOINT 

/PARArn 

/( 

13  ) 

ADJUST 

I 

iypaRa 

BNTG 

I 

npara 

FNTG 

I 

npara 

FITX3A 

I 

NPARA 

PAY02 

I 

NPARA 

PRmSET 

I 

NPARA 

SOI  NP 

m 

NPARA 

5TAU 

i 

NPARA 

TEST 

i 

NPARA 

TDPm 

D 

NPARA 

/PARAm 

/( 

14) 

ADJUST 

m 

NP  AR 

FNTG 

i 

NPA 

mT  *3A 

I 

NPA 

TOPm 

D 

NPA 

/PARAm 

/( 

15  ) 

ADJUST 

I 

SPARA 

PAYD2 

I 

SPARA 

STAU 

m 

SPARA 

TOPm 

D 

SPARA 

/PARAm 

/( 

123) 

SOINP 

n 

UTPD 

TOPm 

D 

UTPD 

/PARAm 

/( 

132  ) 

HTX3A 

I 

WTP 

PAY02 

I 

UTP 

SOINP 

0 

UTP 

TOPm 

D 

UTP 

/PARAm 

/( 

144  ) 

ADJUST 

D 

SPARB 

FITX3A 

I 

SPAfiB 

TOPm 

D 

SPARB 

/PARArn 

/{ 

252  ) 

ADJUST 

I 

PARA 

PRWSET 

m 

PARA 

TOPm 

D 

PARA 

/PARArn 

/( 

264) 

ADJUST 

I 

OPAR 

CITX3A 

m 

OPAR 

TOPm 

D 

OPAR 

/PARAm 

/{ 

2 7b) 

ADJUST 

0 

S2INV 

mrx3A 

m 

S2INV 

PAY02 

m 

52 1 NV 

TOFfl 

D 

S2INV 

/PARAM 

/( 

357  ) 

SOINP 

0 

OELP 

TOPm 

0 

DEEP 
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FORTRAN 

SYP1HOL 


MATH 

SYMBOL 


DESCRIPTION 


STQHAGF 
BLOCK  LOC 


j UABQUT I NE  US  AS£ 
S'JBR  CODE  YAH 


BL0CK 

SPEC0 


0CZ 


FORTRAN 

BIRTH 

DESCRIPTION 

STORAGE 

SUBROUTINE 

USAGE 

SYn&OL 

SYMBOL 

BLOC*  LOC 

SUBk  CODE 

VAR 

unuz 

RORR 

5 i-’/J  K 

A**1 

Ot  ter  tpt  1 an  net — t.npwt  see  E-YHiSCB- 
-D-ncr-T-pT-l  on._not-  -4-nput  sEt  SYtvi&Oi- 

/5PECG  n 1) 

/SPECS  /(  2) 

ANLATM  0 
PAT63  0 

ANLATM  0 
BL7  I 

BL8  I 

P AT  63  0 

UMU2 

UMU2 

RORR 

RORR 

RORR 

RORR 
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BL0CK 

STATE3 


FORTRAN  riAl  H nCC'f’DTDTinW  STORAGE SUBROUTINE  US  A Gl 

svnftoi.  syobol  UE.uL.nir  I 1 U I\1  block  loc  su»r  code  var 


V ¥ Re  I it  I vc  vc  loc  I if  (FT/SEC)  /STATE3/I  I)  ACCEL  I V 


AD! CB3 

0 

VAR 

ADJUST 

n 

VAR 

AGET83 

0 

VAR 

AST3 

i 

VAR 

BLR 

I 

V 

BIT 

i 

V 

BL8 

I 

V 

C0N3 

i 

VAR 

0ER3A 

i 

V 

DTE  3 

i 

V 

ENVPRN 

i 

VAR 

EQUA3 

i 

V 

rtODELA 

i 

V 

PIODELA 

i 

VAR 

F10DELB 

i 

V 

DTX3A 

r 

VAR 

OUT 

i 

V 

OUT 

i 

VAR 

PDBC 

i 

V 

PDY3A 

i 

V 

REU3 

n 

VAR 

KKTA3A 

n 

V 

STP3 

I 

VAR 

TO  PN 

0 

KUDU 

YREF3 

n 

V 

VAR 

y 

State  vector  in  steepest 

descent  noduLe 

/STATE3 /( 

1 > 

GAM 

7 

Relative  flight  path  angl 

le  (RAD) 

/ST  ATE3/< 

2) 

EQUA3 

I 

GAN 

GUI3A 

I 

GAN 

OUT 

I 

GAN 

ALT 

h 

Altitude 

/STATE3/C 

3 > 

ESUA3 

I 

ALT 

OUT 

I 

ALT 

POBC 

I 

ALT 

N 

m 

mass 

/ST  ATE3/( 

t) 

ACCEL 

1 

N 

BLR 

I 

N 

BL8 

I 

N 

E0UA3 

I 

H 

OUT 

I 

N 

S0ER3 

I 

N 

PSI 

+ 

Ai  t nuth 

/ST  ATE3/< 

5 ) 

E3UA3 

I 

PSI 

GUI  3A 

I 

PSI 

OUT 

I 

PSI 

RKO 

p 

Lat i tud* 

/ST  ATE3/( 

6) 

E0UA3 

I 

RHO 

OUT 

I 

RHO 

mu 

fj 

Long. tude 

/STATE3 /< 

7 ) 

OUT 

I 

nu 

POBC 

I 

nu 

HT 

Q 

He  at i ng 

/ST  ATE3/( 

8 ) 

OUT 

I 

HT 

OVAR 

• 

State  vector  derivatives 

In  steepest  descent  nodule 

/ST  AT€3/( 

15  ) 

ADICB3 

m 

DVAR 

y 

ADI C3A 

i 

OVAR 

ADI03A 

m 

DVAR 

0ER3A 

0 

VO 

DTF3 

i 

VT 

ENVPRH 

i 

DVAR 

POBC 

i 

VD 

PROPIN 

0 

OVAR 

REU3 

I 

DVAR 

RKTA3A 

I 

ov 

SDER3 

0 

OVAR 

STP3 

I 

OVAR 

YREF3 

I 

DVAR 

YREF3 

I 

VT 

VO 

V 

V der i vat i ve 

/STATE3/I 

15) 

GO 

• 

GAM  derivative 

/STATE3/I 

16  ) 

DER3A 

0 

GO 

y 

POBC 

I 

GO 

HO 

L 

ALT  derivative 

/STATE3/I 

17) 

0ER3A 

0 

HD 

n 

POBC 

i 

HO 

SC.5 
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FORI  HAN 

P1A1  H 

DESCRIPTION 

S I0RAS 

E 

SUBROUTINE 

USAGE. 

SYMBOL 

SYMBOL 

BLOCK 

LOC 

SD8A  C006 

VQR 

no 

HASS  d er 1 * • 1 1 v v 

/ST  ATE3/< 

18) 

0ER3A 

0 

no 

m 

OUT 

I 

no 

PD 

Ail  auth  dar  t eatl vt 

/STATE3/I 

1 9 ) 

0ER3A 

0 

PSIO 

00 

p 

Latitude  derlvatlea 

/STATE3/I 

20) 

DER3A 

0 

00 

uo 

Longitude  derivative 

/ST  AT  E 3 / 1 

21  ) 

0ER3A 

0 

uo 

PDBC 

I 

UD 

HTD 

Q 

Heating  derivative 

/STATE3/I 

22  ) 

DER3A 

Q 

HTD 

OUT 

1 

HTD 

PDBC 

I 

HTD 

PDY3A 

n 

HTO 

VARL 

Array  of  variables  for  adjoint  Integration 

/STATE3/T 

29  ] 

ADE03A 

i 

VARL 

ADI CB3 

B 

VARL 

A01C3A 

0 

VARL 

PROPIN 

I 

ZZ 

RKTA3A 

n 

F 

RKTB3A 

n 

Y 

STVRL3 

0 

VARL 

TRAN3 

n 

VARL 

bpiaxi 

Description  not  input 

/STATE3/I 

39  ) 

PROPIN 

i 

0HAX1 

HDP1AX1 

Description  not  input 

/STATE3/I 

92  ) 

PROPIN 

i 

HDPIAX1 

REMAX1 

Description  not  input 

/STATE3/I 

69) 

PROPIN 

i 

REP5AX1 

DELY 

Description  not  Input 

/STATES/! 

71 1 

R XT  A3  A 

19 

DELY 

OVARL 

Array  of  derivatives  for  adjoint  Integration 

/STATE3/C 

128) 

ADE03A 

0 , 

OVARL 

A01 CB3 

0 

OVARL 

AD1C3A 

0 

OVARL 

RKTB3A 

I 

DY 

RR 

Description  not  Input 

/STATE3/C 

157) 

PIT  X3A 

n 

RR 

DELY 

Description  not  Input 

/STATE3/1 

167  ) 

PITX3A 

19 

DELY 

JJ 

Description  not  input 

/STATE3/C 

177) 

RTX3A 

n 

JJ 

VO 

State  vector  of  noninal  trajectory 

/STATE3/I 

227) 

AST3 

0 

YG 

* o i d 

MTX3A 

i 

YO 

SVY 

State  and  ti*e  array  at  previous  compute  Interval 

/ST  ATE3/C 

236  ) 

0TF3 

i 

SVY 

7-1 

RE'J3 

(9 

SVY 

YREF3 

I 

SVY 

XL 

Platr  i * of  adjoint  variables 

/ST  ATE3/I 

296  ) 

ADEQ3A 

19 

XL 

X 1 J 

A0ICB3 

R 

XL 

ADIC3A 

n 

XL 

ADI03A 

n 

XL 

AST3 

n 

XL 

BGET3 

0 

XL 

BST03 

i 

XL 

MTX3A 

i 

XL 

OUT 

i 

XL 

STAU 

n 

XL 

STVRL3 

i 

XL 

TRAN3 

n 

XL 

YOP 

Array  of  state  derivatives  at  phase  end  points 

/STATE3/I 

327  ) 

ADI 03A 

I 

YOP 

REU3 

0 

YOP 

YDS 

Array  of  state  derivatives  at  arc  end  points 

/STATE3/I 

507  ) 

ADI CB3 

I 

YDS 

y'r- 

AD103A 

i 

YDS 

REU3 

0 

YOS 

STAU 

i 

YDS 

cosgapi 

cost  7 ) 

See  symbol 

/STATE3/I 

687  > 

ACCEL 

i 

COSGAPI 

BL9 

i 

C0SGAP1 

BL8 

i 

COSGAPI 

DER3A 

i 

COSGAR 

E3UA3 

0 

COS  GAP) 

F100ELA 

I 

C0SGAP1 

P10DELB 

I 

COSGAPI 

OUT 

I 

C0SGAP1 

PDBC 

I 

COSGAPI 

PDY3A 

I 

COSGAPI 

2C6 


30  OCT  72  G. 01-96 


I OH  I HAN 
SYI'IHOL 

SINGArt 


SAV6P 

SINPSI 


COSPSI 


SINRHO 


COSRHO 


OCORHO 

OCOR02 

S VBY 
OP1E3A 

30  OCT 


nniH 

SYHAOL 


DESCRIPTION 


1 1 ORAGF  SUHRQUTINA  USAGE 

block  loc  so*"  i ooe  yah 


s 1 n(  7 ) 

See  synboi 

/ST  ATE3/I 

688  ) 

BLR 

I 

SINGArt 

0L7 

I 

SINGArt 

BL8 

7 

51 NGAn 

DER3A 

I 

SINGArt 

EQUA3 

0 

SI  NGAI1 

MODELA 

I 

SINGArt 

MQDELB 

I 

SINGArt 

PDBC 

I 

SI  NGArt 

P0Y3A 

I 

SINGArt 

S0ER3 

I 

SINGArt 

Saved  slate  vector  at  branching  point  for  Initializing 
second  brneh 

/STATE3/I 

689  ) 

REU3 

n 

SAVBP 

s 1 nt  'P  ) 

See  symbol 

/ST  ATE3/I 

704  ) 

BL4 

) 

SINPSI 

8L7 

i 

SINPSI 

BL6 

i 

SINPSI 

0ER3A 

i 

SINPSI 

E0UA3 

0 

SINPSI 

MODELA 

i 

SINPSI 

nO  DELB 

i 

SINPSI 

PDBC 

i 

SINPSI 

PDY3A 

i 

SINPSI 

cosliM 

See  symbol 

/STATE3/I 

705  ) 

BLR 

i 

COSPSI 

BL7 

i 

COSPSI 

BL8 

i 

COSPSI 

DER3A 

i 

COSPSI 

* 

E0UA3 

0 

COSPSI 

MODELA 

I 

COSPSI 

MODELB 

I 

COSPSI 

PDBC 

I 

COSPSI 

PDY3A 

1 

cospsi 

s i n(  p ) 

See  $y»bo  1 

/ST  AT£3/( 

706  ) 

BLR 

I 

SINRHO 

BLT 

[ 

SINRHO 

BL8 

I 

SINRHO 

DER3A 

I 

SINRHO 

£0  UA3 

0 

SINRHO 

MODELA 

I 

SINRHO 

MODELB 

I 

SINRHO 

* 

OUT 

[ 

SINRHO 

PDBC 

I 

SINRHO 

P0Y3A 

I 

SINRHO 

c o s ( p ) 

See  symbol 

/STATE3/T 

707  ) 

BLR 

1 

COSRHO 

BL7 

I 

COSRHO 

BL8 

I 

COSRHO 

DER3A 

I 

COSRHO 

E3UA3 

PI 

COSRHO 

rtOOELA 

I 

COSRHO 

ttODELB 

I 

COSRHO 

OUT 

I 

COSRHO 

POBC 

1 

COSRHO 

P0Y3A 

1 

COSRHO 

oi*COSRHO 

See  symbol 

/STATES/I 

708  ) 

0ER3A 

I 

OCORHO 

EQUA3 

m 

OCORHO 

flODELA 

i 

OCORHO 

MODELS 

i 

OCORHO 

PDBC 

i 

OCORHO 

PDY3A 

i 

OCORHO 

OCORHO 

See  syabol 

/STATE3/I 

709  ) 

DER3A 

i 

0COR82 

E0UA3 

0 

0C0R02 

MODELA 

i 

OCORQ2 

MODELS 

i 

0C0R02 

PDY3A 

i 

0CDR02 

Saved  state  vector  on  trial  trajectory 

/STATE3/I 

710  ) 

A01CB3 

i 

SVBV 

REU3 

0 

SVBV 

a 

Earth  rotation  rate  (RAO/SEC) 

/STATE3/< 

719) 

BLR 

I 

OMEGA 

BL7 

I 

OMEGA 

TOPM 

0 

OMEGA 

G 01-46 


307 


FOHIKOM  RATH  ncCPDTDTtnM  STORAGE  SUBROUTl'VE  USAGE 

SY1B01  SYMBOL  Ut  jUllr  I 1 U lv  BLOCK  LOC  5U8H  CODE  YAH 


0PIEGA2  y2  See  lysbol 


VD  V 

Parti al 

derivative 

of 

equation 

GOV 

Part i al 

der 1 vat ( ve 

of 

equation 

RDV 

Partial 

der  I vat  1 ve 

of 

equation 

pidv 

Parti ai 

derivative 

of 

equation 

PDV 

Partial 

der i vat l ve 

of 

equation 

oov 

Part  I a 1 

der 1 vat  i ve 

of 

equation 

l)DV 

Partial 

derivative 

of 

equal  * o n 

YOG 

Partial 

der 1 vat i ve 

of 

equation 

GOG 

Partial 

der i vat  1 ve 

of 

equation 

RDG 

Part i al 

der I vat  1 ve 

of 

eq  uat  i'o  n 

PDG 

Partial 

der i vat  i ve 

of 

equation 

OOG 

Partial 

der i vat  I ve 

of 

equation 

DOG 

Parti  a 1 

der i vat  1 v e 

of 

equat I o n 

VOR 

Partial 

der i vat i ve 

of 

equati u n 

GDR 

Partial 

der I vat  ? ve 

of 

equation 

pidR 

Partial 

derivative 

of 

equat i on 

PDR 

Part i al 

derivative 

of 

equation 

ODR 

Partial 

der i vat  I ve 

of 

equation 

UDR 

Partial 

der i vat  1 ve 

of 

equation 

VOPI 

Parti  a 1 

der I vat  1 ve 

of 

equat I o n 

GOM 

Part i a I 

derivative 

0 f 

equation 

non 

P art  1 a 1 

der  c vat i ve 

of 

equation 

pon 

Partial 

der I vat I ve 

of 

equation 

VDP 

Partial 

der i vat  I ve 

of 

equat i o n 

GOP 

Partial 

der I vat  I ve 

of 

equation 

POP 

Partial 

der I vat i ve 

of 

equati o n 

OOP 

Parti al 

der I vat  I ve 

of 

equation 

30  OCT  72  G. 01-96 


/STATE3/( 

720  ) 

BL9 

I 

0P1EGA2 

BL7 

I 

0P1EGA2 

BL8 

I 

0P1EGA2 

TBPPI 

D 

0P1EGA2 

of 

notion 

URT 

st  ate 

/STATE3/C 

721 1 

ADE03A 

1 

VOV 

PDY3A 

0 

YDV 

of 

notion 

URT 

state 

/5TATE3/I 

722) 

ADES3A 

1 

GOV 

PDY3A 

0 

GDY 

of 

notion 

URT 

st  ate 

/ST  ATE3/( 

723  ) 

AOE03A 

1 

RDV 

P0Y3A 

0 

RDV 

of 

notion 

URT 

st  »t  e 

/STATE3/I 

72*0 

ADES3 A 

I 

ROY 

P0Y3A 

0 

RDV 

of 

notion 

URT 

state 

/STATE3/I 

725  ) 

A0E33A 

I 

PDV 

PDY3A 

0 

POV 

of 

notion 

URT 

state 

/STATE3/I 

726  ) 

AOE03 A 

I 

ODV 

PDY3A 

R 

OOV 

of 

notion 

URT 

state 

/ST  ATE3  / ( 

727) 

A0E03A 

1 

UDV 

P0Y3A 

(I 

BOV 

of 

notion 

URT 

state 

/STATE3/E 

728  ) 

ADE33A 

I 

YDG 

P0Y3A 

0 

VDG 

of 

notion 

URT 

state 

/ST  ATE3/( 

729) 

AOE03A 

1 

GDG 

PDY3A 

0 

GDG 

of 

notion 

URT 

state 

/STATE3/C 

730) 

ADE03A 

1 

RDG 

PDY3A 

0 

RDG 

of 

notion 

URT 

st  ate 

/STATE3/I 

731) 

ADEQ3A 

I 

PDG 

P0Y3A 

0 

PDG 

of 

not  I o n 

UHT 

st  ate 

/STATE3/I 

732) 

ADE03A 

I 

006 

PDY3A 

0 

ODG 

of 

notion 

URT 

state 

/STATE3/C 

733) 

ADE03A 

I 

UDG 

' 

PDY3A 

0 

UDG 

of 

not  i o n 

URT 

st  ate 

/5T  ATE3/C 

73*0 

ADE03A 

1 

VDR 

PDY3A 

0 

VDR 

of 

notion 

URT 

state 

/STATE3/< 

735  ) 

A0E33A 

I 

SDR 

PDY3A 

0 

SDR 

of 

notion 

URT 

state 

/STATE3/E 

736  ) 

A0EQ3A 

I 

ADR 

PDY3A 

0 

ADR 

of 

no  1 1 o nr 

URT 

state 

/STATE3/I 

737  ) 

A0EB3 A 

I 

PDR 

PDY3A- 

0 

PDR 

of 

notion 

URT 

state 

/STATE3/( 

73B  ) 

ADE33 A 

1 

ODR 

* 

PDY3A 

0 

ODR 

of 

notion 

URT 

state 

/STATE3/I 

739  ) 

ADEQ3A 

I 

UOR 

' 

PDY3A 

PI 

DDR 

of 

notion 

URT 

state 

/ST  ATE3/( 

7HG  ) 

A0EQ3A 

I 

von' 

PDY3A 

0 

VDR 

of 

notion 

URT 

state 

/STATE3/I  1 

7 A 1 ) 

AO  £03  A 

1 

son 

PDY3A 

0 

GDPl 

of 

notion 

URT 

state 

/STATE3/I 

7 92  ) 

A0EQ3A 

1 

P1DPJ 

PDY3A 

0 

ADR 

of 

notion 

URT 

st  ate 

/STATE3/I 

793  ) 

A0EB3A 

I 

P DP) 

P0Y3A 

0 

PDP) 

of 

not  I on 

URT 

state 

/STATE3/C 

7*19  ) 

A0EQ3A 

i 

VDP 

PDY3A 

D 

VDP 

of 

notion 

URT 

st  ate 

/STATE3/( 

795  ) 

ADE33A 

J 

GDP 

PDY3A 

0 

GDP 

of 

notion 

URT 

state 

/ST  ATE3/C 

796  ) 

AQE03A 

I 

PDP 

PDY3A 

0 

PDP 

of 

notion 

URT 

state 

/STATE3/I 

797  ) 

A0EB3A 

I 

0 DP 

PDY3A 

0 

DDP 

208 


UDP 

P«rt  1 ■ I 

der  1 v » i 1 v c 

of 

equation 

of 

»o 1 1 o n 

URT 

state 

/STATE3/C 

798  ) 

A0EQ3A 

I 

UDP 

P0Y3A 

0 

UDP 

voo 

Parti al 

derivative 

of 

equation 

of 

not  I o n 

URT 

state 

/STAT£3/< 

7 49  > 

A0E03  A 

1 

VDO 

P0Y3A 

0 

VOO 

GDO 

Parti a 1 

derivative 

of 

equation 

0 f 

not  I o n 

URT 

state 

/STAT£3/( 

750  ) 

A0EQ3A 

I 

GDO 

P0Y3A 

0 

GOO 

POO 

Parti al 

derivative 

of 

equation 

of 

notion 

URT 

state 

/STATES/! 

751) 

ADEB3A 

1 

POO 

PDY3A 

0 

P DO 

UOO 

Partial 

derivative 

o f 

equation 

of 

no 1 1 on 

URT 

state 

/STATE3/( 

752  ) 

ADE03A 

I 

UOO 

PDY3A 

0 

UDO 

HtDV 

Partial 

derivative 

of 

equation 

0 f 

notion 

URT 

state 

/STAT£3/( 

753  ) 

ADEO  3 A 

1 

HTDY 

P0Y3A 

0 

HTDV 

HI  OR 

Parti  at 

derivative 

of 

equat i on 

of 

no  1 1 o n 

URT 

state 

/ST  ATE3/( 

759  ) 

ADE03A 

I 

HTDR 

PDY3A 

0 

HTDR 

S1N2R0  ’ 

s i n(  2p  ) 

See  s/abol 

/STATE3/I 

755  ) 

BLR 

1 

SIN2RQ 

BL7 

n 

SIN2R0 

BIB 

n 

S1N2R0 

P10DELA 

0 

SIN2R0 

nDDELB 

0 

SIN2R0 

C0S2R0 

0 0 s( 2p  ) 

See  syabol 

/STAT£3/( 

756  ) 

BLR 

1 

C0S2R0 

BL7 

n 

C0S2R0 

B L8 

it 

C0S2R0 

i-iqdeu 

0 

C0S2R0 

nOOELB 

0 

C0S2R0 

C0S2GI9 

cost  22 ) 

See  syn 

bo  1 

/STATE3/T 

757  ) 

ttQDELA 

0 

C0S26H 

riOOELB 

0 

CCS2Gfl 

30  OCT  72  G.01-H6 
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BL0CK 

STS 


hOH I R AN  OATH  nCCPQTDTTniM  S T OR  AGE S UBRQUT  I NE  USAS' 

SYflftOL  SYflBOL  UC-OUnir  I i U IV  BLOLK  LOC  SU3R  CODE  VAR 


OPAY 

dS’ 

Initial  payoff  improvement 

/STS 

/( 

i > 

PAY02 

I 

OPAY 

SOINP 

I 

OFAY 

SOINP 

0 

I5T 

SOINP 

I 

ST 

TEST 

I 

OPAY 

TOPfl 

0 

IDPAY 

pniN 

Plrninu*  payoff  improvement 

/STS 

/( 

2) 

PAY  02 

I 

PfllN 

SOINP 

I 

PftIN 

TEST 

I 

pnlN 

UORK 

Working  array,  contains  T0PEN1,  TQPEN2,  and  PHIUT 

/STS 

/! 

3 ) 

AQE33A 

I 

UORK 

FNTS 

I 

UORK 

ftODELB 

0 

UORK 

HTX3A 

I 

UORK 

SOINP 

n 

UORK 

TEST 

n 

UORK 

/tTC 

T \ 

D A V ft  9 

M 

nn 

uu 

Description  mrt — I ,,HLI  t -c$PT*  com  Ao^.  fiuiuT 

/ J 1 J 

/CTC 

/ t 

1 i 

t 1 1 

r HTUC 
anCiV?  a 

n 

f 

If  II 

CflllLT 

CP1ULT 

NITER 

Maximum  number  of  steepest  descent  Iterations 

/ j 1 J 

/STS 

t K 
/( 

1 J J 

31  > 

h utw 

SOINP 

l 

i 

niter 

TEST 

I 

NITER 

PINGA 

Control  history  curve  number 

/STS 

/< 

32) 

GU13A 

n 

RNSA 

SOINP 

n 

RNGA 

SOINP 

I 

TAL 

angp 

Control  history  curve  number 

/STS 

/< 

72) 

GUI3A 

N 

MNGP 

SOINP 

rt 

RNGP 

SOI  NP 

I 

UTPI 

DLPI 

Description  not  Input 

/STS 

/( 

91  ) 

SOINP 

I 

DLPI 

AR 

Array  for  storing  starting  control  history  tables 

/STS 

/( 

112) 

SOINP 

1 

AR 

SOINP 

I 

III 

TBLX 

I 

AR 

I AO 

Starting  address  of  each  control  history  table 

/STS 

/< 

312  ) 

SOINP 

R 

I AD 

TBLX 

I 

I AO 

1NP 

Index  of  last  argument  of  each  control  history  table 

/STS 

/( 

332) 

SOINP 

* 

INP 

TBLX 

I 

INP 

ISV 

Saved  index  of  last  control  history  table  look-up 

/STS 

/c 

352  ) 

SOINP 

0 

ISV 

TBLX 

n 

ISV 

30  OCT  72  G. 01-96 


BL0CK 

XC0DES 


fohiran 

SYMBOL 


hat  h 
SYnBOl. 


DESCRIPTION 


S IORaGE  SUBROUTINE  USAS 

0i.u>b  tor  buefi  raot  vah 


no 

Constraint  option  code  (internal) 

/XCODES/l 

n 

A01CB3 

I 

IT0 

ADIC3A 

I 

no 

AD1D3A 

I 

no 

CONS 

I 

no 

SDINP 

PI 

no 

* 

STAU 

I 

I TO 

TOPfl- 

D 

I ITQ 

1 COR 

Phase  sequence  array 

/XC0DES/( 

10) 

ADJUST 

1 

ICOR 

FNTG 

I 

ICDR 

PRPISET 

I 

I COR 

SD1NP 

Pi 

icon 

ITI 

Optlnized  arc  tine  flag 

/XCODES/f 

30) 

ADJUST 

n 

ITI 

FNTG 

i 

ITT 

SDINP 

0 

ITI 

INTO 

Branching  and  intermediate  constraint 

flag 

/XCODES/f 

31 ) 

AD1C3A 

i 

INTB 

BNTG 

i 

I NTB 

ENVPfiH 

i 

INTB 

FNTG 

i 

INTB 

SOINP 

n 

INTB 

TEST 

i 

INTB 

THAN3 

i 

INTB 

TRTOSZ 

i 

INTB 

JGIO 

Control  option  flag  array 

/XCODES/l 

32) 

BNTG 

i 

JGIO 

FNTG 

i 

J SI  D 

SDiNP 

n 

JGIO 

JPH 

Phase  tut-off  option  flag 

/XCOOES/l 

72) 

BNTG 

i 

JPH 

FNTG 

n 

JPH 

SDJNP 

« 

JPH 

JST 

Arc  cut-off  option  flag 

/XCODES/l 

112) 

ADJCB3 

i 

JST 

BNTG 

i 

JST 

FNTG 

i 

JST 

SDINP 

n 

JST 

ncnst 

Number  of  problem  constraints 

/XCODES/< 

132) 

BGET3 

i 

NCNST 

BST03 

i 

NCNST 

CQN3 

i 

NCNST 

PAY02 

i 

ncnst 

SDINP 

n 

NCNST 

Suns 

i 

NCNST 

TEST 

i 

NCNST 

TOPrt 

i 

NCNST 

TRAN3 

i 

NCNST 

NSB 

Number  of  arcs  prior  to  branch  point 

or  intermediate 

/XCODES/l 

133) 

ADI C83 

i 

NSB 

constr  a t nt 

BNTG 

i 

NSB 

ENVPfiH 

i 

NSB 

* 

FNTG 

i 

NSB 

REU3 

i 

NSB 

SDINP 

n 

NSB 

, 

TEST 

i 

NSB 

TRAN3 

i 

NSB 

TfiTDSZ 

i 

NSB 

NS  AB 

Number  of  arcs  on  first  branch 

/XCDDES/l 

131) 

ADICB3 

i 

NSA5 

BNTG 

i 

NS  AB 

ENYPRP1 

i 

NS  AB 

FNTG 

i 

NS  AB 

SDINP 

n 

NSAB 

TEST 

i 

N5AB 

TR&N3 

i 

NSAB 

TRTOSZ 

i 

NSAB 

N 1 CNB 

Nunber  of  constraints  at  1 nter Bed i at* 

constraint  point 

/XCDOE5/1 

135  ) 

ADICB3 

i 

NICNB 

or  at  and  of  first  branch 

ADIC3A 

i 

NICNB 

BNTG 

i 

NI  CNB 

REU3 

i 

NICNB 

SOINP 

pi 

NICNB 

TEST 

i 

NT  CNB 

TRAN3 

i 

NI  CNa 

I20P 

First  optimization  pass  flaq  sets  d$ 

= DP  A Y . Also 

/XCOOES/l 

1 3 6 ) 

PAY02 

pi 

I20P 

used  to  indicate  payoff  degradation  due  to  restoration 

TEST 

n 

I20P 

of  constraints 

TOPM 

0 

I20P 

30  OCT  72  G. 01-16 


2 j[  3 


FORTRAN  MATH 

SYP1BOL  SYMBOL 


DESCRIPTION 


STORAGE 
BLOLA  LOC 


I GOP 
!FAU 
IFAR 

IFB 

I NO 

10PEN 
I PH 


ISPH 
ISST 
I ARC 


I START 


I TCT 


Flag  used  to  Indicate  state  derivative  refinement  at 
arc  cut-off  point. 

Logical  file  to  srlte  currant  trial  trajectory  data 
File  ohere  nonlnal  trajectory  date  Is  read  free 

File  ohere  adjoint  solution  Is  stored 

Fla;  indicates  mhether  on  first  nominal  trajectory 
1 1 ND= 1 ) 

Closed  to  open-loop  control  snitch  alien  equal  to  2 
Phase  nuaber 

Sign  of  phase  cut-off 
Sign  of  arc  cut-off 
Arc  nuaber 


Initialization  and  divergence  flag 


Iteration  counter 


/XCOOES/t 

137) 

ENT  G 

It 

I COP 

GETIT 

1 

1C0P 

/XCDOES/f 

138) 

AST  3 

I 

I F AN 

TOPn 

n 

1FAU 

/XCODES/t 

139) 

AGETB3 

i 

IFAR 

AST3 

I 

IFAR 

TOPE) 

n 

IFAR 

/XCOOES/1 

1 NO  ) 

BGET3 

i 

IFB 

BSTG3 

i 

IFB 

TOPn 

0 

IFB 

/XCODES/l 

HI) 

AST3 

i 

IND 

8GET3 

i 

I NO 

ENTS 

pi 

IND 

GU13A 

i 

IND 

HTX3A 

i 

IND 

PR0P1N 

i 

IND 

/XCODES/t 

1N2) 

fntg 

n 

IQPEN 

PROPIN 

0 

IOPEN 

/ XCOBES/ ( 

1N3) 

ADI03A 

I 

I PH 

ADJUST 

i 

IPH 

AST3 

i 

IPH 

BNTG 

pi 

IPH 

FNTG 

pi 

IPH 

GETIT 

i 

IPH 

GUI3A 

1 

IPH 

SOINP 

pi 

IPH 

/XCOOES/t 

INN) 

FNTG 

0 

ISPH 

STP3 

I 

ISPH 

/XCODES/t 

1N5) 

FNTG 

0 

ISST 

STP3 

I 

ISST 

/XCOOES/t 

1N6  ) 

AD1CB3 

I 

I ARC 

AD103A 

I 

IARC 

ADJUST 

1 

IARC 

A$T3 

I 

IARC 

BNTG 

PI 

IARC 

ENVFRP1 

I 

IARC 

FNTG 

P) 

IARC 

GETIT 

I 

IARC 

PlODELA 

I 

IARC 

PROPB 

I 

IARC 

PROFIN 

I 

IARC 

REU3 

I 

IARC 

SD1NP 

P! 

I ARC 

5TAU 

1 

IARC 

STP3 

I 

IARC 

TRTOSZ 

I 

IARC 

/XCODES/t 

1N7) 

AST3 

Q 

ISTART 

BLGCON 

0 

1-START 

BLYNE 

0 

ISTART 

FNTG 

I 

ISTART 

PlODELA 

0 

ISTART 

PROP  1 N 

0 

ISTART 

REU3 

I 

ISTART 

TEST 

PI 

ISTART 

TO  PR 

pi 

ISTART 

/ XCOOES/t 

1N8  > 

BNTG 

I 

I TCT 

OUT 

I 

ITCT 

TEST 

PI 

l.TCT 

TOPPI 

PI 

ITCT 
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symbol  symbol  ut  j^ni  r I 1UIV  bloik  loc  subh  coot  yah 


ITER 

Trajectory  past  indicator. 

/XCOOES/I 

119  ) 

AST3 

I 

ITER 

ITER  = 1,  CONSTRAINTS 

FNTG 

I 

ITER 

= 2,  OPTIMIZATION 

GETIT 

I 

ITER 

= 3,  SOLUTION 

110DELA 

I 

ITER 

OUT 

I 

ITEH 

PAY02 

n 

ITER 

PROP  1 N 

i 

ITER 

TEST 

(9 

ITER 

TOP  (9 

19 

ITEH 

I VAR 

Cut-off  variable  option  Indicator 

/XCODES/I 

150  ) 

FNTG 

(9 

I VAR 

STP3 

0 

1 VAR 

T0L3 

I 

I VAR 

JK 

Integration  routine  flag  tells  which  derivative 

/XCOQES/I 

151  > 

A01 C3A 

n 

JK 

evaluation  In  Runge-Kgtta  cycle 

BNTG 

i 

JK 

I90DELA 

I 

JK 

PAY02 

19 

JK 

RKTA3A 

n 

J 

RKTB3A 

(9 

J 

JPS 

Absolute  value  of  phase  cut-off  option  code 

/xcodes/i 

152) 

AQI03A 

1 

JP5 

8NTS 

79 

JPS 

FNTG 

(9 

JPS 

STP3 

I 

JPS 

TO  L3 

1 

JPS 

JS 

Absolute  value  of  arc  cut-off  option  code 

/XC0DES/< 

153) 

ADICB3 

(9 

JS 

AD1C3A 

i 

J5 

ADI03A 

I 

JS 

BNTG 

19 

JS 

FNTG 

(9 

JS 

PROPB 

I 

JS 

PROPIN 

I 

JS 

STP3 

I 

JS 

T0L3 

1 

J5 

KOP 

Counts  number  of  tines  constraint  misses  are  halved 

/XCQDES/t 

159  ) 

TEST 

n 

KOP 

down  because  of  divergance  problems 

T0PP5 

i 

KOP 

KPST 

Controls  (ogle  for  compute  interval  during  adjoint 

/XCQOES/I 

155  > 

BNT  S 

PS 

KPST 

i nt  e gr  at  i o ft 

FNTG 

r9 

KPST 

K 

Storage  retrieval  flag  Indicates  end  of  arc,  phase,  or 

/XCODES/I 

15b) 

AST3 

0 

K 

d ata 

FNTG 

0 

K 

GETIT 

PS 

K 

NODELA 

I 

K 

SDINP 

H 

K 

KST 

Arc  or  phase  cut-off  flag 

/XCOOES/t 

157  ) 

ADJUST 

I 

KST 

FNTG 

r9 

KST 

NCASE 

Case  number 

/XCOOES/I 

159) 

TOPH 

0 

NCASE 

ncn 

Number  of  elements  in  df" 

/ XCODES/I 

160) 

A0ES3A 

I 

NCN 

ADICB3 

1 

NCN 

ADIC3A 

I 

NCN 

A0I03A 

1 

NCN 

ADJUST 

I 

NCN 

AST3 

PI 

NCN 

BNTG 

I 

NCN 

BST03 

I 

NCN 

P1TX3A 

I 

NCN 

OUT 

I 

NCN 

PAY02 

P! 

NCN 

TEST 

PI 

NCN 

TOP  M 

1 

NCN 

TRAN3 

I 

NCN 

TRTOSZ 

I 

NCN 

neob 

Number  of  integrated  quantities  during  adjoint 

/XCODES/t 

161  ) 

ADI CB3 

I 

NE2B 

so  I ut I on 

AD1C3A 

PI 

NEOB 

RKTB3A 

I 

NN 
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svhbol  symbol  uc.oonlr  I 1 U IM  block  loc  sjbh  code  var 


NEO 

Nuober  of  Integrated  ttates 

/XCOOES/t 

162  ) 

AD! CB3 

1 

NEO 

AO  I C3  A 

I 

NEB 

AO  I 03 A 

I 

NEB 

AGETB3 

I 

NEB 

AST  3 

1 

NES 

BGET3 

I 

NEB 

BST03 

I 

NEQ 

PITX3A 

I 

NEO 

OUT 

I 

NEO 

REU3 

I 

NEQ 

S0ER3 

I 

NEO 

SDINP 

n 

NEB 

TOPrl 

I 

NEO 

7RAN3 

I 

NEQ 

YREF3 

I 

NEO 

NOP 

Counts  njvber  of  tloes  payoff  is  scaled  do*n  due  to 

/XCOOES/I 

J63) 

TEST 

pi 

NOP 

divergence  problems 

TOPM 

I 

NOP 

NPH 

Number  of  phases  In  trajectory 

/XCOOES/t 

16*0 

BNTG 

I 

NPH 

FNTG 

0 

NPH 

PRPISET 

I 

NPH 

SOI  NP 

n 

NPH 

TEST 

I 

NPH 

TOPM 

I 

NPH 

N 

Description  not  input 

/XCOOES/t 

165) 

MTX3A 

pi 

N 

PAY02 

m 

N 

501  NP 

m 

N 

NST 

Nuaber  of  arcs  In  trajectory 

/ XCODES/t 

166  > 

BNTG 

1 

NST 

FNTG 

0 

NST 

PROP  B 

i 

NST 

SDINP 

I 

NS 

SDINP 

pi 

NST 

TEST 

I 

NST 

TOPM 

i 

NST 

TRAN3 

i 

NST 

I PST 

Phase  counter  for  first  nominal  trajectory 

/ XCQDE5/( 

167  ) 

AST3 

i 

I PST 

FNTG 

n 

I PST 

GUI3A 

I 

I PST 

HEU3 

i 

I PST 

JPRINT 

Print  page  counter  initialization  flag 

/ XCODES /( 

168) 

OUT 

pi 

IPRINT 

TEST 

l 

I PR  I NT 

TOPM 

0 

IPRINT 

ISTN 

Stored  history  data  arc  nunber 

/ XCODES / < 

169  ) 

AGETB3 

0 

ISTN 

AST  3 

0 

ISTN 

GETIT 

I 

ISTN 

TRAN3 

I 

ISTN 

IPHN 

Stored  history  data  phase  nuwbcr 

/XCGDE5/1 

170) 

AGETB3 

PI 

IPHN 

AST3 

PI 

IPHN 

GETIT 

I 

IPHN 

t BLK1 

Storage  retrieval  buffer  counter 

/XCDDES/t 

173  ) 

AST3 

PI 

I BLK 1 

BST03 

PI 

IBLK1 

IBLK2 

Storage  retrieval  buffer  counter 

/XCOOES/t 

179  ) 

AGETB3 

PI 

IBLK2 

AST3 

PI 

IBLK2 

ISTOP 

Arc  cut-off  flag 

/XCOOES/( 

175  ) 

FNTG 

PI 

ISTOP 

STP3 

I 

ISTOP 

ISTPP 

Phase  cut-off  f 1 ag 

/XC0OES/( 

176  ) 

FNTG 

PI 

ISTPP 

STP3 

I 

ISTPP 

L 

Integration  traffic  control  flag 

/ XCODES/ ( 

177) 

BNTG 

n 

L 

L = 1 mans  evaluate  derivatives 

FNTG 

pi 

L 

- 2 check  cut-off 

OUT 

I 

L 

= 3 print  or  cut-off  detected 

RKTA3A 

n 

L 

- 

RKTB3A 

pi 

L 

SDINP 

pi 

L 
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DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 
BlOLA  LOC  SUBR  CODE  VAR 


1 FOB 

Forward  or  adjoint  Integration  flag 

/ XCO  0E5/( 

17  0) 

ACCEL 

I 

I FOB 

= 1 neant  forward 

BEROCO 

I 

I FOB 

= 2 means  adjoint 

8LYNE 

I 

IFOB 

EQUA3 

I 

IFOB 

[flPUL 

I 

IFOB 

SPLYNE 

I 

IFOB 

lOPd 

0 

IFOB 

NB 

Extent  of  Integration  set  during  adjolnts  on  branch 

/XCODES/t 

179  ) 

A0EO3A 

I 

NB 

pr  ob  l ew 

A0ICB3 

n 

NB 

A0IC3A 

n 

NB 

BNTG 

0 

NB 

RKTB3A 

i 

NB 

STVRL3 

i 

NB 

LB 

First  element  number  in  partitioned  d^  vector 

/XCODES/t 

ieo ) 

ADEQ3A 

i 

LB 

ADIC03 

0 

LB 

ADIC3A 

M 

NN 

P1B 

Last  element  number  in  partitioned  d'fr  vector 

/XCODES/E 

101  ) 

ADEQ3A 

I 

MB 

ADI CB3 

0 

MB 

* 

ADIC3A 

0 

MB 

NPHP 

Description  not  Input 

/XCODES/t 

1 82  J 

REU3 

0 

NPHP 

TEST 

I 

NPHP 

NPHB 

Description  not  input 

/XCODES/t 

183  ) 

REU3 

0 

NPHB 

TEST 

I 

NPHB 

NCTIN 

Number  of  elements  in  upper  triangular  portion  of  A 

/XCQ0E5/t 

1 89  ) 

ADICB3 

I 

NCTIN 

matr  1 * 

ADIC3A 

n 

NCTIN 

NEOF 

Number  of  equations  to  be  integrated  on  forward 

/XCODES/( 

185  ) 

REU3 

i 

NEQF 

trajectory 

RKTA3A 

i 

NN 

SOINP 

0 

NEOF 

STAU 

i 

NEOF 

topm 

0 

NEOF 

TRAN3 

0 

NEOF 

JIN 

Description  not  Input 

/XCODES/t 

186) 

E3UA3 

I 

JIN 

MOOELA 

n 

JIN 

MODELS 

0 

I LAB 

PROPIN 

0 

I LAB 

INEDS 

Description  not  input 

/XCOOES/t 

187) 

BNTS 

I 

I NEDS 

PRQPB 

0 

INEOS 

JPRP 

Propulsion  flag  for  different  rocket  options 

/XCOOES/t 

1)11 

ACCEL 

I 

JPRP 

— 

DER3A 

I 

JPRP 

E0UA3 

I 

JPRP 

■ 

MODELA 

I 

JPRP 

PDY3A 

t 

JPRP 

PROPS 

0 

JPRP 

PROP  I N 

0 

JPRP 

JGII 

Contr o 1 option 

/XCODES/( 

195  ) 

ACCEL 

I 

JGII 

BNTS 

0 

JGII 

DER  3 A 

I 

JGII 

FNTG 

n 

JGII 

GUI  3A 

I 

JGII 

MODELA 

I 

JGII 

P)0  DELB 

I 

JGII 

C1TX3A 

I 

JGII 

P.0Y3A 

I 

JGI I 

rtTT 

Thrust  curve  number 

/XCOOES/t 

196) 

E0UA3 

1 

MTT 

PROP  B 

M 

(ITT 

PROP.]  N 

n 

(ITT 

rtP  I N 

Save  thrust  curve  nuabers  for  adjoint  solution 

/XCOOES/t 

197  ) 

PROPB 

i 

MPIN 

PROP  1 N 

0 

HP  IN 

JP1 

Option  flag  for  first  governing  equation 

/XCODES/( 

217  ) 

AGETB3 

M 

JP1 

AST3 

o 

JP1 

nODELA 

n 

JP1 

MO  DE  LB 

I 

JP1 

PROPB 

0 

JP1 

PROPIN 

0 

JP1 
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FORTRAN  HATH  nCCODTDTTfUl  STORAGE  SUBROUTINE  U5AGE 

SYMBOL  SYMBOL  UCoUnirl  1UIM  BLOCK  LO L SUBR  CODE  VAR 


JPZ 

Opt l on 

'flag 

for 

second  governing  equation 

/ XCOBES/l 

218) 

FIODELA 

I 

JP2 

no  OELB 

I 

JP2 

PROPB 

0 

JP2 

PROP  I N 

0 

JP2 

JP3 

Option 

flag 

for 

third  governing  equation 

/XCOBES/( 

219  ) 

AGETB3 

0 

JP3 

AST  3 

n 

JP3 

MODELA 

n 

JP3 

PtODELB 

i 

JP3 

OUT 

I 

JP3 

PROPIN 

0 

JP3 

30  OCT  12  G 01  -*»6 
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SUBR0UTINE 
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313 


Subroutine  ACCEL 


Purpose 

Computes  acceleration  vector,  a,  and  its  partials  with  respect  to  state  and 
elements  of  the  control  vector.  It  also  computes  the  complete  first  partials 
of  the  acceleration  vector  with  respect  to  the  state.  See  Section  9.  3 of 
Volume  I. 

Description 

During  forward  trajectory,  aV,  a^,  a^  and  am  are  computed.  On  the  adjoint 

solution,  matrix— -is  also  computed.  The  acceleration  vector  a is 
9y 

defined  m equation  (2.4-2)  of  Volume  I. 
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CODE 


DESCRIPTION 


S 1 0 R ft  iP  VJARQiJTINP  USAGE 
OLULK  LOC  3U8K  COO€  VAR 


AE 

A t A 

i 

Total  no  nil  exit  are* 

/GENE 

/( 

520  ) 

ACCEL 

I 

AE 

ixlt 

PH2 

I 

AE 

I PIPLIL 

i 

AE 

PROPS 

0 

AE 

PRQPiN 

0 

AE 

S0ER3 

i 

AE 

ftG 

a 7 

n 

Accelerjilon  vector  element. 

/AXL 

/( 

2) 

ACCEL 

it 

AG 

a 

0ER3A 

I 

AG 

P0Y3A 

i 

AG 

AGft 

u 

Element  of  AU  matrix 

/ACCEL 

/<* 

> 

ACCEL 

u 

AGA 

AGO 

u 

Element  of  AU  matrix 

/ACCEL 

/<  * 

> 

ACCEL 

u 

AGO 

AGP1 

0 

Element  of  matrix  of  acceleration  vector 

partiais 

/AXL 

/( 

30  ) 

ACCEL 

0 

AGft 

URT  state. 

F0Y3A 

I 

A Git 

AGR 

0 

Element  of  matrix  of  acceleration  vector 

parti a Is 

/AXL 

/< 

1 8 > 

ACCEL 

0 

AGR 

URT  state. 

PBY3A 

1 

AGR 

AGT 

0 

Element  of  AU  matrix 

/ACCEL 

/<* 

) 

ACCEL 

0 

AGT 

AGV 

0 

Element  of  matrix  of  acceleration  vector 

part  t a l s 

/AXL 

/( 

6 > 

ACCEL 

0 

AGV 

URT  state. 

PDY3A 

I 

AGV 

Art 

* d 

PI 

Acceleration  vector  element. 

/AXL 

/( 

9 ) 

ACCEL 

n 

Art 

a 

DER3A 

i 

AH 

AMR 

0 

Element  of  aatrix  of  acceleration  vector 

partlals 

/AXL 

/( 

20) 

ACCEL 

D 

APIR 

URT  state. 

PDY3A 

I 

APIR 

A AT 

U 

Element  of  AU  aatrix 

/ACCEL 

/(  » 

) 

ACCEL 

u 

aht 

ftnv 

0 

Element  of  matrix  of  acceleration  vector 

p ar t i a 1 s 

/AXL 

/< 

8) 

ACCEL 

0 

APIV 

URT  state. 

PDY3A 

1 

APIV 

AP 

A 

Acceleration  vector  element. 

/AXL 

/( 

3) 

ACCEL 

ft 

AP 

a 

OER3A 

I 

AP 

PBY3A 

I 

AP 

APA 

U 

Element  of  AU  matrix 

/ACCEL 

/(  » 

) 

ACCEL 

u 

APA 

APD 

u 

Element  of  AU  matrix 

/ACCEL 

/(* 

) 

ACCEL 

u 

APD 

APA 

0 

Element  of  matrix  of  acceleration  vector 

parti  a ! $ 

/AXL 

/( 

31  ) 

ACCEL 

0 

APfl 

URT  state. 

P0Y3A 

I 

API1 

APR 

0 

Element  of  matrix  of  acceleration  vector 

partiais 

/AXL 

/( 

19  ) 

ACCEL 

0 

APR 

URT  state. 

PDY3A 

i 

APR 

APT 

0 

Element  of  AU  matrix 

/ACCEL 

/<* 

) 

ACCEL 

3 

APT 

AP  V 

3 

Element  of  matrix  of  acceleration  vector 

partiais 

/AXL 

/( 

7 ) 

ACCEL 

0 

APV 

URT  state. 

P0Y3A 

I 

AP  V 

AV 

-V 

A 

Acceleration  vector  element. 

/AXL 

/( 

1 ) 

ACCEL 

Pi 

AV 

a 

DER3A 

1 

AV 

AVA 

u 

Element  of  AU  matr I X 

/ACCEL 

/(* 

) 

ACCEL 

u 

AVA 

AVO 

u 

Element  of  AU  matrix 

/ACCEL 

/<* 

) 

ACCEL 

u 

AVO 

AVI'] 

0 

Element  of  matrix  of  acceleration  vector 

partiais 

/AXL 

/( 

29) 

ACCEL 

0 

AVP1 

URT  state. 

P0Y3A 

1 

AVPt 

AVR 

0 

Element  of  matrix  of  acceleration  vector 

partiais 

/AXL 

/( 

17) 

ACCEL 

0 

AYR 

URT  state. 

P3Y3A 

I 

AVR 

AVT 

u 

Element  of  AU  aatrix 

/ACCEL 

/(* 

) 

ACCEL 

u 

AVT 

AVV 

PI 

Name  of  acceleration  partlals  matrix. 

/AXL 

/( 

5 ) 

ACCEL 

n 

AVV 

ACCEL 

0 

AY 

PBY3A 

i 

AVV 

AU 

d a /d\si 

0 

Platrix  of  partiais  of  acceleration  vector 
Tnplane  control  vector 

■ URT 

/ACCEL 

/<* 

) 

ACCEL 

0 

AU 

AV 

0 

Name  of  acceleration  partlals  matrix. 

/AXL 

/( 

5 ) 

ACCEL 

pi 

AVV 

ACCEL 

0 

AY 

PDY3A 

i 

AVV 
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DESCRIPTION 


s trhap 

BLl).  K 


5 iJRR J LIT  INF  U5AGE 
SU8h  LODb  VAR 


CODAE 

cost  » ~ 4 ^ ) 

I 

See  iy»bal 

/GENF  /( 

5H9  ) ACCEL 

I 

COOAE 

blh 

I 

CODAE 

BL6 

I 

COOAE 

BL7 

I 

COOAE 

BLB 

I 

COOAE 

FH3 

I 

COOAE 

SDER3 

I 

COOAE 

VT 

0 

CODAE 

COS  A 

cos® 

I 

Sec  ayabo  1 

/AEC03  /< 

8)  ACCEL 

1 

COS  A 

BLA 

I 

COSA 

BL4 

I 

COSA 

BL7 

I 

COSA 

BL8 

I 

COSA 

FH3 

I 

COSA 

OUT 

1 

COSA 

VT 

0 

COSA 

COSGAP) 

cost  7 ) 

1 

See  syabol 

/STATE3/( 

4B7)  ACCEL 

I 

COS  GAP) 

BLA 

I 

COSGAP) 

BLB 

I 

COSGAPi 

0ER3A 

I 

COSGAP) 

EQUA3 

0 

COSGAPI 

HODELA 

I 

COSGAP) 

PIDOELB 

1 

COSGAP) 

OUT 

1 

COSGAP) 

PDBC 

I 

COSGAPI 

PDV3A 

I 

COSGAP) 

COSPHI 

cos^ 

I 

See  syabal 

/AEC03  /( 

13)  ACCEL 

I 

COSPHI 

BLA 

I 

COSPHI 

GU73A 

m 

COSPHI 

riDDELA 

n 

COSPHI 

no  delb 

n 

COSPHI 

OUT 

i 

COSPHI 

OB 

D 

I 

Base  drag 

( LBS  ) 

/GENF  /( 

537)  ACCEL 

5 

OB 

b 

BLA 

I 

DB 

BL4 

I 

OB 

BL7 

I 

OB 

BL8 

I 

OB 

E0UA3 

I 

DB 

FH3 

I 

DB 

OUT 

I 

DB 

SDER3 

1 

DB 

VT 

1 

DB 

DBR 

I 

Partial  of  base  drag  art  altitude 

/GENF  /( 

534)  ACCEL 

I 

DBR 

BLA 

I 

DBR 

BL4 

I 

DBR 

BL7 

I 

DBR 

BL8 

1 

OBR 

E0UA3 

I 

OBR 

FH3 

1 

DBR 

VT 

I 

OBR 

DPOY 

8ui  / 3y 

I 

Platrix  of  partial:  of  Ip-plane  control  vector 

art 

/GENF  /( 

410)  ACCEL 

1 

DPDY 

st  ate 

BLGCON 

I 

DPOY 

OUT 

I 

OP  DY 

DRAG 

D 

I 

Aero  dynaal c drag 

( LBS  ) 

/GENF  /( 

A9 7 ) ACCEL 

I 

DRAG 

BLB 

I 

DRAG 

8L7 

I 

DRAG 

BLB 

I 

DRAG 

ENVPRfl 

I 

DRAG 

FH3 

I 

DRAG 

OUT 

1 

DRAG 

PROPS 

0 

DRAG 

PROPIN 

0 

DRAG 

SOER3 

I 

DRAG 

VT 

m 

DRAG 

30  OCT  72  G.01-H4 


ZZ3 


FORTRAN 

SVinBOL 

ORAGA 
OR  AGR 
DRAGV 
FVAC 

GOA 

GDPH 

GR 


IFOB 


ISP 


ISPF 


FIAT  H 
5V  P1BDL 


a?/a« 

87/3* 

9r 


I 

*P 


code DESCRIPTION 

1 Partial  of  drag  art  angle  of  attack 
I Partial  drag  art  altitude 
1 Partial  of  drag  art  velocity 

I Total  vacuua  thrust  [rocket)  (LBS) 

0 See  syabol 

0 See  syabol 

1 Gravitational  acceleration  at  surface  of  the  earth. 

(FT/SEC2) 


I Foroard  or  adjoint  Integration  flag 

- 1 Hearts  foraard 

- 2 aeans  adjoint 

1 Net  vaeuun  specific  lapulse 
I Partial  of  ISP  art  vac-uua  thrust 


STORAGE  SOBiiainiNF  USAG 
DL0LK  LOC  SUBR  CODE  VAR 


/GENF 

/( 

539) 

ACCEL 

I 

ORAGA 

BL5 

I 

ORAGA 

BL  7 

I 

ORAGA 

BL8 

I 

ORAGA 

FH3 

I 

ORAGA 

VT 

n 

ORAGA 

/ GENF 

/( 

533  ) 

ACCEL 

i 

OR  AGR 

BL5 

i 

DRAGfl 

BL7 

i 

DRAGS 

BL8 

i 

OR  AGR 

FH3  . 

i 

OR  AGR 

VT 

ra 

DRAGR 

/GENF 

/( 

532  ) 

ACCEL 

i 

ORAGV 

BL5 

i 

DRAGV 

BL7 

i 

ORAGV 

BL8 

i 

DRAGV 

FH3 

i 

DRAGV 

VT 

m 

DRAGV 

/GENF 

/( 

528) 

ACCEL 

I 

FVAC 

E0UA3 

n 

FVAC 

FH2 

i 

FVAC 

IPIPUL 

n 

FVAC 

PROP  B 

n 

FVAC 

PROPIN 

FI 

FVAC 

S0ER3 

I 

FVAC 

/AEC03 

/( 

5) 

ACCEL 

0 

GDA 

ADEQ3A 

I 

GDA' 

/ AEC03 

/( 

1*0 

ACCEL 

0 

GDPH 

• 

A0E03A 

I 

GDPH. 

PDY3A 

0 

GDPH 

/GLOBAL/t 

1) 

ACCEL 

I 

GR 

6L5 

I 

GR 

ESUA3 

I 

GR 

FH3 

I 

GR 

GEINP 

I 

G 

GEINP 

I 

GR 

GEINP 

0 

IS 

OUT 

I 

GR 

P AOS  1 

I 

GR 

POBC 

I 

GR 

REU3 

I 

GR 

SDINP 

I 

GR 

SIZE 

I 

GR 

SIZ1 

I 

GR 

S1Z2 

I 

GR 

SIZ3 

I 

GR 

SIZM 

I 

GR 

SOftS 

I 

GR 

STAU 

I 

GR 

/XC00ES/( 

178) 

ACCEL 

I 

I FOB 

BEROCO 

I 

IFOB 

BLYNE 

I 

1F0B 

EAUA3' 

I 

1 FOB 

inPUL 

I 

IFOB 

SPLYNE 

I 

IFOB 

TOPB 

0 

IFOB 

/GENF 

/( 

538) 

ACCEL 

I 

ISP 

IMPUL 

0 

ISP 

/GENF 

/( 

539) 

ACCEL 

I 

ISPF 

I PIP  UL 

0 

ISPF 

30  OCT  72  G.01-A6 


lORIHAN  HATH* 

‘jyuhoi  symbol 


jgi  i 


JPRP 


LIFT  L 


LI  FT  A 


LIFT* 


LIFTR 


LIFTV 


n 


M 


PAR 

PDA 

PDPH 


3^V3“ 

3)730 


SFC 

SFCH 

SFCV 

30  OCT  T2  G. 01-96 


CODE 

DESCRIPTION 

S TOR  A 

BLOCK 

TF 

LOL 

SUBROUTINE  USAGE 
SUBH  LODE  VAR 

I 

Control  option 

/ XCGDES/l 

195  ) 

ACCEL 

I 

JGI  I 

BNTG 

0 

JGII 

DEH3A 

I 

JGII 

F NT  G 

n 

JGII 

GUI  3A 

i 

JGII 

P100ELA 

i 

J GIT 

NODE  LB 

i 

JGII 

I9TX3A 

1 

JGII 

P.DY3A 

i 

JGII 

I 

Propulsion  flag  for  different  rocket  options 

/XC0DES/< 

199) 

ACCEL 

i 

JPRP 

. 

DER3A 

i 

JPRP 

E0UA3 

i 

JPRP 

I10DELA 

I 

JPRP 

P0V3A 

i 

JPRP 

PRQPB 

0 

JPRP 

PROPIN 

0 

JPRP 

I 

Aerodynamic  lift  ( LBS > 

/ GENF  /( 

996  ) 

ACCEL 

1 

LIFT 

BL9 

1 

LIFT 

BL5 

1 

LIFT 

BL6 

1 

LIFT 

ENVPRfl 

I 

LIFT 

FH3 

I 

LIFT 

OUT 

I 

LIFT 

PROPB 

0 

LIFT 

PfiOPIN 

0 

LIFT 

VT 

0 

LIFT 

I 

Partial  of  lift  art  an g 1 e - of - att aek 

/GENF  /( 

531 ) 

ACCEL 

I 

LI  FT  A 

* 

BL9 

I 

LIFTA 

BL5 

I 

LI-FTA 

BL6 

I 

LIFTA 

FH3 

I 

LIFTA 

VT 

0 

LIFTA 

1 

Partial  of  LIFT  *rt  mass 

/ GENF  /( 

535  ) 

ACCEL 

I 

LIFTR 

BL9 

I 

LIFTR 

BL5 

I 

LIFTR 

BL6 

I 

LIFTR 

FH3 

I 

LIFTR 

VT 

0 

LIFTR 

I 

Partial  of  lift  »r t altitude  1 

/ GENF  /( 

530) 

ACCEL 

I 

LIFTR 

BL‘9 

1 

LIFTR 

BL5 

I 

LIFTR 

BL6 

I 

L-IFTR 

FH3 

I 

LIFTR 

VT  ' 

0 

LIFTR 

I 

Partial  of  lift  »rt  velocity 

/GENF  /< 

529  ) 

ACCEL 

I 

LIFTV 

BL9 

1 

LIFTV 

BL5 

I 

LIFTV 

BL6 

I 

LIFTV 

FH3 

I 

LIFTV 

VT 

0 

LIFTV 

I 

Hass 

/ST  AT£3/< 

9) 

ACCEL 

I 

R 

BL9 

I 

19 

BL8 

I 

19 

EQUA3 

I 

19 

OUT 

I 

(9 

' 

SOER3 

I 

19 

I 

Deriv  Of  press  Urt  alt. 

/GENF  /< 

312) 

ACCEL 

I 

PAR 

FM2 

I 

PAR 

0 

See  symbol 

/ AEC03  /( 

6) 

ACCEL 

0 

PDA 

* 

A0E03A 

I 

PDA 

0 

See  syubol 

/ AEC03  /{ 

15) 

ACCEL 

0 

PDPH 

A0E03A 

I 

PDPH 

P0Y3A 

0 

PDPH. 

. I 

Specific  fuel  consumption  (LBS/LB/HR) 

/ AI R BRE/t 

9 > 

ACCEL 

I 

SFC 

I 

Partial  of  SFC  URT  altitude. 

/AIRBRE/I 

6 ) 

ACCEL 

I 

SFCH 

I 

Partial  of  5FC  URT  velocity. 

/ AI  R BRE/( 

5) 

"ACCEL 

I 

SFCV 

FOHIRAN  HATH 

SYflBOL  SYMBOL 

S 1 DAE  s l n(  »-sE 
S J na  s t n« 


SINPHI  Sln^ 

T T 


TAIRBH 

TAIRBV 


code DESCRIPTION 

I Set  syaboi 
1 St*  $y*bo t 


I See  syaboi 

I Thrust  (LBS) 


1 Partial  of  airbreather  thrust  URT  altitude 

I Partial  of  airbreather  thrust  URT  velocity 

! Relative  velocity  ‘ CFT/SEC) 


SI  PR  ATE  SUBROUTINE  US  AG 
BLO«K  LOL  SUdh  LOOt  VAR 


/GENF  ,/< 

557)  ACCEL 

I 

SIOAE 

BL*i 

1 

SIOAE 

BLh 

I 

SI  DAE 

BL7 

1 

SIOAE 

BL8 

I 

SIOAE 

FH3 

I 

SIOAE 

VT 

0 

SIOAE 

/AEC03  /( 

7)  ACCEL 

•1 

SINA 

BLR 

I 

S1NA 

BLb 

I 

SINA 

BL7 

I 

SINA 

BL8 

I 

SINA 

FH3 

I 

SINA 

GUI  3A 

m 

SINA 

OUT 

i 

SINA 

VT 

m 

SINA 

/AEC03  /( 

12)  ACCEL 

i 

SINPHI 

BLR 

i 

SINPHI 

DODELA 

n 

SINPHI 

flODELB 

r> 

SINPHI 

OUT 

1 

SINPHI 

/GENF'  /( 

All  ) ACCEL 

I 

T 

blgcon 

n 

T 

BLR 

I 

T 

BL6 

1 

T 

BL7 

1 

T 

BL8 

I 

T 

EL2 

I 

T 

E3UA3 

0 

T 

FHl 

1 

T 

FH2 

1 

T 

FH3 

I 

T 

FH  H 

I 

T 

inPUL 

1 

T 

OUT 

1 

T 

PROPB 

0 

T 

PROPIN 

0 

T 

REU3 

0 

T 

SDER3 

I 

T-  • 

/AT  RBfiE/( 

3)  ACCEL 

I 

TAIRBH 

FHA 

1 

TAIRBH 

/AIRSRE/C 

2)  ACCEL 

1 

TAIRBV 

FHA 

1 

TAIRBV 

/STATE3/I 

1 ) ACCEL 

I 

V 

ADICB3 

0 

VAR 

ADJUST 

n 

VAR 

AGETB3 

0 

VAR 

AST3 

i 

VAR 

BLA 

i 

V 

BL7 

i 

V 

BLS 

i 

V 

C0N3 

i 

VAR 

DER3A 

i 

V 

DTE3 

i 

V 

ENVPRfi 

a 

VAR 

EBUA3 

i 

V 

MOOELA 

i 

V 

MODELA 

i 

VAR 

IRQ  DELB 

i 

V 

P1TX3A 

i 

VAR 

OUT 

i 

V 

OUT 

i 

VAR 

P08C 

i 

V 

PD/3A 

i 

V 

REU3 

n 

VAR 

AKTA3A 

n 

V 

STJ>3 

i 

VAR 

TOPH 

0 

KUOU 

YREF3 

n 

V 
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326 


t phi  ran 

SYiiBOl. 


OAIH 

5>nBOL 


COOE 


DESCRIPTION 


5 I OSAGE  S-JBPQ'JT  l-VE  USAGE 
BlUo*  n)C  iuiti  (.00 E VAR 


VGA 

av/a« 

0 See  syabol 

XK2A 

I Partial  of  governing 

vector  couponent 

equation 

X K2D 

I Partial  of  governing 

vector  component 

equation 

/ AEC03 

/( 

H ) 

ACCEL 

0 

VD  A 

A0EB3A 

I 

VOA 

nr  t 

state  or 

co  ntr  0 1' 

/GENE 

/( 

582  ) 

ACCEL 

I 

XK2A 

BLGCON 

I 

XX  2 A 

EL2 

0 

XK2  A 

• rt 

state  or 

control 

i GENE 

/( 

579  ) 

ACCEL 

I 

XK2D 

. 

BLGCON 

I 

X«D 

ELI 

a 

XK2D 

ELZ 

0 

XX2D 

30  OCT  72  G 01-V6 


ACCEL 


1. 

SUBROUTINE  ACCEL 

ACCEL 

2. 

C 

COBH 

3 

C 

CONFUTES  ACCELERATION  VECTOR  AND  ITS  PARTIALS 

COBH 

9 

C 

WITH 

RESPECT 

TO  STATE 

CO  bn 

5. 

C 

COBN 

6 

COBBON/GLOBAL/ 

GLOBAL 

7. 

♦ GR 

, ER 

,CN6Z 

XLAflRF 

, YrtURF 

, LUB 

GLOBAL 

8. 

*,JJOP< 101 

1FATAL 

.NARC 

, nbran 

,NF ARC 

,10(9) 

GLOBAL 

9. 

*,lUAB(20> 

, IT  A8( 20 

) , SI  G ,BAXTA& 

GLOBAL 

10. 

♦ , GB 

. PS JRF . 

IPFLG1 , IPFLG2, 1 PFLS3 . 

rIPFLS9,INE0FL(  20 ) 

GLOBAL 

11. 

*,  ITPSO  . KSOL 

KGLQBU8) 

RETAP 

12 

ConriQN/GENF/ 

6ENF 

13 

+onst  20) 

,0HGP(20,2),VARQ(9) 

,TOL( 9 ) 

-SVARt 10) 

WDC(  20  ) 

6EHF 

19 

*A( 9,9  > 

,AC0N(9>  . BCON(  9 ) 

,COTI( 9,9) 

DCONl  9 ) 

,OTP 

GEHF 

15 

•OTS 

,BT 

,G 

, DPSO 

,0 

GENF 

16. 

♦R 

,RE 

,nACH 

,PA 

,R0 

,CS 

GENF 

17 

♦vnu 

,PAR 

,R0fi 

, CSR 

, VNR 

,SUM5fl 

GEHF 

18 

»svso 

,TIBEPH 

,TlBES 

, TOP 

,T0S 

,TR(  9) 

GENF 

19. 

*T5T ( 20 ) 

,TPH 

( 20  >,DIS< 20 ) 

, 01  PC  20  ) 

,T 

GENF 

zo 

•1LPU20  1 

,TLS1 

120),D1PK20) 

,DI51<  20  ) 

,Ttne 

.oiip 

GENF 

21 

♦TIBPR 

.LIFT 

,DRAG 

.TAX 

,T8URN 

,TBU( 20 ) 

GENF 

22. 

*AE 

,PP 

,FPOLO 

, FPD 

,RACHR 

, MACHV 

GENF 

23. 

*QR 

,0Y 

,FVAC 

,LIFTY 

GENF 

29. 

♦LIFTR 

, LIFT* 

DRAGV 

, DR  AGR 

, DR AGA 

GENF 

25. 

* 

LIFT* 

'dbr 

,0  B 

,ISP 

,ISPF 

GENF 

26. 

• 

ULFT 

, ULFT V 

, ULFTR 

, ULFT  A 

GENF 

27 

♦xrcg 

, xbcgv 

,XOCGR 

,xnCGA 

, XHCGM 

, CO  DAE 

6ENF 

28 

♦CULFT 

,CT 

, CALPHA 

,COE 

, DELTAS 

,SI0 

GENF 

29. 

♦ COO 

, SI  DAE 

,XCG 

,2CG 

,XJ 

GENF 

30 

ccmnoN  t 

GENF  / 

GENF 

31 

*XJV 

, XJR 

,GH 

, GAnnAO 

,XK6 

,XKP 

GENF 

32 

♦FRATEO 

.IRATED 

GENF 

33. 

♦ PI 

,P2 

XKl 

. XK2 

, XK3 

GENF 

39. 

♦ XK1T 

, XK2T 

# XK3T 

, XK1D 

,XX20 

, XK3D 

GENF 

35 

*XK1  A 

, XX2A 

,XK3A 

,XK1V 

,XK2V 

,XK3V 

GENF 

36 

*XK1G 

, XK2G 

, XK36 

, XK1P 

,XK2P 

, XK3P 

GENF 

37 

• XK1R 

, XK2R 

,XK3R 

, XK10 

. XK20 

, XK30 

GENF 

38. 

*XK1U 

, XK2U 

,XK3U 

,xxin 

. XK2H 

,XK3B 

GENF 

39 

♦PV 

'PG 

.PP 

.PR 

,P0 

, DPDYC 3,8) 

GENF 

90. 

REAL  LIFTR  . LIFT  . LI  FT  A.  LI  FT  PI  . 

MACH, 

BACHR, 

GENF 

91. 

* ISP.  ISPF.  BACHV 

.LIFTW  . IRATED 

FRAT 

92. 

DIMENSION 

tP«l< 10  I.TSTlt 10 ) 

GENF 

93. 

EQUIVALENCE! TLP1, 

TPHl  ).t  TLS1 .TSTl > 

GENF 

99. 

COm0N/AECO3/ 

AEC03 

95 

*APHO 

, APRS 

-ALPHA 

, VDA 

, GDA 

, PDA 

AEC03 

96 

»SINA 

.COS  A 

,PHIO 

,PHI  0 

-PHI 

, SI  HP  HI 

AEC03 

97 

.COSPHI 

, GDPH 

,PDPH 

, XLAHA(  9 > 

. XLAMPt  9 ) 

,C00 

AEC03 

98. 

»CO0M 

, CLO 

,FX 

-XCGB 

, ICGM 

,CLOB 

AEC03 

99. 

»Cn 

,C«A 

-CMAM  -CAM 

,CBO 

,cmoh 

'fxb 

AEC03 

50 

»CLA« 

,CL 

,CLA 

,CL« 

f 

AEC03 

51. 

*co 

.COA 

, COM 

AEC03 

52 

common  /xcodes/ 

XCODES 

53 

»ITQ  (9),IC0R 

( 20  ),  I T i 

, ! NTB 

,JGIO(  20, 

2 ) . JPH  (20,2). 

XCODES 

59 

»JST  (20 > 

t NCN5T 

, NSB 

, NSAB 

, HI CNB 

XCODES 

55 

»I20P 

,ICOP 

, ifau 

, I FAR 

,IFB 

,IND 

XCODES 

56. 

*1  OPEN 

,IPH 

, I SPH 

, I SST 

, I ARC 

, 1ST  ART 

XCOOES 

57. 

•ITCT 

.ITER 

, I VAR 

,JK 

,JPS 

XCODES 

58. 

»KOP 

,KPST 

,K 

, KST 

.NAD 

,NCASE 

XCODES 

59. 

*NCN 

, NEQB 

,NEQ 

,NOP 

. NPH 

XCODES 

60. 

»NST 

, IPST 

, I PR I NT 

, I$TN 

, I P HN 

, I STHB 

XCODES 

61 

*IPHNB 

, IBLK1 

,1BLK2 

, 1ST0P 

, i stpp 

, L 

XCOOES 

62 

•IFOB 

, NB 

-LB 

.MB 

.NPHP 

,NPHB 

XCODES 

63 

»NCTIH 

.NEQF  . 

ILAB18). JPRP.JGlI .nTT.nPIN(20).JPi. 

JP2,  JP3 

XCODES 

69. 

C0nn0N/5TATE3/ 

STATE3D 

65 

♦VAR( 19) 

, DVAR 

( 19 ), VARL  (99) 

DVARLt  99  > 

,Y0( 9) 

, 5 VY< 10) 

; 

5TATE30 

66. 

*XL( 9 9 ) 

, YOP( 20 

,9). YDS  (20,9). 

. COS  GAM 

,SINGA« 

, S A VBP( 15) 

t 

STATE30 

67 

*S I NPSI 

.COSPSI 

,SINRH0 

, COSRHO 

, OCORHO 

,0CQR02 

STATE3D 

68. 

*SVBV  ( 9 ) . OMEGA 

,0BEGA2 

STATE3D 

69. 

*VDV 

,GDV 

,ROV 

'now 

,POV 

,00V 

STATE30 

70. 

»UDV 

, VDG 

,606 

,ROG 

, POG 

,006 

STATE30 

71. 

*UOS 

, VOR 

, gob 

,MBR 

, PDR 

,OOR 

STATE30 

72. 

*U0R 

,VD« 

,GD« 

,ndB 

,PD« 

, YDP 

5TATE30 

73. 

»GOP 

,PDP 

,ODP 

, UDP 

, VDO 

,GOO 

STATE3D 

79. 

•POO 

.UOO 

..HTOV 

, HTDR 

STATE30 

75. 

REAL  MDN 

, HOY,  HDR 

STATE3D 
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76 

77. 

78. 

79. 
8G 
81. 
82. 
83. 
89 

85. 

86. 
67. 


C0rtrtQN/STATE3/ 

•SIN2RQ  . C052R0  ,C0S2Grt 

EQUIVALENCE  CVAR(1>,V>  #(  VAR<2>,GArt)  .1  VAR(  3), ALT  1 ,<VAP.(9)#rt>  . 
*<  VARl 5 ),PSI),< VflR( 6 ),RH0  ).(  VAR<  7),rtU),(  VAR(  8),HT ) , { VAR( 9 ).SQ2 >, 
*1  D V Afi  ( 1 >,  VO  ),{  DVAR(  2>,SD),tDVAR<3),HD>,tQVAR{9),rtQi.<  DVAR(  5). PD), 
#(QVARt6>,0D),< DVAR(  7 1 UO  ) { DVAn(  8)HTD>,( DVAR<  9),SQ2D) 


real  n.nu.no 
COtinOK/  AXL/ 


*AV 

,AS 

/ AP 

,Art 

, AVV 

. AGV 

. APV 

*ARS 

. A VP 

, AGP 

, APP 

,A«P 

,AVR 

, AGR 

*APO  .AP1D 
DIMENSION 

, AVU 
AY(  1) 

, AGU 

,APU 

,A«U 

, AVfl 

,ahv 

fapr 


,AVG 

,ArtR 

,ap« 


, AGG 
, AVO 


. APG 
, AGO 


STATE3D 
STATE3D 
E0UV3 
EQUV3 
EQUV3 
E0UV3 
E8UV3 
AXL 
AXL 
AXL 
AXL 
AXL 


88. 

EQUIVALENCE  l AY , AVV ) 

AXL 

89. 

DIMENSION  AUl 121,AV1BP<28» 

ACCEL 

90. 

EOUI  VALENCE  IAVT,«U(  1)  ),  ( AVD,  AUl  5 ) >,  ( AVA,  AU{  5 > ) . < AST , AU(  2 ) >, 

ACCEL 

91. 

. ( AGO,  AUl  6)  ),(  ASA.  AH[  10  ) 1.  ( APT . »U[  3 1 ).(  APD,  AW(  ?1 1 . ( APA,  AU(  11)), 

ACCEL 

92. 

*( AflT,AUl 91) 

ACCEL 

93. 

DATA  AW/ 12*0 ./ 

ACCEL 

99. 

COrtflON/AIRBRE/  TA1RB,  TAIRBV, TAI RBH . SFC.5FCV,  5FCH 

FIXED 

95. 

C 

1 PRELiniNARV  COrtPUTATION 

COrtN 

96. 

TCOAE  = T*CODAE 

ACCEL 

97. 

TSOAE  = T*$IDAE 

ACCEL 

98. 

OBCA  ‘ OB* COS A 

ACCEL 

99. 

DBSA  = 08*SINA 

ACCEL 

100 

6EI5P  = 6R*ISP 

ACCEL 

101. 

AV  = ( TCDAE  “ OBCA  - DRA61/H 

ACCEL 

102. 

Art-0. 

P019 

103. 

C 

A1RBREATHER 

FIXED 

109 

IF( JPR0.NE.21  GO  TO  10 

FIXED 

105. 

Art=-SFC*T/3600./GH 

JULY28 

106. 

GO  TO  12 

FIXED 

107. 

10 

CONTINUE 

FIXED 

108. 

1F( JPRP . GT  1)  AH=-FVAC/6EISP 

P019 

109. 

12 

CONTINUE 

FIXED 

110. 

IFUGII  EO  8)  GO  TO  NO 

ACCEL 

111. 

C 

11  TEST  FOR  VERTICAL  RISE  OR  PITCHOVER 

COrtN 

112. 

A*  = (TSOAE  - DBS  A + LIFT  >/R 

ACCEL 

113. 

AS  = AX.COSPHI 

ACCEL 

119. 

AP  = AX.SINPK1 

ACCEL 

115. 

GO  TO  N5 

ACCEL 

116. 

90 

*6=0. 

ACCEL 

117 

AP=0. 

ACCEL 

118 

C 

Ill  IP  FORWARD  TRAJECTORY  RETURN 

COrtN 

119 

95 

1F(  IFoa.EB.l  ) RETURN 

ACCEL 

120. 

DO  <IS  1=1,28 

ACCEL 

121. 

96 

AY(I)=  9. 

ACCEL 

122. 

OBRCA  = BBR.COSA 

ACCEL 

123. 

OBRSA  = OBR.SINA 

ACCEL 

129. 

C 

IV  ...  ...  ... 

COrtN 

125. 

C 

COrtP UTE  THE  EXPLICIT  FIRST  PARTI ALS  OF  THE  A-VECTOR  WITH  RESPECT 

ACCEL 

1 Z6. 

c 

TO  THE  STATE  AND  DECISION  VECTORS. 

ACCEL 

127. 

51 

AYV  = -ORAGY/fl 

ACCEL 

128 

AVR  = ( -OBRCA  - 0RAGR1/N 

ACCEL 

129 

AVIN  = -AV/H 

ACCEL 

130. 

I Ft AH.EO  0. 1 GO  TO  53 

P019 

131. 

IF(JPR0.NE.2>  GO  TO  52 

FIXED 

132. 

A PIT  = -SFC/3600./GR 

JULV28 

133. 

ADR  = ANT.TAIRBH  - T.SFCHV6H/360B. 

JULY28 

139. 

AP1V  = AP1T.TAIRBV  - T.SFCV/Gfi/3600. 

JULY 28 

135. 

GO  TO  51 

FIXED 

136. 

52 

CONTINUE 

FIXEO 

137. 

AHT  =-( 1 . - I5PF*FVAC/I$P 1/GE15P 

ACCEL 

138. 

AP1R  = AE*PAR*ArtT 

ACCEL 

139. 

GO  TO  59 

P019 

190. 

53 

A«T=0. 

P01M 

191 

A«R=0. 

P019 

192. 

5*i 

CONTINUE 

P019 

193. 

AVT  = CODAE/rt 

ACCEL 

199 

AVO  =•  TSDAE/rt 

ACCEL 

195. 

AVA  = (-TSOAE  + OSSA  - DR AGA  >/rt 

ACCEL 

196. 

c 

V SKIP  ON  VERTICAL  RISE  OR  PITCHOVER 

COrtN 

197. 

If ( J GI I EQ. 6 ) GO  TO  103 

ACCEL 

90 


95-ii 


53 


159- 
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103— | 


j L- yj 


1 98. 

AXtf 

= LIFTV/rt 

ACCEL 

199. 

AXR 

= C-OBflSA  « LIFTM/H 

ACCEL 

150. 

Ain 

= { LIFT*  - AX)/S 

ACCEL 

151 

ASV 

= AXV4CG5PHI 

ACCEL 

152. 

AGR 

= AXFUCQSPHl 

ACCEL 

153. 

ASM 

= AX«*C0$PHI 

ACCEL 

154. 

APta 

= AXV*SINPHI 

ACCEL 

155. 

APR 

= AXR*$INPht 

ACCEL 

156. 

AP* 

= A*n*SIWPHI 

ACCEL 

157. 

AXT 

- SXOAE/H 

ACCEL 

158. 

AXD 

=-!COAE/« 

ACCEL 

159, 

AXA 

= { TCBAE  - DBCA  ♦ LIFTA1/W 

ACCEL 

160. 

ACT 

= AXT*COSPHI 

ACCEL 

161. 

AGO 

= AXO*COSPHI 

ACCEL 

162. 

AGA 

= AXA«C0SPH1 

ACCEL 

163. 

APT 

- AXTfSlNPHI 

ACCEL 

164. 

APO 

= AX0*$INPWI 

ACCEL 

1165. 

AFA 

= AX A*S1 NPHI 

ACCEL 

166. 

c 

VI 

COrtW 

167, 

C 

FIRST  PAHTIAL5  OF  THE  A-VECTBR  UITH  RESPECT  TO  THE  STATE. 

ACCEL 

168. 

103  CALL  MATRLTl  AVIHP , AWT. DPDY.9. 3. 7 ) 

ACCEL 

169. 

c 

VII 

««• 

COHN 

170. 

171. 

172. 

173. 

174. 

175. 

176. 

177. 

178. 

179. 

180. 


COMPUTE  THE  TOTAL  FIRST  PARTI ALS  OF  THE  A-VECTOR  UlTH  RE5PECT  TO 
THE  STATE. 


10*|  CALL  MAT ADOIAVV, AVtf.AVI 7) 

PARTI ALS  WITH  RESPECT  TO  CONTROL 
VDA-AVA-AVD*XlC2A/Xl£2D 
£DA=l  AGA-A8D*XX2A/JtH20)/  U 
PDA=t  AP A~AP0»XX2A/XK2D >/<  V*C0SGA*1 
GDPH=-AP/V 
PQPH=AS/C V*C056Art) 

RETURN 

END 


ACCEL 

ACCEL 

ACCEL 

COHN 

ACCEL 

ACCEL 

ACCEL 

ACCEL 

ACCEL 

ACCEL 

ACCEL 
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Subroutine  ADEQ3A 


Entry  Point.  AD13Q 


Purpose 

ADEQ3A  computes  the  derivatives  of  the  adjoint  differential  equations  as 
expressed  in  equations  (12.  3-3)  through  (12,  3-8)'  m Volume  X.  It  also 
supplies  the  integrands  of  the  upper  triangular  portion  of  the  A matrix 
as  given  in  equation  (12.  1-20).  These,  of  course,  contain  functions  of  the 
impulse  response  function  as  defined  in  equation  (11.  1 — 1 6 ) . 

Description 

This  routine  is  called  from  BNTG. 


233 


HATH 

SYrn^Qi 


code  DESCRIPTION 


O Control  Integral  aatrla 


STi)Ra..t  SUBBOUT  IMF  USAGE 

BLOCK  LOC  bUBH  LODE  VBfl 


/GENF  /( 


109)  ADE03A  0 
ADI  CBS  (9 
BGET3  0 
BNTG  I 
BST03  1 
FIT  X 3A  1 
P AV02  I 
SO  I NP  I 
TRAN3  I 


DVARL 

0 

Array  of 

dtr 1 v at i yes 

for  ad  jo  1 nt 

integration 

7STATE3/C 

128) 

AOE03A 
AD  1 CB3 
A01C3A 

0 

Q 

DVARL 

DVARL 

DVARL 

D 

RKTB3A 

I 

DY 

GDA 

a>/a<* 

i 

See  synbol 

/AEC03  /( 

5 ) 

ACCEL 

ADE03A 

0 

1 

GDA 

GOA 

GDG 

i 

Partial 

derivative 

of 

equation 

of 

Motion 

URT 

state 

/STATE3/I 

729  ) 

A0EQ3A 

I 

GCG 

POV3A 

0 

GOG 

GDP) 

i 

Partial 

der i vat  t ve 

of 

equation 

0 f 

notion 

URT 

state 

/STRTE3/( 

791  1 

A0EQ3A 

I 

Gon 

PDY3A 

0 

GDPI 

GDO 

i 

Part  1 a 1 

derivative 

of 

equation 

of 

notion 

URT 

state 

/STATE3/T 

750) 

ADE03A 

J 

GDO 

PDY3A 

0 

GDO 

GDP 

i 

Parti  al 

der i vat | ve 

of 

equation 

of 

notion 

URT 

state 

/STATE3/< 

795  ) 

ADEQ3A 

1 

GDP 

PDY3A 

0 

GOP 

GDPH 

a?/  d <> 

i 

See  sysbal 

/AEC03  /( 

19  ) 

ACCEL 

ADEQ3A 

0 

I 

GDPH 

GDPH 

POY3A 

0 

GDPH 

GOR 

i 

Partial 

der  i y at i ve 

of 

equation 

of 

notion 

URT 

st  ate 

/STATE3/< 

735  ) 

ADEQ3A 

I 

GOR 

P0Y3A 

0 

SDR 

GDV 

i 

Part  i a 1 

derivative 

of 

equation 

of 

■ot I o n 

URT 

state 

/ST  A.TE3/  ( 

722) 

ADED3A 

1 

GDV 

PDY3A 

0 

BDV 

HTDR 

i 

Partial 

der i vat i ve 

of 

equation 

of 

notion 

URT 

state 

/STATE3/T 

759) 

A0E03A 

1 

HTDR 

PDY3A 

0 

HTDR 

HTDV 

i 

Parti  a 1 

derivative 

of 

equat i on 

of 

notion 

URT 

state 

/STATE3/T 

753  ) 

ADE83A 

I 

HTD  V 

PDY3A 

0 

HTDV 

LB 

i 

First  eieneftt  number 

in  partitioned  d¥  vector 

/ XCODES / ( 

180  1 

AOE03A 

I 

LB 

A0ICB3 

0 

LB 

ADIC3A 

n 

NN 

FIB 

i 

Last  e I c 

■ ent  nu  caber 

■ in  partitioned  d’P  vector 

/XC00ES/< 

181  ) 

ADEQ3A 

1 

FIB 

ADICB3 

0 

FIB 

ADIC3A 

0 

FIB 

non 

i 

P >r  1 1 a 1 

der i vat i ve 

o f 

e q uat i o n 

of 

notion 

URT 

state 

/ ST  ATE3/( 

792) 

ADES3A 

i 

FIDFI 

P0Y3A 

0 

non 

MOR 

i 

Parti  a 1 

der i vat i ve 

of 

equation 

0 f 

notion 

URT 

state 

/STATE3/I 

736) 

A0E03A 

I 

FIOR 

PDY3A 

0 

FIDR 

FID  V 

i 

Parti al 

der i vat  1 ve 

of 

equation 

of 

notion 

URT 

state 

/STATE3/T 

729  ) 

ADE03A 

I 

FID  V 

PDY3A 

0 

F1DV 

MB 

i 

Extent  of  integration 

set  dur i i 

ng 

adjoint: 

s on 

branch 

/XC0DE5/( 

179  ) 

ADE03A 

1 

NB 

pr ob  lea 

ADICB3 

n 

NB 

ADI C3A 

FI 

NB 

BNTG 

0 

NB 

RKTB3A 

1 

NB 

STVHL3 

I 

NB 
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rone  DESCRIPTION 


I Nunber  of  elements  in  dt 


S MIRAGE  5‘JHmlUTINE  USAGE 

B Liit.K  LOC  5Ut)H  LODE  VAR 


avJ'/ao. 


dHdt 


Partial  derivative  of  equation  of 
Partial  derivative  of  equation  of 
Partial  derivative  of  equation  of 
Partial  derivative  of  equation  of 
See  synboi 

Partial  derivative  of  equation  of 
Partial  derivative  of  equation  of 
Partial  derivative  of  equation  of 
Partial  derivative  of  equation  of 
See  synbol 

Partial  derivative  of  equation  of 
Partial  derivative  of  equation  of 
Partial  derivative  of  equation  of 
Partial  derivative  of  equation  of 
Partial  derivative  of  equation  of 
Partial  derivative  of  equation  of 
Partial  derivative  of  equotion  of 
Partial  derivative  of  equation  of 
Partial  derivative  of  equation  of 
Array  of  variables  for  adjoint  in 


/ XC0DE5/< 

160  ) 

ADE03A 

I 

NCN 

ADIC83 

I 

NCN 

ADI C3A 

I 

NCN 

ADI D3A 

I 

NCN 

ADJUST 

I 

NCN 

AST3 

m 

NCN 

BNTG 

I 

NCN 

BST03 

I 

NCN 

PIT  *3  A 

I 

NCN 

OUT 

I 

NCN 

PAV02 

n 

NCN 

TEST 

n 

NCN 

TOPM 

1 

NCN 

TRAN3 

1 

NCN 

TRTOSZ 

1 

NCN 

of 

□otton 

URT 

s t at  e 

/STATE3/C 

732  ) 

AOE03A 

I 

ODE 

PDY3A 

0 

ODE 

of 

Motion 

URT 

state 

/ST  ATE3/1 

79  7) 

ADEQ3A 

i 

OOP 

PQY3A 

0 

OOP 

of 

do  1 1 o n 

URT 

state 

/ST  ATE3/( 

738  ) 

ADE03A 

I 

ODR 

PDY3A 

0 

ODR 

of 

action 

URT 

state 

/STATE3/< 

726  ) 

ADE03A 

I 

ODV 

PDY3A 

n 

ODV 

/ AEC03  /{ 

6) 

ACCEL 

0 

PDA 

ADE03A 

i 

PDA 

of 

notion 

URT 

state 

/STAT£3/( 

731  ) 

ADEB  3 A 

i 

PDG 

PDY3A 

Q 

POG 

of 

act i o n 

URT 

state 

/ST  ATE3/I 

793  ) 

ADE33A 

I 

POP) 

PDY3A 

0 

P DR 

of 

notion 

URT 

s t at  e 

/STATE3 /< 

751  > 

ADEQ3A 

1 

P DO 

PDY3A 

0 

POO 

of 

notion 

WRT 

state 

/5TATE3/( 

796  ) 

ADE33A 

I 

POP 

PDY3A 

0 

POP 

/ AEC03  /( 

15  ) 

ACCEL 

0 

POPH 

ADE33A 

I 

POPH 

P0Y3A 

0 

PDPH 

of 

notion 

URT 

state 

/ST  ATE3/( 

737  ) 

ADE03A 

1 

PDR 

PDY3A 

0 

PDR 

of 

so 1 1 on 

URT 

state 

/STATE3/< 

725  ) 

ADES3A 

1 

PDV 

FQY3A 

0 

POV 

of 

notion 

URT 

state 

/STATE3/< 

730  ) 

A0EQ3A 

I 

ROG 

POY3A 

0 

ROE 

of 

action 

URT 

state 

/ ST  ATE3/< 

723  ) 

ADE03A 

I 

RDV 

PDY3A 

0 

RDV 

of 

mo  1 1 o n 

URT 

state 

/ST  AT£3/< 

733  ) 

A0E03A 

I 

UOG 

P0Y3A 

0 

UDG 

of 

wot i o n 

URT 

state 

/STATE3/C 

752) 

A0EQ3A 

I 

UDO 

PDY3A 

0 

UDO 

0 f 

Motion 

URT 

state 

/ST  ATE3/C 

798  ) 

ADEQ3A 

I 

UDP 

PDY3A 

0 

UDP 

of 

notion 

URT 

state 

/5TATE3/{ 

739) 

ADE03A 

I 

UDR 

PDY3A 

n 

UDR 

of 

not  i^o  n 

URT 

s t at  e 

/STATE3/C 

727  ) 

ADEQ3A 

i 

UDV 

PDY3A 

n 

UDY 

i nt ear  at i o n 

/STATE3/( 

29  ) 

ADE93A 

i 

VARL 

ADi C83 

0 

VARL 

ADI C3A 

a 

VARL 

P flDP I N 

i 

Zl 

RKTA3A 

n 

F 

RKTR3A 

n 

Y 

STYRL3 

0 

VARL 

TRAN3 

it 

VARL 
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Z34r 


I OH l HAN 
SYPHIOl 


II A 1 H 
SVPlHOl 


CODE 


DESCRIPTION 


SOAR  CODE  VAR 


STORAGE 
BLOCK  ‘LOC 


VO  A 

I 

Se*  symbol 

/AEC03  /( 

H ) 

ACCEL 

0 

VOA 

ADE03A 

I 

VDA 

VOG 

! 

Partial  derivative  of  equation  of  notion  URT  state 

/STATE3/( 

728  ) 

A0E03A 

I 

VDG 

PDV3A 

0 

VOG 

von 

I 

Partial  derivative  of  equation  of  notion  URT  state 

/ST  ATE3/T 

7 HO  ) 

A0EQ3A 

r 

VDO 

PDY3A 

0 

von 

voo 

I 

Partial  derivative  of  equation  of  notion  URT  state 

/STATE3/< 

7H9  ) 

AQEQ.3A 

i 

VDO 

PDY3A 

0 

VDO 

VDP 

I 

Partial  derivative  of  equation  of  notion  URT  state 

/STATE3/T 

799  ) 

A0E83A 

I 

VDP 

PDV3A 

0 

VDP 

VDR 

I 

Partial  derivative  of  equation  of  notion  URT  state 

/STATE3/C 

739) 

A0EQ3A 

I 

VDR 

PQV3A 

0 

VDR 

vov 

I 

Partial  derivative  of  equation  of  notion  URT  state 

/5TATE3/T 

721  ) 

ADEQ3A 

1 

VDV 

P0V3A 

0 

VDV 

CORK 

I 

Uorklng  array,  contains  TQPEN1,  T0PEN2,  and  PHIWT 

/STS  /< 

3 > 

ADE03A 

i 

CORK 

FNTG 

i 

CORK 

HODELB 

0 

CORK 

PITX3A 

i 

WORK 

5DINP 

« 

WORK 

TEST 

n 

WORK 

XU 

n 

ftatrlx  of  adjoint  variables 

/STATE3/T 

296) 

ADE03A 

pi 

XU 

X ' j 

ADICB3 

N 

XU 

ADIC3A 

R 

XL 

AGID3A 

N 

XU 

AST3 

fl 

XL 

BGET3 

0 

XL 

BST03 

I 

XL 

PITX3A 

I 

XL 

OUT 

I 

XL 

STAU 

(1 

XL 

STVRL3 

I 

XL 

TRAN3 

IT 

XL 

XLAPIA 

N 

Inpulse  response  function  colunn  vector  associated 

/ AEC03  /( 

16  > 

ADE33A 

n 

XLAPIA 

A ' j 

nith  angle  of  attack 

AD1C3A 

0 

XLAP1A 

AST3 

0 

XLAPIA 

BGET3 

0 

XLAPIA 

B5TQ3 

ra 

XLAPIA 

PITX3A 

I 

XLAPIA 

TRAN3 

pi 

XLAPIA 

XLAPIP 

n 

Inpulse  response  function  colunn  vector  associated 

/AEC03  /( 

25  ) 

ADE03A 

PI 

XLAilP 

A ' -1 

pith  bank  angle 

ADIC3A 

0 

XLAPIP 

AST3 

0 

XLAPIP 

BGET3 

0 

XLAPIP 

BST03 

PI 

XLAPIP 

PITX3A 

I 

XLAPIP 

TRAN3 

PI 

XLAPIP 
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A0EQ3A 


1.  SUBROUTINE  ADEQ3 A AOE83A 

2.  C COMPUTE  DERIVATIVES  OF  ADJOINT  DIFFERENTIAL  EQUATIONS  COM* 

3.  C ALSO  IMPULSE  RESFONSE  FUNCTIONS  COHN 

9.  C AND  INTEGRANDS  OF  CONTROL  INTEGRALS  (A  MATRIX  I COMM 

5.  COMMON/STS/  STS 


6. 

♦ DPAY 

, P Ml  N 

UQRX  ( 20 > 

.NUOS 

.IPC  (7), NITER 

STS 

7 

*flNGA(  20 

. 2 ) . PJNGPt  20.2 

, AR(  200  ), 

1 ADI  20  ) . iNPi  20  > . 1 5Y< 

20) 

STS 

8 

COMMON /ST AT £3/ 

STATE30 

9 

*VAR< 19  ) 

-OVAR  (19) 

,VARL  (99) 

OV ARLC 99  ) 

,YQ( 9 > 

,SVV(  10  ) 

STATE3D 

10. 

♦ XL(  9.9) 

,YDP< 20,9), 

VOS  (20,9) 

,COSGAp» 

,SINGAM 

.SAV&PU5)  . 

STATE3D 

11. 

♦SINPS1 

,C05PS1 

5INRH0 

, COSRHO 

,OCQRHO 

, OCOR02 

STATE3D 

12 

*5  VBV 

(9), OMEGA 

.0MEGA2 

STATE3D 

13. 

♦vov 

,SOV 

,RDV 

.MOV 

,POV 

, ODV 

STATE3D 

19. 

♦ UDV 

, VOG 

,GD6 

,RDG 

,PD6 

,ODG 

STATE3D 

15. 

♦ UDG 

, VDR 

,GOR 

,«0R 

,PDR 

,ODR 

STATE3B 

16. 

♦ UDR 

. VOM 

,GOM 

,HOM 

,PDH 

, VDP 

ST  AT  630 

17. 

♦ GDP 

.POP 

,ODP 

,UDP 

,voo 

,600 

STATE3D 

18. 

♦ POO 

. UDO 

,HTOV 

, HTDR 

5TATE3D 

19. 

REAL  HDM  , MOV,  MDR 

STATE3D 

20 

COMMON/ST  ATE3/ 

STATE3D 

21 

♦SIN2R0 

. COS2HO 

,C052GM 

STATE30 

22. 

COMMON/ AEC03 / 

AEC83 

23 

♦ APHO 

. APHR 

, ALPHA 

, VDA 

,6DA 

.PDA 

AECD3 

29 

♦ SINA 

,COSA 

,PHIO 

,PHID 

,PHI 

, SINPHI 

AECQ3 

25 

♦COSPHI 

, GDPH 

,POPH 

,XLAMA(  9) 

,XLAMP(  9) 

,C00 

AEC03 

26 

♦ CDOM 

, CLO 

,FK 

, XCGR 

, ZCGM 

,CLO« 

AEC03 

27 

♦ CM 

, CMA 

, CMAH  .CAM 

,CHO 

,cmom 

,FKM 

AEC03 

28 

♦ CLAM 

,CL 

, CLA 

, CLM 

, 

AEC83 

29. 

♦ CO 

, CDA 

, COM 

AEC03 

30. 

COMMON 

/XCODES/ 

XCOOES 

31 

♦ ITO 

( 9 >,  I COR  (20) 

,1T1 

, INIB 

, JG!0( 20. 

2).JFH  CZC.Z), 

XCODES 

32 

♦ JST  (20) 

, NCNST 

,NSB 

,NSAB 

, N1CNB 

XCODES 

33. 

♦ I20P 

,ICOP 

, IFAN 

,IFAR 

,IFB 

, 1 NO 

M 

XCODES 

39. 

♦IOPEN 

, IPH 

, ISPH 

, ISST 

, I ABC 

.1ST ART 

XCODES 

35 

♦ ITCT 

, ITER 

, I VAR 

,JK 

,JPS 

,JS 

XCODES 

36. 

♦ KOP 

, KPST 

, XST 

,NAO 

, NCASE 

t 

XCODES 

37. 

36 

39. 

NO. 

91 

Hi. 

H3 

HH 

95 . 

96. 

97 . 

98. 

99. 
SO 

51. 

52. 

53. 
59 
55. 
56 
57. 

58 

59 

60 
61. 
62 
63 
69. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72 

73 
79 
75 


♦ NON 
♦NST 
♦IPHNB 

♦ IFOB 


,NEQB 
, 1PST 
, 1 B LIC 1 


,NEQ 
,IPRINT 
, IBLX2 


,NOP 
, ISTN 
,ISTOP 
MB 


,NPH 

,IPHN 

,ISTP|» 

,NPHP 


,ISTNB 

A 

,NPHB 


NCTIN  'nEOF  , ILA&( 8>,JPRP,J8fl,MTT,flPIN(20),JPl,Jp£,JP3 
COtnnON/GENF/ 


XCODES 

XCQDES 

XCODES 

XCODES 

XCODES 

GENF 


♦ OMGt  20  1 

,0NGPC20 

,2 ), VARQC  9 ) 

,TQL(  9 ) 

,SVAR{ 10) 

,UDC(20) 

6ENF 

*A(  9,9) 

,&C0N<9> 

, BCON( 9 ) 

,C0T1( 9,91 

,DCON( 9 ) 

,OTP 

6ENF 

♦DTS 

*0T 

,OPSO 

,Q 

,0S 

6ENF 

♦R 

,RE 

MACH 

,PA 

,R0 

,CS 

6ENF 

♦ VNU 

.PAR 

,ROR 

,CSR 

, VNR 

SUMSQ 

GENF 

♦SV5Q 

.T1REPH 

.TIMES 

,TOP 

,TOS 

,TR( 9 ) 

SENF 

♦TST12G  I 

,TPH  ( 20 ) .DISC  20 ) 

,OIP( 20 ) 

,T 

SENF 

♦TLPl(ZO) 

/TLSl  < 

20 ) OIPH 20 ) 

,0IS1(20) 

,TI«E 

,OMP 

SENF 

♦TIMPR 

,uft 

.DRAG 

.TAX 

,T  BURN 

,TBU( 20) 

GENF 

♦AE 

,FP 

, FPOLD 

,FPO 

, MACHR 

, MACH V 

SENF 

♦QR 

,0V 

,FVAC 

, LIFTV 

, 

GENF 

♦LIFTR 

,UFTA 

ORAGV 

,DRAGR 

.0RA6A 

GENF 

» 

UFTN 

OBR 

,DB 

,1SP 

,ISPF 

SENF 

* 

ULFT 

.ULFTV 

, ULFTfl 

,ULFTA 

GENF 

♦ XrtCG 

-XHCGV 

, XMCGR 

, XMC&A 

, XMCGM 

. CO  DAE 

GENF 

♦CULFT 

'CT 

, CALPHA 

, COE 

, DELTAE 

,SID 

GENF 

♦COO 

,5 1 DAE 

, XCG 

,ZC6 

,XJ 

GENF 

COMMON  / 

SEHF  / 

GENF 

*XJV 

, XJR 

,GH 

, GAMMAD 

, XX6 

,XXP 

-SENF 

♦FRATED 

, IRATED 

GENF 

*P1 

,vz 

>3 

,XX1 

, XK2 

,XX3 

GENF 

♦ XK1T 

■ XK2T 

XX3T 

, XX1D 

, XK2D 

, XX3D 

6ENF 

*XK  1 A 

, XK2A 

, XX3A 

,XX1V 

, XK2V 

, XX3  V 

GENF 

♦ XK1G 

, XK2G 

, XK3G 

,XX1P 

, XK2P 

, XX3P 

SENF 

♦ XX 1R 

XK2R 

XK3R 

,XK10 

, XK2Q 

XX  30 

SENF 

♦ XK1U 

, XK2U 

, XK3U 

, XX1M 

, XX2M 

, XX3M 

SENF 

»PV 

... 

_,PR 

,P0 

,0PDV(3,8) 

GENF 

-tnw  , u.r.  , LIFTA.LIFTM  _ 

* ISP,  ISPF,  [1ACHV,LIFTV  , I RATED 
DIMENSION  TPHK  10  ),TSTI(  10) 

EQUI VALENCEC  TLP1 ,TrHl)(TLSl,TSTl) 
EQUIVALENCE  C UORXU  t ),  CrtULT  ) 

ENTRY  AOEQ 


MACH,  HACHB, 


6ENF 

FRAT 

GENE 

6ENF 

A0E33  A 

ABED3A 


20  OCT  72  G 01-96 


236 


u> 

C 

1 SET  RANGE  OP  INTEGRATION  ARP AV 

COriN 

77 

J J =NB 

A0EQ3A 

78. 

1 1 =NB-1 

A0E03A 

79 

c 

11  STORE  AOJOINT  OERIV.  IN  INTEGRATION  ARRAY 

CO  ON 

80. 

DO  20  t=L6,H» 

ABE03A 

81 

DO  10  J = t,4 

ADE03A 

82 

XL(J,1)=VARLIJJ> 

ADE03A 

83 

10  JJ  =J J. 1 

ADEQ3A 

89. 

0VARU1I*1>=  -t  XU  1,1  LVOV*  XU2,i)»GDV*  XLI  3,1  )*ROV*XL(  N,  I )* 

ADEQ3A 

85 

ihov*  xl(5,1)»pov*  xl(6,i)*oov*  xu7,n*uov+  xl  i8,ii»htov) 

ADEQ3A 

86 

OVARLI  1 1 +2  )=  -I  XU1,11«V0G*  XLI2,1)*GDS+  XU  3,  I )*RBS*XU  5,  I >• 

PD 

A0E33A 

87 

1G+XLI 6,1 >*OBG*  XL!  7 , 1 )*UCG 1 

AQE03A 

88. 

DVARLlh*3)=  -IXLU.Il*  VCR*  XU2,I>»GDR*  XU  H,  I )*mDR  + XU  5,  l>» 

P 

ADE03A 

89. 

»DR  ♦ XL(6,I)*0DR  * XL<T,11*U0R  *XL<  8 . 1 )*  HT  OR  > 

P01H 

90 

ovarliii+h)=  -txui.n*  von*  xu2.n»6Dfl*xuN.n*H0H+xu5.i>*P0H) 

A0E93A 

91 

DVARUII+5)  = -t  XL(  1,1  )*VDP+  XL!  2,1  )*G0P  + XL15,I  )»PDP  + XU6, 1 >» 

OD 

ADE03A 

92. 

IP*  XU7,I)»UDP) 

ADEQ3A 

93. 

DVARU  1 1*6  1 = -I  XU  1,1  >»V00*  IU2. 11*500*  XU  5,  I )*P00*XLI  T , 1 ). 

UD 

ADEQ3A 

99. 

10) 

ADE03A 

95. 

c 

HI  COMPUTE  IHPULSE  RESPONSE  FUNCTIONS 

COHN 

96 

XLArtAI  I > = -(  XL(  1,1  ) »VDA+XL(2,I  ).S0A*XU5,I  ).POA> 

ADE03A 

97. 

XLAHPI  I )=-tXU  2,1  )*GCPH*XL15,S  )»ADPH> 

ADC  Q 3 A 

98. 

20  11=11*6 

ADE93A 

99. 

c 

Ilt-A  A flATRIX  INTEGRANDS 

COHN 

100 

DO  NO  111  = 1,  NCN 

ADEQ3A 

101. 

NI  = HI 

ADE03A 

102. 

C=l. 

ADEQ3A 

103. 

c 

IV  SET  BRANCH  CONSTRAINT  ELEHENTS  TO  ZERO  AS  APPROPRIATE 

COHN 

109. 

IFIMI.LT  LB. OR  ftI.ST.HB)  C=0. 

ADE03A 

105 

XLANAI HI  )=XLAHAI  HI  )»C 

A0E03A 

106. 

XLAHP(HI)  = XLAHPI  HI  )*C 

A0E33A 

107. 

DO  30  HJ=1,NI 

ADEQ3A 

108. 

11  = II+l 

ADEQ3A 

109. 

AIHJ.PII)  = VARLUII.C 

ADEQ3A 

110. 

DVARL(II)  = XLAHA(NI)  .XLAHAtHJ)*  CHULT 

ADEQ3A 

111. 

1 + XLAHPI  HI  )»  XLAHPI  HJ) 

ADEQ3A 

112. 

2 * UORKI 10 > 

A0E03A 

113. 

30  CONTINUE 

AQEQ3A 

119. 

HO  CONTINUE 

ADE03A 

115. 

RETURN 

A0EQ3A 

116. 

END 

ADEQ3A 
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SUBR0UTINE 

ADICB3 


ZSQ 


Subroutine  ADICB3 


Purpose 

This  subroutine  performs  calculations  of  adjoint  discontinuities  and 
initializations  for  branched  and  intermediate  constraint  problems.  It 
contains  3 entry  points,  ADI3B,  ADICB,  and  ADI2B.  These  entry  points 
arc  explained  below  with  cross  reference  to  equations  in  Volume  I and 
Roman  numeral  comments  in  the  subroutine  listing. 


De  sc  ription 


I 

I- A 
I-B 


II 

and 

III 


.IV 


Branch  point  approached  from  Branch  3.  (Entry  ADI3B) 

Save  A matrix  at  this  corner  , point  to  permit  restoration  of 
complete  matrix  on  trunk. 

Reset  time  and  state  to  end  of  branch.  This  will  permit  initiation 
of  adjoint  integration  from  end  of  branch  2. 

Adjoint  initial  conditions  are  calculated  to  initiate  Branch  2 and 
integration.  The  equation  for  the  adjoint  initial  condition  is 
(11  3-2). 

At  intermediate  arc  constraint  (ENTRY  ADICB) 

This  entry  point  sets  up  necessary  data  for  initializing  adjoints  at 
end  of  intermediate  constraint  arc.  Logic  then  proceeds  to  II  and 
III  where  the  initialization  equation  corresponding  to  (11.4-3)  is 
computed. 


The  entry  point  in  this  routine  is  called  from  BNTG. 


339 


KJR1RAN  maim 

SYMBOL  5YMR0L 

A A 

C0T1 

OFO  y 

OVAR  ' 

DVARL 

1ARC 


ISKP 
I TO 

JS 


cm DESCRIPTION 

M Control  Integral  Matrix 

M T e «p  storage  tor  a Matrix  also  called  B Matrix 
U Rate  pt  change  of  constraint 

FI  State  vector  derivatives  in  steepest  descent  nodule 


0 Array  of  derivatives  for  adjoint  integration 

1 Arc  nuaber 


U Flag  to  stop  redundant  coaputation  in  subroutine 

poac 

1 Constraint  option  code  (internal) 

IT  Absolute  value  of  arc  cut-off  option  code 


5 TilRABE  SUBROUTINE  USARI 

block  loc  subr  code  var 


/ GENF  /< 

i 09  ) 

A0E03A 

0 

A 

AO  I CB3 

M 

A 

BGET3 

D 

A 

8NTG 

I 

A 

8S703 

I 

A 

MTX3A 

1 

A 

PAY02 

I 

A 

S 0 1 HP 

1 

A 

TRAN3 

I 

A 

/GENF  /( 

208  ) 

A0ICB3 

n 

C0T1 

MTX3A 

R 

B 

TRAN3 

R 

COT  I 

/AO  I CB3/I * 

I 

ADICB3 

u 

DFO 

/ST  ATE3/( 

15  ) 

ADI CB3 

n 

DVAR 

A0IC3A 

I 

DVAR 

AD  1 03 A 

M 

DVAR 

DER3A 

0 

VD 

0TF3 

I 

VT 

ENVPRM 

I 

OVAR 

PDBC 

I 

VD 

PROP  1 N 

0 

OVAR 

REU3 

I 

OVAR 

RKTB3A 

1 

DY 

SDER3 

0 

OVAR 

STP  3 

I 

OVAR 

YREF3 

I 

DVAR 

YREFB 

I 

VT 

/ST  ATE3/( 

128) 

A0E83A 

0 

DVARL 

ADI  CBS 

0 

DVARL 

A0IC3A 

D 

DVARL 

RKT83A 

I 

DV 

/XCOOES/C 

116) 

ADIC83 

I 

I ARC 

ADI03A 

I 

I ARC 

ADJUST 

I 

I ARC 

AST3 

I 

IARC 

BNTS 

n 

IARC 

ENVPRM 

i 

iARC 

FNT  5 

R 

IARC 

GET  I T 

1 

IARC 

MODEIA 

I 

iARC 

PROPS 

I 

IARC 

PROPIN 

I 

IARC 

REU3 

I 

IARC 

SD1NP 

n 

IARC 

STAU 

i 

IARC 

STP3 

i 

IARC 

TRTQSZ 

i 

IARC 

/A0iCB3/(* 

) 

A0ICB3 

u 

ISKP 

/XCOOES/l 

1 ) 

ADICB3 

5 

1 TO 

ADIC3A 

1 

ITO 

ADI03A 

I 

I TO 

COM3 

I 

ITQ 

SDiNP 

R 

ITQ 

STAU 

I 

ITO 

TO  PM 

D 

1 1 TO 

/XCOOES/I 

153) 

ADI CB3 

n 

JS 

ADIC3A 

i 

JS 

A0ID3A 

i 

JS 

BNTG 

n 

JS 

FNTG 

pi 

JS 

PROPS 

i 

JS 

PROPIN 

i 

JS 

STP3 

i 

JS 

T0L3 

i 

JS 

30  OCT  12  G 01-16 


I ()H  1 H AN  n A 1 H 

I)  YH40L  I)  YHBOL 


DESCRIPTION 


STORA'.f  SUBROUTINE  USAGE 

BliKK  LOC  SUBS  CODE  VAR 


J ST 


18 


MB 


N8 


NCN 


NCTIN 

NEO 


NEOB 


NICNB 


NSAB 


1 

Arc  cut-off  option  flag 

/XCOOES/( 

112) 

ADI CB3 

I 

J ST 

BNTG 

I 

J ST 

FNTG 

I 

JST 

SDINP 

n 

JST 

0 

First  element  number  In  partitioned  df  vector 

/ XCOQES /( 

ISO) 

AOE03A 

i 

LB 

AD1CB3 

0 

LB 

ADIC3A 

n 

NN 

0 

Last  elenent  nuaber  i n ,p  art  i 1 1 oned  df  vector 

/XCOOES/I 

181  ) 

ADE03A 

i 

P1B 

AOICB3 

0 

PIB 

AOJC3A 

0 

P1B 

n 

Extent  of  integration  set  during  adjoints  on  branch 

/XCOOES/< 

1 T9  ) 

AOE03A 

I 

NB 

pr  ob  l ea 

AD1CB3 

fl 

NB 

ADI C3A 

P) 

NB 

BNTG 

0 

NB 

RKTB3A 

I 

NB 

STVRL3 

I 

NB 

i 

Number  of  elements  in  d'fr 

/XC0DES/( 

160  1 

ADE03A 

I 

NCN 

ADI CB3 

1 

NCN 

ADIC3A 

I 

NCN 

ADI D3  A 

I 

NCN 

ADJU5T 

1 

NCN 

A5T3 

n 

NCN 

BNTG 

1 

NCN 

BSTD3 

I 

NCN 

PIT  X 3 A 

I 

NCN 

OUT 

1 

NCN 

PAYD2 

pi 

NCN 

TEST 

pi 

NCN 

TOPH 

I 

NCN 

TRAN3 

I 

NCN 

TRTOSZ 

I 

NCN 

i 

Nuaber  of  eieaents  in  upper  triangular  portion  of  A 

/xcooes/i 

189  ) 

ADI CB3 

I 

NCTIN 

‘•at r } x 

A01C3A 

* 

NCTIN 

i 

Nuaber  of  integrated  .states 

/XC0DES/( 

162  ) 

ADICB3 

I 

NEQ 

ADI C3A 

I 

NEO 

A0I03A 

I 

NEO 

AGETB3 

I 

NEO 

AST3 

I 

NEO 

BGET3 

I 

NEO 

BST03 

1 

NEO 

P1TX3A 

I 

NEO 

OUT 

I 

NEO 

REU3 

I 

NEQ 

SDER3 

I 

NEO 

SDINP 

pi 

NEQ 

TOPH 

I 

NEO 

TRAN3 

I 

NEO 

YREF3 

I 

NEO 

i 

Nuaber  of  integrated  quantities  during  adjoint 

/XCDDES/t 

161  1 

ADI CB3 

1 

NEOB 

solution 

ADI C3A 

pi 

NEOB 

RKTB3A 

I 

NN 

i 

Nuaber  of  constraints  at  intermediate  constraint 

/XCODES/ ( 

, 135) 

AOICB3 

I 

NICNB 

point  or  at  end  of  first  branch 

AOIC3A 

I 

NICNB 

BNTG 

1 

NICNB 

REU3 

I 

NICNB 

SDINP 

n 

NICNB 

TEST 

I 

NICNB 

TRAN3 

I 

NICNB 

! 

Number  of  arcs  on  first  branch 

/XCQOtS/( 

139) 

AD1CB3 

I 

NSAB 

BNTG 

I 

nsab 

ENVPRFI 

I 

NSAB 

FNTG 

I 

NSAB 

SDINP 

pi 

NSAB 

TEST 

I 

NSAB 

TRAN3 

I 

NSAB 

TRTOSZ 

I 

NSAB 
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t ih<  1 Han 
SYMBOL 


not  m 
SYMBOL 


CDQE 


DESCRIPTION 


5 T PRASE  SUBROUTINE  USAGE 

BLOLX  LOL  3UBH  CCOE  V AH 


NSB 


SFD 

SVBV 

SX 

T 1 PIE 


TST 


YAH 


VARL 


i 

Number  of  trcs  prior  to  branch  pgfnt  or 

/XCOO£S/<  133) 

ADICB3 

I 

NSB 

intereedlate  constraint 

BNTG 

I 

NSB 

ENVPRfl 

1 

NSB 

FNTG 

1 

NSB 

REU3 

1 

NSB 

SD1  NP 

fl 

NSB 

TEST 

1 

NSB 

TRAN3 

I 

NSB 

TRT05Z 

1 

NSB 

n 

i 

Rata  of  change  of  cut-off  function 

/ADICB3/1*  ) 

A01CB3 

1 

SFD 

5 

Saved  state  vector  on  trial  trajectory 

/STATE3/<  710) 

A0ICB3 

J 

SVBV 

REUS 

0 

SVBV 

an/a  y 

I 

Partial  of  cut-off  URT  state 

/A01CB3/T*  ) 

ADICB3 

I 

SX 

0 

T i ae  (elapsed) 

/GENF  /(  A93 ) 

AGICB3 

0 

TIME 

AST3 

I 

TIflE 

BNTG 

n 

TIDE 

C0N3 

1 

TIflE 

DTF3 

1 

TIflE 

ENVPRp] 

I 

TIDE 

E0UA3 

I 

TIflE 

FNTG 

n 

TIflE 

rIDDELA 

i 

TIflE 

OUT 

i 

TIRE 

POBC 

i 

TIflE 

PROP  IN 

i 

TIME 

REU3 

M 

TIflE 

RXTA3A 

n 

TT 

RKTB3A 

n 

TT 

YREF3 

fl 

TIflE 

I 

Array  of  arc  end  ti*es  on  trial  trajectory 

tsd] 

/ GENF  /(  331) 

ADICB3 

i 

TST 

BNTG 

1 

TST 

FNTG 

0 

TST 

TEST 

i 

TST 

y 

0 

Relative  velocity 

IFT/SEC) 

/STATE3/<  1) 

ACCEL 

i 

V 

A01CB3 

0 

VAR 

AOJUST 

n 

VAR 

AGETB3 

a 

VAR 

AST3 

i 

VAR 

BLA 

i 

V 

BL7 

i 

V 

BL8 

i 

V 

C0N3 

1 

VAR 

DER3A 

i 

V 

0TF3 

i 

V 

ENVPHPl 

i 

VAR 

E0UA3 

i 

V 

nOOELA 

i 

V 

flODELA 

l 

VAR 

fiODELB 

i 

V 

PITX3A 

i 

VAR 

OUT 

! 

V 

OUT 

I 

VAR 

PDBC 

I 

V 

PDY3A 

I 

V 

REU3 

A 

VAR 

R XT  A3  A 

fl 

Y 

STP3 

I 

VAR 

TOPfl 

0 

KfalOU 

YREF3 

fl 

V 

0 

Array  of  variables  for  adjoint  Integration 

/STATE3/(  29 ) 

A0E03A 

I 

VARL 

AOI CB3 

0 

VARL 

* 

ADIC3A 

0 

VARL 

PROPIN 

1 

zz 

RKTA3A 

rt 

F 

RKTB3A 

fl 

V 

STVRL3 

0 

VARL 

TRAN3 

fl 

VARL 
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FORTRAN  rT  AT  H 

SYP1BOL  SYMBOL 


CODE 


DESCRIPTION 


s i orate  subroutine  usage 

BLOCK  IOC  " SOBR  CODE  VAR 


XL 

n fiatrli  of  adjoint  variable! 

/STATE3/( 

246  ) 

AUE33A 

r) 

XL 

X ' J 

A01CB3 

H 

XL 

AD1C3A 

14 

XL 

AO ! 03  A 

14 

XL 

AS  T 3 

14 

XL 

8GET3 

0 

XL 

BST03 

i 

XL 

P1TX3A 

I 

XL 

OUT 

I 

XL 

STAU 

PI 

XL 

STVRL3 

> 

XL 

TRAN3 

<1 

XL 

YDS 

* 

I Array  oi  state  derivatives  at  arc  end  points 

/5T  ATE3/C 

507  ) 

AO  1 CB3 

I 

Y05 

AD  1 03 A 

I 

YDS 

REU3 

0 

VOS 

STAU 

I 

VOS 
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A01CB3 


1. 

SUBROUTINE  ADICB3 

A0ICB3 

2. 

C 

THIS  ROUTINE  HAS  THE  FOLLOWING  ENTRY/PURPOSE 

CO  PIN 

3. 

C 

ENTRY 

ADI  38/ 1 

SAVE  A AT  INITIAL  POINT 

OF  BRANCH 

3 

CONK 

* 1 . 

C 

2 

RESET  STATE 

ANQ  STATE  OER 

- TO  VALUE 

AT  END 

COplN 

5 

C 

OF  BRANCH  2 

CORN 

6 - 

C 

3 

5ET  RANGE  OF 

INTE6RTE0  AOJOINTS 

CORN 

7. 

C 

9 

COOP  AO  J INITIAL  COND  AT 

END  OF  BRANCH  2 

CORN 

8. 

C 

entry 

AOICB/l 

SETS  UP  NECESSARY  DATA  FOR  INITIALIZING 

CORN 

9. 

C 

ADJOI NTS  AT 

END  OF  l NT ERriEOI  AT E CONSTRAINT  ARC 

CORN 

10. 

C 

2 

COPIPUTES  ADJOINT  INITIAL 

COND. 

CORN 

11. 

C 

ENTRY 

A012B/1 

RESTORES  A 

TO  FULL  SIZE 

AT  END  OF 

TRUNK  ARC 

CORN 

13 

C 

2 

RESETS  RANGE  OF  ADJOINT 

INTEGRATION 

CORN 

13. 

C 

CORN 

1*1. 

COntlON/ST  ATE3/ 

STATE30 

15. 

• V AfU  1 9 ) 

, DVAR 

( 11),  VARL  ( T9  ) , DVARLC  99  ) 

,Y0(9) 

,SVY{ 10  ) 

STAYE3D 

16. 

•XL(9,9) 

, YDP( 20, 9 ) . YDS  (20. 

9 ) , CQSGAM 

.SINGAR 

.SAYBPt  15) 

STATE30 

17. 

•SI NPSI 

.C0SPS1 

,S1 NRHO 

, COS  R HO 

,OCORHO 

,OC0RO2 

STATE3D 

18 

• SVBY  <9).0HE6A 

,0nEGA2 

r 

5TATE30 

IS. 

•vov 

, GDV 

,RDV 

,rtov 

,PDV 

.00V 

ST  ATE3D 

20. 

• UDV 

, VDG 

• GOG 

,RDG 

,PDG 

,0D6 

STATE30 

21. 

• UDS 

>VOR 

, 6DR 

, *DR 

,PDR 

, 0 DR 

STATE3D 

22. 

*UDR 

,von 

, GOO 

.non 

,PDR 

,VDP 

5TATE30 

23. 

• GOP 

,PDP 

/OOP 

, OOP 

,voo 

z GDO 

STATE30 

29  . 

•POO 

, UDO 

,HTDV 

, HTDR 

ST  ATE30 

25. 

REAL  rtDtt 

, RON,  NOR 

STATE3D 

26. 

C0«H0N/STATE3/ 

ST  ATE 3D 

27 

•51  NERO 

, COS2RO  .00526* 

STATE3D 

28. 

COrmQN/GENF/ 

genf 

29. 

•OflG<  20) 

,QflGP( 20. 2 ) , VARU< 9 ) 

/TOL(  9 ) 

>SVAR(  10) 

, UDC(  20 ) 

GENF 

30. 

• Al 9.9 ) 

, ACONl  9 > , BCON(  9 ) 

.corn  9 . 9 ) 

• OCONI 9 ) 

,DTP 

GENF 

31. 

• DTS 

,UT 

,6 

, DPSQ 

'a 

,os 

t 

GENF 

32. 

• R 

,RE 

, OACH 

,PA 

,R0 

,cs 

9 

genf 

33- 

• VNU 

.PAR 

.ROB 

, CSB 

,vnr 

/Sunso 

genf 

39. 

• SVSQ 

.TIMEPH  .TINES 

.TOP 

,T0S 

, TR(  9 ) 

t 

GENF 

35. 

*T5T<  20 ) 

. TPH 

( 20 ), OlS(  20 ) 

, 01P<  20 ) 

T 

,u 

GENF 

3b. 

• TLPH20) 

,TLS1 

l 20>,OIPH2Q 

) ,0151(201 

,TIRE 

.OMP 

t 

genf 

37 

•TIHPft 

.LIFT 

/DRAG 

,TAX 

,TBURN 

,TBUl  20) 

genf 

38. 

•AE 

,FPOLO 

.FPD 

,piachr 

, flACHV 

GENF 

39. 

•OR 

,ov 

>FVAC 

, L1FTV 

GENF 

*}0 

• LIFTR 

.Li  FT  A 

DRAGV 

,BRAGR 

/DRAGA 

GENF 

91. 

• 

LlFTn 

* ,DBR 

,DB 

,ISP 

, I SPF 

t 

GENF 

92. 

• 

ULFT 

,ULFTV 

.ULFTR 

, ULFT  A 

t 

■GENF 

93. 

• XrtCG 

, XflCGV 

rxncGR 

,XWCGA 

.XnCGfl 

, CODAE 

t 

GENF  ' 

99. 

• CULFT 

f CT 

.C ALPHA 

, COE 

,0ELTAE 

,S!D 

GENF 

95. 

• COD 

.SI  DAE 

, XC6 

,206 

Genf 

96. 

COrtrtON  / 

6ENF  / 

GENF 

97. 

• XJV 

. XJR 

1 6H , 

,GA«f1AD 

,xxs 

, XKP 

GENF 

98. 

•FRATED 

^ 1 RATED 

GENF 

'99. 

•PI 

fP3 

. XK1 

;xx2 

,XK3 

GENF  1 

50. 

• XK1T 

. XK2T 

, XK3T 

, XK1D 

, XK2D 

, XK3D 

GENF 

51. 

• XXI A 

. XKZA 

, XK3A 

, XK1 V 

, XK2V 

, XX3V 

GENF 

52. 

• XK1G 

.XX2G 

, XX3G 

, XK1P 

.XK2P 

. XK3P 

GENF 

53. 

• XK1R 

,XK2R 

, XK3R 

, XK10 „ 

j XX20 

z XX30 

GENF 

59. 

• XK1U 

. XK2U 

, XX3U 

, xxm 

.XK2H 

z XK3R 

GENF 

55. 

*PV 

,PS 

.PP 

,PR 

,P0 

z OPDYt  3/ 8 ) 

GENF 

56. 

REAL  LIFTR  . LIFT  , LIFTA.LIFTH  . 

MACH, 

nACHR, 

GENF 

57. 

• ISP,  1SPF,  flACHV 

, LIFTV  . IRATED 

frat 

58. 

DinENSlOh 

lPHK  10),TST1(  10) 

GENF 

59. 

EQUIVALENCE(TLPl, 

TPH1),<TLS1, 

I5T1> 

GENF  - 

60. 

COflPlON  /XCODES/ 

XCODEST 

61. 

»ITQ  m.IDOR 

(20)  til 

, I NTB 

,JGIO(  20, 

2 ).  JPH  (20.2). 

XCOOES 

62. 

»J5T  (20) 

,NCNST 

, MSB 

,nsab 

z NICNB 

XCODES 

63. 

• I20P 

,ICOP 

, IFA. 

,1FAR 

,IFB 

/I  NO 

XCODES 

69. 

• I OPEN 

,IPH 

iSPri 

, ISST 

, I ARC 

.1ST  ART 

XCODES 

65. 

• ITCT 

, I TER 

,1  VAfi 

,JX 

,JPS 

,JS 

r 

XCODES 

,66. 

•KOP 

,KP5T 

,K5T 

,NA0 

,NCASE 

XCOOES 

67. 

• NON 

/ NEQB 

.NEC 

, NOP 

,NPH 

XCODES 

68. 

• NST 

, I PST 

, IPRINT 

,ISTN 

, I PHN 

/ISTNB 

XCODES 

69. 

•IPHNB 

, 1 BLK1 

I BLX2 

, ISTOP 

, I STPP 

/L 

f 

XCODES 

70. 

• IFOB 

,NB 

,LB 

. rb 

.NPHP 

. NPHB 

t 

XCODES 

71. 

• NCTIN 

.NEOF 

I LAB( 8 ), JPRP 

,JGI  I.  PITT,  PIP  INI  20)  .JP1 . 

JP2,JP3 

XCODES 

72. 

DiriENSION  SX(7) 

ADI  CBS 

73. 

C 

CORN 

79. 

c 

1 BRANCH  POINT  APPROACHED 

FROrt  BRANCH 

3 

CORN 

75. 

ENTRY  ADI3B 

ADI  CBS 
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76. 

1SKP  - 0 

AQICB3 

77. 

c 

l-ft  SAVE  A 

COMN 

73. 

OO  ID  t=1.NCN 

A0ICB3 

r 

79 

00  10  J-l  NCH 

A01CB3 

LL, 

60 

10 

com  j,n-AC  j.n 

A0IC63 

at 

c 

I-B  RESET  TIME  AN 0 STATE  TO  END  OF  BRANCH  2 

COMN 

82. 

N5  = NSB  ♦ N5AB 

A0ICB3 

83. 

N0  = tNCN  -NICNBJM  +1 

• ADICB3 

84 

TIME*  TST<NS> 

ADI  CBS 

r 

85 

DO  20  1=1. NEO 

ADICB3 

86. 

VARtl)  =$VBV(l > 

ADICB3 

L 

87 

20 

OVARU  >=*DSt  HS.I) 

ADICB3 

83 

c 

I-C  SET  RAN6E  OF  CONSTRAINT  VECTOR  AND  ADJOINT  INTEGRATION 

CORN 

89 

c 

ARRAY 

CQMN 

90. 

HB-NICN& 

A0ICB3 

91. 

LB=1 

AD1CB3 

92 

NX  = NECB  -NCTIN 

ADICB3 

93 

c 

11  DETERMINE  CUTOFF  VARIABLE  CODE. IF  STATE. 1 1~A, 

COrtN 

94. 

c 

ELSE  CALC. PARTI ALS 

COHN 

95 

30 

JS  =IABS(JSTCNS)) 

AD1CB3 

96 

IFtJ5.LT, 9)  60  TO  HO 

AD1CB3 

40 — 1 

97 

CALL  PDBCI JS#DVAR,SX,SFDi3,lSXP) 

A0I0B3 

1 

93 

HO 

CONTINUE 

AO  I CBS 

< * 

99 

c 

1 I -A  ZERO  ADJOINT  I NTE&RAT ION  ARRAV 

COMN 

r 

100 

DO  50  1=NB,NX 

AQICB3 

101 

VARLt  I >=C. 

AQ1CB3 

L 

102. 

50 

DVARLC 1 )sO. 

A0ICB3 

103 

60 

CONTINUE 

ADICB3 

104 

c 

III  COMPUTE  ADJOINT  INITIAL  CONDITIONS 

C9MN 

— 

105. 

DO  1 HO  I = 1 . NI  CNB 

AD1CB3 

r 

106. 

00  70  K«sl,NEQ 

ADICB3 

L 

107 

70 

xunn.iiso. 

ADICB3 

10B. 

c 

III-A  DETER.  CONST.  CODE  IF  NOT  TIME  , 11 I-B 

COMN 

109. 

c 

ELSE  SET  DF0=1 . .III-D 

COMN 

no 

II  = ITQCI1 

A0ICB3 

111 

IF(Il.ST.l)  8D  TO  80 

AD1CB3 

80  — 

112 

OF0=  1. 

ADICB3 

113 

GO  TO  110 

ADICB3 

no — 

114 

c 

m-B  IF  CONST  IS  FUNCTION, III-C  .ELSE  SET  PROPER  ADJOINT 

COMN 

115 

c 

EQUAL  TO  1.  AND  CALC-DFD 

COMN 

116 

80 

1FUI  .6T.10)  GO  TO  100 

A0ICB3 

foe— 

117 

lftll.EQ.10)  60  TO  90 

AQ1CB3 

90  — 

118. 

XU  11-1,1  ) =1. 

ADICB3 

119 

DFO  = YDSt  NS, 1 1-1 > 

ADI  CBS 

120 

60  TO  no 

ADICB3 

110- 

121. 

90 

xn  B,n=i. 

A01CB3 

122 

DFD=  vosms.sj 

AD1CB3 

123 

CD  TO  no 

A0ICB3 

110- 

124 

100 

call  PDBCt 11 .DVAR,XL( 1,1 >.DFD,3.ISKP > 

ADICB3 

125. 

c 

III-C  CONST. IS  FUNCT., COMPUTE  PARTI ALS  AND  DFD 

COMN 

126 

110 

CONTINUE 

ADICB3 

127 

c 

III-D  COMBINE  CONST.  UNO  CUT-OFF  TERFS  INTO  ADJOINT 

COMN 

128. 

c 

INITIAL  CONDITIONS 

COMN 

129. 

1F<JS.LE.2)  CD  TO  140 

ADICB3 

1HC- 

130 

IF( JS.fiT.9  ) 60  TO  120 

AD1CB3 

120- 

1 

' 

131. 

XLUS-2,1>=  XUJS-2,1)  -DFD  /YD5C  NS,  JS-2  ) 

ADICB3 

132. 

60  TO  140 

ADICB3 

il  HO  — 

r 

133 

120 

00  130  KX=1,7 

ADICB3 

L. 

134 

130 

XL(KK,I>  = XLtKK.J)  - OFO/SFD  *5X1 KK> 

ADI  CB3<- 

— 

135 

1 HO 

CONTINUE 

ADI  CBS 

136 

RETURN 

ADICB3 

137 

ENTRY  ABICB 

ADI  CBS 

139. 

c 

IV  AT  I NTEMED1 ATE  ARC  CONSTRAINT , SET  STATE  DERI V 

CORN 

139 

c 

EQUAL  TO  STORED  NOMINAL  VALUE 

COMN 

140 

N$=  I ARC-1 

AD I CBS 

r 

141 

OO  150  1=1, NEB 

ADI  CBS 

U 

1 42 

150 

DVAR(I>=  YDS(NS.I) 

ADI  CBS 

143 

H&  =1 

ADI  CBS 

144. 

LB=1 

ADI  CBS 

145. 

MB=NCN 

ADI  CBS 

146. 

NX  = H*  NICNB 

ADI  CBS 
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30 


E 

E 


1N7. 

ns 

150, 

151 . 
15Z 
153. 
15H . 
155. 
156 
157. 
158 
159. 


160. 

161. 

162. 

163. 


GO  TO  30 

ADICB3 

ENTRY  A0I20 

A01CB3 

c 

V RESTORE  A HAIR I X AND  ITS  INTEGRAL  FOR 

cohh 

c 

CONTINUING  BACKWARD  ADJOINT  SOLUTION  ON  TRUNK 

COHN 

flB=NCN 

A0ICB3 

NX=NICNB+1 

AD1C&3 

00  160  I=NX  NCN 

A01CB3 

DO  160  J = 1,NCH 

A01CB3 

A(  i , J ^COTI(I.J) 

ADICB3 

160 

A( J , I )=COTK  J,I> 

ADICB3 

N1=NE0B-NCT1N 

A01CB3 

00  170  1=1, NC* 

ADICB3 

DO  170  J=1,I 

ADICB3 

NI*NJ41 

A01CB3 

170 

VARLTNI  )=A(  J,  I ) 

A01CB3 

RETURN 

A0ICB3 

END 

A01CB3 
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SUBR0UTINE 

ADIC3A 


347 


Subroutine  AJ3IC3A 


Pm  pose 

Subroutine  ADIC3A  (entry  point  ADIC)  computes  adjoint  initial  conditions  at 
the  terminus  of  the  trajectory.  After  zeroing  out  the  adjoint  variable  matrix, 
the  impulse  response  functions  and  the  adjoint  integration  array  (VARL  and 
PVARL),  equation  (11.  1-23)  of  Volume  I is  solved. 

Description 

This  routine  is  called  from  TEST. 


Sr<8 


I OH  I It  ft  IV 
Sykibol 


MOTH 

V5hol 


t ODE 


DESCRIPTION 


‘J  5 A 3 'J  1 1 5 
S'JBR 


(it  Dfiflit 

B'-Oi  K uOC 


DFD 

OVAR 


OVARL 
1 NIB 

1SKP 

ITB 

JK 

JS 

ns 

MB 


* 

y 


10  Rate  of  change  of  Constraint  /ADIC3A/<«  > ADI  C3A  Id  OFD 

1 State  vector  derivatives  In  steepest  descent  nodule  /STATE3/1  15)  AOICB3  rt  OVAR 

AQIC3A  ) OVAR 
A0ID3A  0 OVAR 
OER3A  0 VO 
DTF  3 I VT 
ENVPRM  1 OVAR 
POBC  I VO 
PROPIN  0 OVAR 
REU3  I OVAR 
RKTA3A  I DV 
SDER3  0 OVAR 
STP3  I OVAR 
YREF3  i OVAR 
VREF3  I VT 

0 Array  of  derivatives  for  adjoint  integration  FSTATE3/{  128)  ADE03A  0 OVARL 

A0ICB3  0 OVARL 
A0IC3A  0 OVARL 
RKTB3A  I DY 

1 Branching  and  intermediate  constraint  flag  /XCODES/l  31)  ADIC3A  I INTB 

BNTG  I iNTB 
ENVPR15  I INTB 
FNTG  1 INTB 
SOINP  If  INTB 
TEST  I INTB 
TRAN3  I INTB 
TRTOSZ  I INTB 

Id  Flag  to  stop  redundant  conputatlon  in  subroutine  /A0IC3A/(*  ) AOIC3A  Id  I$KP 

POBC 

I Constraint  option  code  (Internal)  /XCOOES/C  l)  ADICB3  I I TO 

A01C3A  I 1 TO 
A0I03A  I ITO 
COM3  I ITO 
SOINP  fl  ITO 
STAU  I ITO 
T DP  PA  0 I I TO 

/XCGD£S/<  151  ) AOIC3A  15  JX 
BNTG  I JK 
OOBtLA  I JK 
PAY02  H JK 
RKTA3A  It  J 
RKTB3A  15  J 


I 

Abso lute  value  of  arc 

cut-off  option  code 

/XCODES/f 

153  ) 

A0ICB3 

15 

JS 

ADI  C3A 

I 

JS 

ADI D3A 

I 

JS 

BNTG 

n 

JS 

FNTG 

15 

JS 

PROPB 

I 

JS 

PROPIN 

I 

JS 

STP3 

I 

JS 

T0L3 

I 

JS 

0 

Last  element  number  j 

n partitioned  dfr  vector 

/ XCGD£S/( 

161  ) 

A0E03A 

I 

(IB 

ADICB3 

0 

I5B 

ADI  C3A 

0 

(5B 

n 

Extent  of  Integration 

set  during  adjofnts  on  branch 

/XCODES/( 

179) 

AOE03A 

I 

NB 

problem 

AOICB3 

15 

nb 

AOIC3A 

15 

NB 

BNTG 

D 

NB 

RKTB3A 

I 

NB 

STVRL3 

I 

NB 

PI  Integration  routine  flag  tells  ahich  derivative 
evaluation  in  Rqnge>Kutta  cycle 
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I OK  1 II AN  P1AI  H 

SYPIrtl'L  SYPlttOL 


DESCRIPTION 


^nihANF 
H L J LX  CoT 


NCN 


NCTIN 

NEB 


NEBB 

N1CNB 


SFD. 

SJ 

VARL 


XL 


h 

aQ/ay 


1 Nuitir  of  elements  In  lit 


PI  Number  of  elements  in  upper  -triangular  portion  of  A 
■ at  r 1 1 

I Number  of  integrated  states 


n Number  of  integrated  quantities  during  adjoint 
solution 

i Number  of  constraints  at  Intermediate  constraint 
point  or  at  end  of  first  br.anch 


PI  First  element  number  in  partitioned  d Y vector 

1 Rate  of  change  of  cut-off  function 
I Partial  of  cut-off  WRT  state 
0 Array  of  variables  for  adjoint  integr-ation 


n Hair i * of  adjoint  variables 


/XCOOES/t 

160  ) 

ADEO  3 A 

1 

NCN 

A01CB3 

I 

NCN 

A01C3A 

I 

NCN 

ADI  03 A 

I 

NCN 

ADJUST 

I 

NCN 

AST3 

n 

NCN 

BNTG 

i 

NCN 

BST03 

i 

NCN 

P1TX3A 

i 

NCN 

OUT 

i 

NCN 

PAY02 

n 

NCN 

TEST 

n 

NCN 

TOFU 

i 

NCN 

TRAN3 

I 

NCN’ 

TRTOSZ 

i 

NCN 

/XCOBES/t 

181  ) 

ADI CB3 

i 

NCTIN 

ADIC3A 

n 

NCTIN 

/X  COOES/I 

162) 

AD1CB3 

1 

NEB 

A0IC3A 

I 

NEB 

AD1D3A 

I 

NEB 

AGETB3 

I 

NEQ 

AST3 

1 

NEB 

BGET3 

I 

NEB 

BST03 

I 

NEB 

P1TX3A 

i 

NEO 

OUT 

1 

NEB 

REU3 

I 

NEB 

SDER3 

I 

NEB 

SDINP 

n 

NEQ 

TOPPI 

I 

NEO 

TRAN3 

I 

NEO 

YREF3 

1 

NEB 

/xcaoES/i 

161  ) 

ADI  CB3 

1 

NEBB 

A0IC3A 

pi 

NEBB 

RKTB3A 

I 

NN 

/ XCO  0E5  /( 

135  ) 

ADICB3 

I 

NICNB 

ADIC3A 

I 

nicnb, 

BNTG 

I 

NICNB 

RtU3 

I 

NICNB 

SDINP 

PI 

NICNB 

TEST 

I 

NICNB 

TRAN3 

I 

NICNB 

/XCOOES/( 

180  ) 

ACE  0 3 A 

I 

LB 

A0ICB3 

a 

LB 

A0IC3A 

« 

NN 

/A01C3A/1* 

) 

A0IC3A 

i 

SFD 

/A01C3A/C* 

) 

AD1C3A 

i 

SX 

/STATE3/1 

29  ) 

ACE33A 

i 

VARL 

ADICB3 

0 

VARL 

ADI C3A 

0 

VARL 

PROPIN 

1 

ZZ 

RKTA3A 

PI 

F 

RKTB3A 

PI 

V 

STVRL3 

0 

VARL 

TRAN3 

PI 

VARL 

/STATE3/I 

216  ) 

ACE  03  A 

PI 

XL 

ADI CB3 

PI 

XL 

A0IC3A 

PI 

XL 

ADI D3  A 

PI 

XL 

AST3 

PI 

XL 

BGET3 

0 

XL 

8STC3 

1 

XL 

P1TX3A 

I 

XL 

OCT 

I 

XL 

STAU 

n 

XL 

STVRL3 

i 

XL 

TRAN3 

n 

XL 
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FORTRAN  HATH 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


S T 0 R A j» 
BLO>-k  LO«. 


■jBnautiwE 


XLAMA 


xiAiHP- 


tQ  0 Impulse  response  function  column  vector  associated  /AEC03  /<  16)  AOE03A  H XLAntA 

A 1 3 ulth  angle  of  attack  AOIC3A  0 XLAMA 

AST  3 0 XLAMA 

B GET  3 0 XL  APIA 

BST03  ft  XL  AHA 
MTX3A  1 XLAMA 
THAN3  ft  XLAMA 

+ .Q  fl  Impulse  response  function  coluan  vector  associated  /AEC03  /(  25)  AOEQ3A  11  XLAMP 

A J with  bank  angle  ADIC3A  0 XLAMP 

AST  3 0 XLAMP 

BGET3  0 XLAMP 
BST03  11  XLAMP 
MTX3A  I XLAMP 
TAAN3  II  XLAMP 


30  OCT  72  G Ol-Afc 


AQ1C3A 


X. 

SUBROUTINE 

: ADI C3A 

• 

ADIC3A 

2. 

C 

COMPUTES  ADJOINT  INITIAL 

CONDITIONS 

, AT 

CONN 

3. 

C 

TRAJECTORY 

TERAINU5 

COrtN 

H. 

DIMEWS  ION 

SXC7) 

ADIC3A 

5. 

C0rtrtQN/5T  ATE3/ 

STATE30 

6. 

♦VAR! 1H) 

, DVAR 

( 1H  >, VARL  ( 99) 

, DVARL!  99) 

,Y0( 9) 

,SVV( 10) 

5TATE30 

7. 

♦XL!  9.9) 

,YDP! 20 

, 9 ) , Y05  (20,9), 

COSGAH 

,5! NGAS 

,5 AVBP( 15) 

STATE30 

8. 

*SiNP5I 

.COSPSI 

.SINRHO 

, COSRHO 

,OCORHO 

, C C0R02 

5TATE3D 

9. 

♦ SVBV  19) 

,OBEGA 

,QSEGA2 

STATE3D 

10. 

♦ VDV 

, GDV 

.RDV 

, SDV 

,PDV 

,00V 

STATE30 

11. 

♦UDV 

, VOS 

, GDS 

,RDG 

,PDG 

, OOG 

STATE3D 

12. 

*uos 

, VDR 

, GDR 

,«0R 

,POR 

.OCR 

STATE3D 

13 

♦UOR 

,VDM 

, GBS 

.SOS 

,pds 

, VDP 

STATE3D 

1H 

♦ GDP 

, POP 

.OOP 

,UDP 

,VOO 

,600 

STATE30 

15. 

♦ POO 

. UDO  ' 

.HTDV 

, HTOR 

STATE3D 

16. 

REAL  SDN  . 

SDV.  SDR 

STATE30 

17. 

C0Pm0N/S7ATE3/ 

ST  AT  £3  D 

16. 

♦S1N2R0 

. C0S2RQ 

, C0S2GS 

STATE3D 

IS. 

COnnON/ AEC03/ 

AEC03 

20 

♦ APHO 

. APHR 

.ALPHA 

, VO  A 

, GO  A 

, PDA 

AEC03 

21. 

♦ SINA 

, COSA 

,PHI0 

rPHIO 

,PHI 

,SI HP HI 

6EC03 

22. 

♦COSPHI 

, GDPH 

,POPH 

, XLAflA!  9 ) 

, XLASP! 9 ) 

, CDO 

AEC03 

23. 

• coon 

,CLO 

,FK 

,XCG* 

,ZCG« 

,CLOH 

AEC03 

29 

♦cs 

,GNA 

.CMAS  .cns 

,CSO 

,CSOS 

,FKB 

AEC03 

25. 

♦ CLAS 

, CL 

, CLA 

,CLN 

9 

AEC03 

26. 

♦ CD 

, CD  A 

.CDS 

AEC03 

27. 

EQUIVALENCE!  LB, NN> 

AQIC3A 

26. 

COnnON  n C0DE57 

XCODES 

29. 

*ITB  <91 

, I COR 

(20  >,111 

, INTB 

, J GID! 20 

2 ), JPH  (20,2) 

XC0DE5 

30 

*JST  1201 

,NCNST 

, NSB 

NS  AB 

,NI CNB 

XCODES 

31 

*I20P 

,ICOP 

.IF  AU 

, IFAR 

, 1 FB 

,IND 

XCODES 

32. 

♦IOPEN 

,IPH 

,I$PH 

, ISST 

, I ARC 

. ISTART 

XCODES 

33. 

♦ ITCT 

, ITER 

, I VAR 

,JK 

,JP$ 

, JS 

XCODES 

3H. 

♦ KOP 

, KPST 

, KST 

, NAD 

,NCASE 

XLODES 

35. 

♦ NCN 

,NEQB 

,NEQ 

,NOP 

,NPH 

XCODES 

36. 

♦NST 

,IPST 

, IPRINT 

, ISTN 

,IPHN 

, ISTNB 

XCODES 

37. 

♦IPHNB 

,-IBLKi 

,IBLK2 

, ISTOP 

, ISTPP 

w L 

XCODES 

38. 

♦ IFOB 

,NB 

,LB 

.SB 

. NPHP 

,NPHB 

XCODES 

39. 

♦NCTIN 

.NEQF  . 

ILAM  8),  JPRP,JG 

II  , ST7  .P)P1N(20).JP1. 

JP2,  JP3 

XCODES 

HO. 

CQSI10N/6ENF/ 

SEJiF 

HI. 

♦0SG(20> 

, ORGPC  20,2),  VAR 0(9) 

,TOL(  9 ) 

,5 VAR!  10) 

,UDC( 20) 

GENF 

H2. 

♦ A(  9,  9 > 

, ACONl 9 ) , BCONC  9 ) 

, COT  1 C 9,9) 

,DCON<  9) 

, DTP 

GENF 

H3. 

*DT5 

,dt 

,e 

tOPSQ 

,0 

,QS 

&ENF 

HH . 

♦R 

,RE 

, SACH 

,PA 

,RQ 

,cs 

GENF 

H5 

♦VNU 

.PAR 

, ROR 

,CSR 

. VNR 

.sussfl 

GENF 

H6 

♦ SV5Q 

#TIt1£PH 

, TIRES 

,TOP 

,TOS 

,TR! 9 ) 

GENF 

H7 

♦ TSTt  20  ) 

,TPH 

( 20 >,DXS<  20  ) 

r DIP! 20 ) 

,T 

GENF 

H8 

♦TLPK20) 

,TLS1 

( 20 ), DIP  1! 20  ) 

r DISK  20  ) 

,TlflE 

,OSP 

GENF 

H9 

*TISPR 

.LIFT 

.DRAG 

,TAX 

,TBURN 

,TBU( 20) 

GENF 

50 

*AE 

,FP 

.FPOLD 

,FPO 

,SACHR 

,flACHV 

6ENF 

51 

♦ QR 

,QV 

,FVAC 

, LIFT  V 

GENF 

52. 

♦L1FTR 

,lifta 

DRAGV 

!0R AGR 

.ORAGA 

GENF 

53. 

* 

LIFTS 

,DBR 

, OB 

,ISP 

,ISPF 

GENF 

5H. 

♦ 

ULFT 

r ULFTV 

-ULFTR 

, ULFT  A 

GENF 

55. 

♦ xncs 

,xscsv 

, XrtCGR 

, XSCGA 

,XrtC6n 

, CODAE 

GENF 

56 

♦CULFT 

9 CT 

,CALPHA 

, CDE 

,DELTAE 

, SID 

GENF  * 

57 

♦ COD 

. S10AE 

, XCG 

, ZC6 

,XJ 

GENF 

58 

CONDON  / SENS  / 

GENF 

59 

♦ XJV 

.XJR 

,GH 

, GASSAD 

, XK6 

,XXP 

GENF 

60 

♦PRATED  , 

I RATED 

6ENF 

61. 

♦PI 

,P2 

XK1 

,XK2 

,XX3 

GENF 

62. 

♦ XK1T 

, XK2T 

, XK3T 

, XK10 

, XK2D 

, XK30 

GENF 

63 

♦ XK1A 

, XK2A 

,XK3A 

,XK1V 

,XK2V 

, XK3V 

GENF 

6H. 

♦ XK1G 

, XK26 

, XK3G 

,XK1P 

,XK2P 

, XK3P 

GENF 

65. 

♦ XK1R 

, XK2R 

, XK3R 

, XK10 

, XX20 

, XK30 

GENF 

66. 

♦ XK1U 

, XK2U 

, XK3U 

, XK1B 

,XK2S 

,XK3B 

GENF 

67. 

♦PV 

,PS 

,PP 

.PR 

,P0 

,DPBY( 3,8) 

GENF 

68 

REAL  LIFTft  . LIFT  . LIFTA. LIFTS  . 

SACH, 

SACHR, 

GENF 

69. 

♦ ISP,  ISPF 

' SACHV 

,LlFTV  , IRATED 

1 

FRAT 

70. 

DinENSlON 

TPHU  10  ).TST1(  10  ) 

GENF 

71. 

EOUI VALENCE!  TLP1, 

TPHD.CTLSI.TSTIK 

GENF 

72. 

ENTRY  ADIC 

•ADIC3A 

73. 

ISKP=0 

ADIC3A 

7H. 

C 

I 

** 

♦» 

CORN 

75. 

C 

ZERO  XL  ,OVARL,VARL, 

XLArtA  ARRAYS 

AFTER  CALCULATING  INDICES 

A0IC3A 
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76. 

NCTIN  = <NCN*(NCN+l>)/2 

ADIC3A 

77. 

NEOB  = 6*NCN  * NCTIN 

ADIC3A 

78. 

C 

I-A  CHECK  FOR  BRANCHING  OR  1NTEHEDI ATE 

CONSTRAINTS 

COHN 

79. 

C 

TO  COMPUTE  RANGE  OF  INTEGRATION  ARRAY 

COHN 

80. 

1 FI 1NTB-1  )10,20, 20 

ADIC3A 

10— 

81. 

10 

NB  =1 

ADIC3A 

82. 

NN=  1 

ADIC3A 

83. 

GO  TO  30 

A0IC3A 

89. 

20 

NB  = 9»N1CNB+1 

ADIC3A 

r 

05. 

NN  = N1CNB  +1 

AQIC3A 

} 

88. 

30 

00  90  1=1. NCN 

A0IC3A 

87. 

XLAHPC I )=0. 

ADIC3A 

8B. 

XLAHAC I 1=0. 

A0IC3A 

89. 

□0  90  J=1 , NEQ 

A0IC3A 

90. 

XL( J.I )=0. 

AD1C3A 

,91. 

90 

CONTINUE 

AD1C3A 

92. 

00  50  I=1,NEQB 

ADI D3A 

93 

VARLC  I>=0 

ADIC3A 

99. 

OVARU  I 1=0. 

ADIC3A 

95. 

50 

CONTINUE 

ADIC3A 

96. 

C 

11  COnPUTE  ADJOINT  INITIAL  CONDITIONS 

COHN 

97. 

c 

COHN  . 

98. 

c 

I I -A  TEST  FOR  LINEAR  CUT-OFF  .YES. SKIP 

NON-LINEAR 

COHN 

99. 

c 

CUTOFF  CALCULATIONS 

COHN 

100. 

IFtJS-LE.9)  GO  TO  60 

AD1C3A 

60—1 

101. 

CALL  PDBCt J5,DVAR,SX,SF0,3f1SKP1 

A0IC3A 

, { 

102. 

60 

CONTINUE 

ADIC3A 

103. 

00  130  I=NN,NCN 

ADIC3A 

109. 

II=JTO(  I ) 

ADIC36 

105. 

c 

II-B  SET-UP  OR  CALCULATE  RATE  OF  CHANGE 

OF  CONSTRAINT 

COHN 

106. 

c 

AND  IC  FOR  LINEAR  CONSTRAINTS 

COHN 

107. 

1FUI.GT.1)  GO  TO  70 

ADIC3A 

70— | 

108. 

DFD=1 - 

A0IC3A 

109. 

GO  TO  100 

ADI  C3A 

j1 

110. 

70 

IFUI.GT.10)  GO  T090 

ADIC3A 

111. 

IFUI.EQ.10)  GO  TO  80 

ADIC3A 

80 — | 

112 

XUII-1,I)=  1. 

ADI  DBA 

113. 

DFD  = OVAR(Xl-l) 

AD1C3A 

119. 

GO  TO  100 

AD1C3A 

115. 

80 

XL(8,1)=1. 

AD1C3A 

116. 

DFD=DVAH( 8 > 

ADIC3A 

117. 

GO  TO  100 

ADIC3A 

118. 

c 

II-C  SET-UP  AND  CALCULATE  1C  FOR  NON-LINEAR  CONSTRAINT 

COHN 

119. 

90 

CALL  P08C(II,0VAR,XL< 1, I >,0FQ,3,IS*P ) 

ADIC3A 

120. 

100 

CONTINUE 

A0IC3A 

121. 

IFUS-LE.2)  GO  TO  130 

ADID3A 

130 — 

122. 

IFCJS.GT.9)  GD  TO  110 

AD1C3A 

110—1 

123. 

XLCJS-2,1)  = XL(JS-2.1)  -DFD/DYAR( JS-2) 

AD1C3A 

129. 

GO  TO  130 

ADIC3A 

j 

125. 

no 

DO  120  KK— 1, 7 

A0IC3A 

126. 

120 

XUKK,n  = XL(  KK,  1 ) - DFD/$FD*5X<  KK) 

ADIC3A 

127. 

130 

CONTINUE 

ADIC3A 

128. 

JK=NB 

ADIC3A 

129. 

c 

III  PRINT  ADJOINT  ICS  AND  RETURN 

COHN 

130. 

DO  150  I=NN,NCN 

ADIC3A 

131. 

DO  190  JJ=1_6 

ADIC3A 

132. 

VARL(JK)  = IL(  J J;  I ) 

AD1C3A 

133. 

190 

JK=JX+1 

ADI C3A 

139. 

150 

CONTINUE 

ADIC3A 

135. 

CALL  I PRC 10HADJ, I N CNO.XLC l.NN).I,(  NCN-NN*i)*9 

, 0 1 

A0IC3A 

136. 

MB=«CN 

A01C3A 

137. 

RETURN 

A01C3A 

138. 

END 

A0IC3A 

icon 
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Subroutine  A DID  3 A 


Pu rpose 

Subroutine  ADID3A  computes  adjoint  discontinuities  for  different  situations 
using  dUleicnt  entry  points.  It  accounts  for  branching  and  intermediate 
constraints  as  well  as  most  mixed  boundary  conditions.  Mixed  boundary 
condition  adjoint  discontinuities  are  handled  for  elapsed  time  and  functions  of 
elapsed  time  only. 

Description 

Preliminary  calculations  at  each  entry  point  use  the  local  range  of  the  d4* 
vector  to  determine  which  adjoint  sets  are  to  be  considered. 

It  should  be  noted  that  this  subroutine  is  not  called  if  the  cut-off  function  is 
on  fixed  arc  time.  This  routine's  entry  points  are  called  from  BNTG. 
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FDR1RAN 

SYP1B0L 


PIA1  H 
SYmBOL 


CODE 


DESCRIPTIOiM 


STQRftGF  SUBROUTINE  USAGE 

8L0CH  LOC  b U0H  CODE  VAH 


OVAR 

• 

d 

State  vector  derivatives  In  steepest  descent  nodule 

/STATE3/C 

15  i 

ADICB3 

PI 

OVAR 

y 

ADIC3A 

I 

OVAR 

A01D3A 

PI 

OVAR 

DER3A 

0 

YD 

DTF3 

I 

VT 

ENVPRPI 

I 

DVAR 

PDBC 

I 

VD 

PROPIN 

0 

DVAR 

REU3 

I 

DVAR 

RKTA3A 

1 

DV 

SDER3 

D 

DVAR 

STP3 

I 

DVAR 

YREF3 

I 

DVAR 

. 

YREF3 

I 

VT 

I ARC 

i 

Arc  nuaber 

/XCODES/I 

1 *f  6 ) 

ADICB3 

I 

I ARC 

A0ID3A 

I 

I ARC 

ADJUST 

I 

IARC 

AST3 

I 

I ARC 

BNTS 

PI 

1 ARC 

ENVPRPI 

I 

I ARC 

FNTG 

m 

IARC 

GETIT 

I 

IARC 

PIODELA 

i 

IARC 

PROPB 

i 

IARC 

PROPIN 

I 

IARC 

REU3 

i 

IARC 

SD1NP  ' 

pi 

IARC 

■ 

STAU 

i 

IARC 

STP3 

I 

IARC 

TRTBSZ 

l 

IARC 

1PH 

i 

Phase  nunber 

/XCODES/I 

1H3) 

ADID3A 

i 

I PH 

ADJUST 

i 

I PH 

AST3 

l 

I PH 

BNTG 

n 

I PH 

FNTG 

pi 

I PH 

GETIT 

I 

I PH 

GUI  3 A 

i 

I PH 

SDINP  * 

n 

I PH' 

ISXP 

LI 

Flag  to  stop  redundant  computation  in  subroutine 
POBC 

/ADI  D3A/1  * 

) 

ADID3A 

u 

ISXP 

no 

I 

Constraint  option  code  (internal) 

/XCOO£S/( 

1 > 

ADICB3 

I 

ITU' 

ADIC3A 

I 

ITO 

ADID3A 

I 

ITU 

C0N3 

1 

ITU 

SDINP 

pi 

ITU 

STAU 

1 

ITU 

T0PP1 

D 

1 1 TO 

JPS 

l 

Absolute  value  of  phase  cut-off  option  code 

/XCODES/t 

152) 

AD1D3A 

I 

JPS 

BNTG 

PI 

JPS 

FNTG 

n 

JPS 

STP3 

I 

JPS 

T0L3 

I 

JPS 

JS 

I 

Absolute  value  of  arc  cut-off  option  code 

/XCODES/! 

153  ) 

ADICB3 

pi 

JS 

ADIC3A 

I 

JS 

ADID3A 

i 

JS 

BNTG 

pi 

JS 

FNTG 

n 

JS 

PROPB 

i 

JS 

PROPIN 

i 

JS 

' 

STP3 

I 

JS 

TQL3 

I 

JS 
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MATH 

syhbol 


DESCRIPTION 


5 TDRASE 
BLOCK  LOG 


S'JOR  CODE 


NON  I Number  of  elements  In  d»  /XCOOES/I  160)  A0EQ3A  I NON 

ADICB3  I NON 
AOI C3A  1 NCN 
AD103A  1 NCN 
ADJUST  1 NON 
AST3  n ncn 
BNTS  1 NCN 
BST03  I NCN 
HTX3A  1 NCN 
OUT  1 NCN 
PAY02  It  NCN 
TEST  It  NCN 
TOPfl  I NCN 
TRAN3  I NCN 
TRTOSZ  1 NCN 

NEQ  1 Number  of  integrated  states  /XCODES/I  162)  ADIC83  I NED 

ADI  C3A  I NEB 
AO  1 03 A I NEO 
ASETB3  I NEB 
AST  3 I NEO 
BSET3  I NEO 
BST03  1 NEQ 
NTX3A  I NEO 
OUT  I NEQ 
REU3  I NEO 
SDER3  I NEQ 
SDINP  It  NEQ 
TOPH  I NEO 
TRAN3  I NEQ 
YREF3  I NEB 


OltGZ 

u 

i 

Earth  rotation  rate  (RAO/SEC) 

/GLOBAL/l 

3) 

A0I03A 

I 

OltSZ 

CRASH 

I 

OltEGA 

DER3A 

I 

OltGZ 

E0UA3 

I 

OltGZ 

GE1NP 

I 

OltSZ 

WDDELA 

I 

ougz 

dodelb 

I 

OltGZ 

PDBC 

1 

OnGZ 

PDY3A 

I 

OltGZ 

SDINP 

I 

OltGZ 

, 

TOP  ft 

I 

OltGZ 

SFO 

h 

i 

Rate  of  change  of  cut-off  function 

/ ADI D3A/( * 

) 

AD  I D 3 A 

I 

SED 

sx 

an/ay 

i 

Partial  of  cut-off  WRT  state 

/ADID3A/C* 

) 

A0ID3A 

1 

SX 

XL 

- *.Cl. 

n 

riatna  of  adjoint  variables 

/ST  ATE3/( 

2A6  ) 

ADE33A 

H 

XL 

X ' J 

A0ICB3 

It 

XL 

ADI C3A 

11 

XL 

ADI D3A 

(1 

XL 

AST3 

It 

XL 

B5ET3 

0 

XL 

3STQ3 

I 

XL 

HTX3A 

I 

XL 

OUT 

I 

XL 

STAU 

It 

XL 

STVRL3 

I 

XL 

TRAN3 

It 

XL 

YOP 

I 

Array  of  state  derivatives  at  phase  end  points 

/STATE3/1 

32T  > 

Ap] D3A 

I 

YDP 

REU3 

0 

YOP 

YDS 

u 1 

I 

Array  of  state  derivatives  at  arc  end  points 

/STATE3/1 

507  ) 

A0ICB3 

I 

YDS 

y'v- 

ADID3A 

I 

YDS 

REU3 

0 

YDS 

STAU 

i 

YDS 

A01D3A 


SUBROUTINE 

AD1D3AC  JA  > 

ADIDSA 

2 

C 

COMPUTES  ADJOINT  DISCONTINUITIES  FOR  DIFFERENT 

CONN 

3, 

C 

SITUATIONS  USING  DIFFERENT 

ENTRY  POINTS 

CONN 

9 . 

C 

entry 

AOIDS= 

BRANCH  Z APPROACHING  TRUNK  OR  INTER  CONST 

AR 

CONN 

5 

c 

ENTRY 

ADI DSS 

= NORflAL  MDE 

CONN 

6 

c 

ENTRY 

AD  I DP 

= PHASE  CORNER 

i NORMAL  MODE 

CONN 

7. 

c 

CONN 

8. 

comron/global/ 

GLOBAL 

9, 

*6R 

,ER 

,OmGl  , 

XLAMRF 

, YMUPF 

,LU« 

global 

10. 

«,JJ0P(10) 

, l FATAL 

,NARC 

.NBRAN 

,NFARC 

, I DC  9 ) 

global 

11 

*,KTAB(  20  ), 

IT  ABC  20 

) , SI  G ,MAXTAB 

IPFLG1.  IPFL82. IPFLG3 

global 

12 

*,GH 

.PS1RF . 

.ipflgh.ineofl(eo) 

global 

13 

19. 

*, 1TPS0  , KSOL  , 

COfinON/6ENF/ 

KGLOBU  8 ) 

RETAP 

genf 

15. 

*OflG(20) 

,0nGP(20,21,VARO<9) 

.TOLC  9) 

,5 VARC 10) 

,«0C<  20) 

f 

GENF 

10. 

* AC  9 . 9 ) 

,AC0N<9>  ,6C0N<9) 

.CGTIC  9,9) 

, OCONC  9 ) 

.DTP 

r 

GENF 

17. 

*DT$ 

, DT 

,OP$a 

'a 

t 

GENF 

18. 

•R 

,RE 

, MACH 

,PA 

,R0 

,cs 

, 

GENF 

19. 

• VNU 

, PAR 

,RQR 

. CSR 

, VNR 

,$unso 

genf 

20 

•s  vso 

.TlflEPH 

, TIMES 

.TOP 

,TOS 

,TRC  9 ) 

genf 

21 

•TSTC  20  ) 

,TPH 

( 20 ), DISC  20  > 

.DIPC20) 

,T 

,U 

, 

genf 

22. 

*TLP1(20) 

'tlsi 

<20  >, DIP 1( 20 ) 

, D1S1C  20  ) 

.TIME 

, OMP 

, 

genf 

23. 

♦riflpR 

.LIFT 

, DRAG 

.TAX 

-TBURN 

,TBU( 20) 

genf 

29. 

»AE 

fFP 

,fpold 

,FPD 

,MACHR 

,nACHV 

, 

GENF 

25. 

•OR 

,FVAC 

. LIFTV 

GENF 

20. 

•LIFTS 

.LIFTA 

DRAGV 

,ORAGR 

,DR AGA 

GENF 

27. 

♦ 

LIFT* 

,OBR 

,00 

,1SP 

, ISPF 

. 

GENF 

28. 

* 

ULFT 

,ULFTV 

, ULFTR 

,ULFTA 

t 

GENF 

29. 

• XHCG 

, xncGv 

, xtncsR 

XMCGA 

,XP1C6M 

,COD«E 

t 

GENF 

30 

•CULFT 

,CT 

, calpha 

,CDE 

,OELTAE 

,S10 

GENF 

31 

• COD 

.S1DAE 

, XCG 

, ZCG 

GENF 

32. 

COMMON  / GENF  / 

genf 

33. 

•XJV 

, XJR 

, GH 

, GAMRAD 

, XXG 

, XKP 

genf 

39. 

•FRATED  , 

1 RATED 

genf 

35 

•PI 

,P2 

^P3  , 

XXI 

, XK2 

. XK3 

t 

GENF 

30. 

• XK1T 

XK2T 

,XK3T 

,XK1D 

, XK20 

, XX  30 

t 

GENF 

37 

• XK1A 

.XK2A 

,XK3A 

, XK  1 V 

, XK2V 

,XK3V 

genf 

38. 

• XK1G 

, XK2G 

, XK36 

. XK1P 

. XK2P 

. XK3P 

GENF 

39. 

• XKIR 

, XK2R 

, XK3R 

, XK10 

, XK20 

,XK30 

GENF 

90. 

• XK1U 

, XX2U 

, XK3U 

,xxin 

,XK2M 

,XK3« 

, 

genf 

91 

• PV 

. PG 

.PP 

.PR 

,P0 

.DPOVC  3,8) 

GENF 

92 

REAL  LIFTR  , LIFT  . LlFTA.LlFTM  . 

MACH, 

MACHR, 

GENF 

93. 

* ISP.  ISPF 

. HACHV 

.LIFTV  . RATED 

FRAT 

99. 

DIMENSION  TPHH  10>.TSTlciO) 

genf 

95. 

EQUl VALENCE t TLPl, 

TPHD.CTL51.TST1) 

GENF 

90. 

COMMON  /XCODES/ 

XCODES 

97 

*5T0  <91 

. ICOR 

t 20 ), ITI 

, INTB 

, JGIDC  20, 

2 >,JPH  (20,2), 

XCODES 

98 

*JST  < 20 ) 

, NCNST 

,NSB 

,NS  AB 

N I CNB 

XCODES 

99. 

• I20P 

,ICOP 

, IFAU 

, IFAR 

, IFB 

,IND 

XCODES 

50 

•IOPEH 

, IPH 

, ISPH 

, IS5T 

. I ARC 

, 1ST  ART 

XCODES 

51. 

• ITCT 

.ITER 

, I VAR 

,JX 

,JPS 

pJS 

XCODES 

52. 

• KOP 

, KPST 

, KST 

.NAD 

,NCASE 

XCODES 

53. 

• NCN 

. NEQB 

,NEfl 

, NOP 

,NPH 

XCODES 

59. 

*N$T 

, I PST 

,1 PR I NT 

,ISTN 

, IPHN 

, ISTNB 

XCODES 

55 

•IPHHB 

. I BLK1 

, I BLK2 

, ISTOP 

. I STPP 

,L 

XCODES 

50 

• IFOB 

,NB 

.LB 

.HB 

,NPHP 

,NPHB 

XCODES 

57 

•NCTIN 

, NE8F  . 

I LABC  Bl.JPRP.JGlI.MTT.MPl 

N(  20  ),  JP 1 , 

JP2, JP3 

XCODES 

58. 

COrmON/STAtE3/ 

STATE30 

59 

• VARC 19) 

.DYAR 

C 19 ),VARL  C 99  ) 

, DVAfU.1  99 ) 

,YOC  9) 

,5 VY l 10  ) 

51 ATE3D 

00 

• XU  9.9  ) 
•SI  WPS I 

, YDPl 20 

, 9 ), YDS  ( 20,9  )/ 

COSGAM 

.SlNGAn 

,S AVBPC  15  ) 

STATE30 

01. 

, COSPSI 

. SI NRHO 

, C05RH0 

, OCORHO 

,OC0RO2 

5TATE30 

02 

•SVBV  (9) 

,G«EGA 

.0MEGA2 

r 

S7ATE30 

03. 

• VDV 

, GDV 

, RDV 

,flDV 

,PDV 

, DDV 

STATE3D 

09. 

•UDV 

, VOG 

, GOG 

, F OG 

, PDG 

, OOG 

STATE3D 

05 

• UDG 

, VDR 

, GDR 

,pior 

.PDR 

, ODR 

S1ATE3D 

00 

• UDR 

, von 

, Gon 

,HDPl 

,P0« 

, VOP 

STATE30 

07. 

• GDP 

.POP 

, OOP 

,UOP 

,V00 

, GDO 

STATE3D 

68. 

•POO 

, UOO 

. HTDV 

, HTDR 

STBTE3D 

09. 

REAL  now  , 

MDV,  ADR 

STATE30 

70 

COrtrtON/ST  ATE3/ 

STATE30 

71 

•SIN2R0 

, CDS2R0 

, C0S2SM 

STATE3D 

72 

OIOENSION 

5X(  7 > 

A0IO3A 

73. 

c 

I SET 

UP  FDR  SECOND  BRANCH 

CORN 

79. 

ENTRY  AOIOS 

ADI03A 

75. 

J5KP=0 

A0I03A 
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76. 

141=  JA 

ADID3A 

77 

X2=  NCN 

ADI  03 A 

78. 

GO  70  10 

A0ID3A 

79. 

ENTRY  AOIOSS 

ADID3A 

80. 

Z 

11  SET  UP  FOR  NORMAL  BODE 

CDflN 

81 . 

15KP=© 

ADI  03 A 

82 

Nl=l 

AD103A 

83 

N2=NCN 

A0I03A 

8*t . 

10 

CONTINUE 

ADI  03 A 

85 

KIK=1 

ADID3A 

86 

IFCJS.LT.9)  GO  TO  HO 

ADI  03  A 

87 

KK=JS 

ADI  03 A 

88 

C 

III  COMPUTE  PARTI ALS  FOR  CUTOFF 

'UNCTION 

COrtN 

69 

DO  20  1=1. NEO 

ADID3A 

90 

20 

DVARt  I 1=  90S(  IARC-1,1  ) 

A0I03A 

91 

30 

CALL  PDBC(KK,DVARfLX,SF0#3f ISKP  ) 

AQID3A 

92 

HO 

GO  TO  ( 50,  100  ), K1K 

AD1D3A 

93. 

50 

CONTINUE 

AQ1 03 A 

9*4 

c 

!V  COMPUTE  ADJOINT  01SCDNT1NUITV 

FOR  ARC  CORNER 

CQAN 

95. 

c 

CO  PIN 

96 

DO  90  1=N1,N2 
11  = ITG(  1) 

ADI  03 A 

97. 

A0ID3A 

98. 

TT  = 0. 

A0ID3A 

99 

1F( II.EQ.l  ) TT=1- 

ADID3A 

100 

IFUI  ES  19. OR  11  EQ  20  ) TT  =Q«6Z 

AD103A 

101 

DO  60  1K=1 . NEO 

A0I03A 

102 

60 

TT  = TT  ♦ XL<IKfI>«  YDS(IARC-1,IK) 

ADID3A 

103 

IFtJS.ST.  9)  SO  TO  70 

A0ID3A 

10*4 

XUJS-Z.n  = XLtJS-2,1)  - TT  / VDSdARC 
GO  TO  90 

-1,35-2 ) 

ADI  03 A 

105 

A0ID3A 

106 

70 

DO  80  JJal.7 

A0ID3A 

107 

80 

XLUJ.I)  = XL(JJ,I1  - TT/5FD*SX(  JJ) 

AD103A 

108 

90 

CONTINUE 

ADI  03 A 

109 

RETURN 

A0103A 

no. 

c 

COflN 

111. 

c 

V COMPUTE  ADJOINT  DISCONTINUITY 

FOR  PHASE  CORNER 

COPIN 

112 

ENTRY  ADI  DP 

ADID3A 

113. 

IF<JPS.LT.9)  GO  TO  100 

ADI  03  A 

119. 

KK=  IPS 

ADID3A 

Hi. 

K I K=2 

AD1D3A 

in 

GO  TO  30 

A0ID3A 

117 

100 

CONTINUE 

ADI  03 A 

118. 

DO  1H0  X=J A.NCN 

ADI  03 A 

119 

TT  =0. 

ADID3A 

120 

DO  110  IK-1 , RED 

ADI  03 A 

121 

no 

TT  = TT  + XUlK.t)  *YDP( IPH-1.IK) 

ADI 03 A 

122 

IF( JPS.GT.9 ) GO  TO  120 

ADI  03 A 

123 

XUJPS-2.n  = XUJPS-2,1)  -TT  / Y0PC1PH 
GO  TO  1HC 

-1 , JPS-2  > 

ADI  03 A 

12** 

A0IO3A 

125 

120 

DO  130  JJsl.7 

XL(JJ,I>  = XLCJJ , 1 J - TT  /SFD  *SX(JJ> 

ADI03A 

126. 

130 

ADI03A 

127. 

1H0 

CONTINUE 

A0ID3A 

128 

RETURN 

ADID3A 

129 

END 

ADI  03 A 

B 


*10- 


To^ioon 


100- 


Uo-J 


120 

IhO 


i 
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SUBR0UT INE 
ADJUST 


£60 


Subroutine  ADJUST 


Purpose 

Subroutine  ADJUST  has  several  entry  points;  each  is  described  below.’ 
Description 


Entry  ADJUS.  This  entry  adjusts  initial  states  that  are  to  be  optimized. 

It  will  also  set  the  arc  time  optimization  flag,  ITI,  if  the  first  arc  time 
duration  is  to  be  optimized.  After  computing  the  adjustable  parameter 
increment  in  MTX1,  the  free  initial  state  is  adjusted  and  the  sensitivity  is 
removed  from  the  sensitivity  matrix.  The  number  of  free  parameters  is 
also  reduced  appropriately. 

Entry  AD  JIN.  This  entry  checks  for  arc  time  duration  optimization  in  the 
prior  arc.  If  it  occurs,  the  logic  eliminates  the  appropriate  elements  in 
the  sensitivity  matrix  and  reduces  the  number  of  free  parameters  by  one. 

The  entry  points  in  this  routine  are  called  by  FNTG. 

Entry  ADJUT.  This  entry  adjusts  the  free  arc  time  cut-off  value  using  the 

currently  computed  value  of  the  parameter  correction.  It  also  forces  a 

concurrent  phase-time  cut-off  to  occur  at  the  same  time  as  the  arc-time 
/ 

cut-off. 


261 


FQRIHAN 

SYnBOl 


OATH 

SYrtROL 


CODE 


DESCRIPTION 


S )Qii«  It 


BLiK* 


LOC 


SUBROUTINE  USAGE 
SUBm  COOE  VAR 


OPAR 
I ARC 


I COR 
I PH 


IPO  I NT 

I T I 

KST 

NCN 


NPAR 


I 

Adjustable  parameter  corrections 

/para n /t 

26*0 

ADJUST 

I 

OPAR 

DTX3A 

« 

OP  AR 

TOFU 

0 

DP  AR 

i 

Arc  nuubtr 

/ XCO  DCS  / ( 

1H6  ) 

A01CB3 

I 

I AR  C 

ADI  03  A 

I 

I ARC 

ADJUST 

I 

IARC 

A5T3 

1 

[ARC 

BNTG 

IT 

IARC 

ENVPRF1 

I 

IARC 

FNTG 

B 

IARC 

GET  IT 

I 

IARC 

.100ELA 

I 

IARC 

PROP  B 

1 

IARC 

PROPIN 

1 

IARC 

REU3 

I 

IARC 

SD1NP 

IT 

IARC 

STAU 

I 

IARC 

STP3 

I 

IARC 

TRTOSZ 

I 

IARC 

I 

Phase  sequence  array 

/XCOOES/I 

10) 

ADJU5T 

I 

ICOR 

FNTG 

1 

ICOR 

PRITSET 

I 

ICOR 

SD1NP 

(T 

ICOR 

I 

Phase  number 

/ XCODES/I 

IH3) 

A0103A 

I 

IPH 

ADJUST 

I 

IPH 

A5T3 

1 

IPH 

BNTG 

IT 

IPH 

FNTG 

IT 

IPH 

GETIT 

I 

IPH 

GUI  3 A 

I 

IPH 

SDINP 

IT 

IPH 

I 

Code  for  each  adjustable  parameter  In  steepest 

/parah  /< 

1 > 

ADJUST 

I 

IPO I NT 

descent « 

PRflSET 

I 

IPO INT 

SDINP 

0 

I P 0 1 NT 

STAU 

1 

IPOINT 

T0PP1 

0 

IPO  I NT 

n 

Optimized  arc  time  flag 

/XCODES/I 

30  ) 

ADJUST 

IT 

1TI 

FNTG 

1 

ITI 

SDINP 

0 

IT! 

I 

Arc  or  phase  cut-off  flag 

/XCOBES/l 

157) 

ADJUST 

1 

KST 

FNTG 

IT 

KST 

I 

Number  of  elements  In  6f 

/XCODES/I 

160  ) 

ADEQ3A 

I 

NCN 

ADI CB3 

I 

NCN 

A0IC3A 

I 

NCN 

ADID3A 

I 

NCN 

ADJUST 

I 

NCN 

AST  3 

IT 

NCN 

BNTG 

1 

NCN 

BST03 

1 

NCN 

ITT  X3A 

I 

NCN 

OUT 

1 

NCN 

P A Y02 

H 

NCN 

TEST 

IT 

NCN 

TOPIT 

I 

NCN 

TRAN3 

I 

NCN 

TRTOSZ 

1 

NCN 

n 

Running  count  of  number  of  adjustable  parameters  to 

/PARAIT  /i 

It) 

ADJUST 

IT 

NP  AR 

be  perturbed  on  remainder  of  trajectory 

FNTG 

I 

NPA 

ITTX3A 

I 

NPA 

TOPIT 

D 

NPA 
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FORlftAN 

SYMBOL 


MATH 

symbol 


code 


DESCRIPTION 


SUBROUTINE 
SU6R  \,O0E 


NPARA 

i 

Number  of  adjustable  parameters  in  trajectory 

/PARAM 

/( 

13  ) 

ADJUST 

1 

NPARA 

problem. 

BNTG 

1 

NPARA 

FNTG 

I 

NPARA 

MTX3A 

I 

NPARA 

PAY02 

I 

NPARA 

PRMSET 

I 

NPARA 

SDINP 

M 

NPARA 

STAU 

I 

NPARA 

TEST 

I 

NPARA 

TOPM 

D 

NPARA 

OPIS 

Q 

M 

Array  of  arc  cut  off  values  tsd3 

/GENF 

/( 

l ) 

ADJUST 

M 

OMG 

j 

FNTG 

I 

OMG 

prmset 

M 

OMG 

PROPS 

1 

OMG 

SDINP 

n 

OMG 

STP3 

i 

OMG 

TOPM 

D 

I OMG 

OMGP 

0 

Array  of  phase  cut  off  values  Esd3 

/ GENF 

/( 

21  > 

ADJUST 

0 

OMGP 

FNTG 

n 

OMGP 

PRMSET 

0 

OMGP 

SDINP 

M 

OMGP 

QMP 

0 

Phase  cut-off  value 

/GENF 

/( 

*m> 

ADJUST 

0 

OMP 

FNTG 

M 

OMP 

STP3 

I 

OMP 

PARA 

p 

1 

Adjustable  parameter  nominal  values. 

/PARAM 

/( 

252  ) 

ADJUST 

I 

PARA 

r 

PRMSET 

n 

PARA 

TOPM 

0 

PARA 

SPAfiA 

I 

Matrix  of  adjustable  parameter  sensitivities 

/PARAM 

/( 

15  ) 

ADJUST 

I 

SPARA 

S ‘ 

(including  all  parameters) 

PAY02 

I 

SPARA 

STAU 

M 

SPARA 

TOPM 

D 

SPARA 

SPARB 

s*« 

0 

Matrix  of  adjustable  parameter  sensitivities 

/PARAM 

/( 

HA  ) 

ADJUST 

0 

SPARB 

(Contains  only  elements  corresponding  to  parameters 

MTX3A 

I 

SPARB 

yet  to  be  adjusted) 

TOPM 

u 

SPARB 

SVAR 

Y 1 t=o 

0 

Array  of  state  values  at  initial  problem  time  Csd) 

/GENF 

/( 

75  1 

ADJUST 

0 

SVAR 

BNTG 

I 

SVAR 

FNTG 

I 

SVAR 

PRMSET 

M 

SVAR 

REU3 

I 

SVAR 

SDINP 

M 

SVAR 

TEST 

I 

SVAR 

TOPM 

I 

SVAR 

TRTOSZ 

I 

SVAR 

S2 1 NV 

tSS] 

0 

Parameter  sensitivity  contribution  to  A matrix 

/PARAM 

/( 

276) 

ADJUST 

0 

S2INV 

MTX3A 

M 

S2INV 

PAY02 

n 

S2INV 

TOPM 

D 

S2INV 
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VAR  V m Rtl.tly*  v 1 1 oc 1 1 y (FT/SEC)  /STATE3/1  i)  ACCEL  1 V 


AD1C83 

0 

VAR 

ADJUST 

Ft 

VAR 

AGETB3 

0 

VAR 

AST3 

I 

VAR 

BIN 

I 

V 

BL7 

I 

V 

BL8 

I 

V 

CON  3 

I 

VAR 

DER3A 

I 

V 

DTF3 

I 

V 

ENVPRM 

I 

VAR 

EC  U A3 

I 

V 

F100ELA 

I 

V 

P10DELA 

I 

VAR 

F1QDELB 

I 

V 

F1TX3A 

I 

VAR 

OUT 

I 

V 

OUT 

I 

VAR 

POBC 

I 

V 

P0Y3A 

1 

V 

REU3 

n 

VAR 

RKTA3A 

n 

V 

STP  3 

I 

VAR 

TOPM 

D 

KUIQU 

YREF3 

n 

V 
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ADJUST 


1. 

subroutine  oojust 

ADJUST 

2 

C 

COMN 

3. 

C 

COMPUTES  adj 

U5TMENTS  IN 

GPTIMI ZED 

INITIAL 

STATES 

COMM 

H 

cgmmon/sen ff 

6ENF 

5. 

♦0HGC20) 

,OrtGP( 20. 

2 ).  VARIK  9 ) 

,TOL(  9) 

SVARC 10 ) 

i ,«0C(20) 

f 

GENF 

6. 

*A(  9, 9 ) 

,AC0N(9) 

,3C0H(  9 I 

, COTK  9.9) 

, DCONt  9 ) 

, DTP 

t 

SENF 

T . 

♦OTS 

,DT 

,6 

,dpso 

,8 

,as 

, 

BENF 

8. 

♦R 

,RE 

,«ACH 

,PA 

> 

,C5 

, 

GENF 

9. 

♦ VNU 

.PAR 

,ROR 

,CSR 

.VNR 

.SUMSO 

/ 

6ENF 

10. 

♦ SVGA 

-TIMEPH 

.Tints 

,TOP 

,705 

,TRC  9 ) 

/ 

GENF 

11 

♦T$T(2G> 

,TPH  ( 20 1,0IS( 20 ) 

f DIP120) 

,T 

« 

GENF 

12 

♦TLP1C 20) 

,TLS 1 ( 20 1 . 01 Pl( 20  ) 

.D1SU2C) 

.TIME 

,OMP 

GENF 

13. 

♦TIMPR 

.LIFT 

, on  as 

.TAX 

TBORN 

T BlK  20  ) 

GENF 

19. 

♦ AE 

,FP 

.FPDLO 

.FPP 

, HACHR 

, MACHV 

SENF 

15. 

♦ QR 

,av 

,fvac 

,LIFTV 

GENF 

16 

•LIFTR 

, LlFTA 

DRASV 

r OR  ASfi 

-DRAGA 

GENF 

17. 

* 

LIFTM 

,BBR 

,DB 

,1SP 

, iSPF 

t 

6ENF 

18. 

* 

ULFT 

. ULFTV 

. ULFTR 

,ULFT A 

f 

GENF 

19. 

♦ xmcg 

,XMCGV 

.xntfiR 

. XMCGA 

, XMCGM 

, COD AE 

r 

GENF 

20. 

♦CULFT 

, CT 

.CALPHA 

CDE 

-OELTAE 

,510 

t 

GENF 

21 

♦COD 

5IDAE 

, XCG 

, ICG 

,XJ 

GENF 

22 

COMMON  / 

GENF  / 

GENF 

23. 

♦ XJV 

, XJR 

,GH 

, GAMMAD 

, XK6 

,XXP 

GENF 

29. 

♦prated 

.IRATED 

GENF 

25. 

♦PI 

,P2 

>3 

XXI 

, XX2 

, XX3 

GENF 

26 

♦ XK1T 

. XK2T 

,XX3T 

, XX1D 

.XK2D 

, XK30 

GENF 

27. 

♦ XX1A 

. XK2A 

. XK3A 

.XXIV 

. XX2V 

, XX3V 

GENF 

28. 

♦ XK1G 

. XK2G 

,XK3S 

,XK1P 

, XX2P 

, XX3P 

GENF 

29 

♦ XK1R 

,XK2fi 

. XK3R 

,XK10 

. XX20 

, XX30 

t 

GENF 

30 

♦ XK1U 

, XK2U 

,XX3U 

,xxin 

. XX2M 

, XK3M 

GENF 

31 

♦PV 

,PG 

,PP 

.PR 

,P0 

, DPDY( 3,8 ) 

GENF 

32. 

REAL  L1FTR  . LIFT 

. LIFTA. LIFTM  . 

MACH, 

nftCHR, 

GENF 

33 

♦ ISP.  1SPF.  MftCHV.LlFTV  . IRATED 

FRAT 

39 

DIMENSION  TPH1( 10). 

TSTl(IO) 

GENF 

35. 

EflUl VAL£NCE( TLPl.TPHl >.<TLSl.T5Tt) 

GENF 

36. 

cennoN/STATE3/ 

STATE3D 

37. 

♦ VAR( 1H> 

, DVAR  (1H),VARL  (99) 

.DVARU99  > 

, Y0(  9 ) 

,SVV< 10) 

5TATE3D 

38 

♦ XU  9 1 

,Y0P(20,9).YD5  (20,9). 

COSGAM 

,singah 

, SAVBPl 15  > 

t 

STATE3D 

39. 

♦S1NPS1 

COSPSI 

, SIN9H0 

, COSRHO 

,OCORHO 

, 0C0FG2 

f 

STATE3D 

HO 

♦SVBV  (9 

) .OMEGA 

,0«ESA2 

STATE3D 

HI 

* VDV 

, GDV 

,Rov 

'«DV 

,PDV 

,DDV 

r 

STATE30 

H2. 

♦ UBV 

,VDG 

,GDG 

,RDG 

, PDG 

,ODG 

w 

STATE30 

H3. 

♦ UD6 

, VDH 

. SDR 

,MDR 

,PDR 

,ODR 

9 

STATE3D 

H«l_ 

♦uon 

, VDM 

.Eon 

_ «orq 

, PDM 

,VDP 

STATE3D 

H5. 

♦ GOP 

.POP 

,DDP 

, UDP 

,voo 

,GDO 

# 

STATE3D 

H6. 

♦PDO 

,UDO 

,KTDY 

,HTDR 

STATE3D 

H7. 

REAL  rttin 

. MOV.  ADR 

STATE3D 

H8. 

CCMM0N/STATE3/ 

STATE3D 

H9. 

♦SIN2R0 

, C052RG 

,0052611 

STATE3D 

50. 

CGrtnQH/PAfiAn/ 

°AR AM  ' 

51 

♦ IfOINTI  12).KPARA.NPA  . SPAHAC 9 . I Z ) .UTPD  19 

) . UTP  (12). 

PARAN 

52 

♦5P ARB( 0 . 12  ) , PAR A( 

12>,DPARl  12) 

.52INV( 9,9) 

PARAM 

53. 

».OELP( 9 ) 

PARAM 

5H. 

COMMON  /XCODES/ 

XC0DE5 

55 

*na  ( 9 ) , I COR  <201, ITl 

.INTO 

.JGUU20, 

2 ) . JPH  (20.2), 

XCODES 

56 

♦JST  (20) 

>NCNST 

, NSB 

, NS  AB 

, N1CNB 

XCODES 

57. 

♦ I20P 

,ICOP 

, IFAW 

. 1 FAR 

'IFB 

, 1 NO 

XCODES 

58. 

♦ I OPEN 

,IPH 

,ISPH 

, I SST 

. I ARC 

, I5T  ART 

XCODES 

59. 

♦ ITCT 

.ITER 

, I VAR 

,JX 

.JPS 

,J$ 

w 

XCODES 

60 

♦ XQP 

,XPST 

,* 

,K5T 

, NAD 

, NCA5E 

t 

XCODES 

61. 

♦NCN 

.NEQB 

z NEQ 

, NOP 

, NPH 

XCODES  ! 

62. 

♦ NST 

,1PST 

, IPRl NT 

,ISTN 

,IPHN 

, ISTNB 

XCODES  1 

63. 

♦1PHNB 

.JBLXl 

, I BLK2 

, I STOP 

, ISTPP 

/ L 

, 

XCOOES  i 

6H. 

♦ IFOB 

,NB 

, LB 

.MB 

. NPHP 

-NPH8 

XCODES 

65 

♦NCI IN 

.NEOF  .ILAB(  8).  JPRP.JSU  .MTT.MPI  N(  201.JP  1. 

JP2  JP3 

XCODES 

66 

EOUI VALENC£(  NP A, HP  AR ) 

ADJUST 

67. 

ENTRY  AO JUS 

ADJUST  i 

68 

C 

I THIS 

COMPUTES 

ADJUSTMENTS 

IN  INITIAL  CONDITIONS 

ADJUST  ! 

69 

C 

IA  SCAN 

THE  POINTER  ARRAY  FOR  INITIAL  STATES 

AND  FIRST 

ADJUST 

70. 

NPAfl  = NPARA 

AO  JUST 

71 

C 

RESET 

initial  states 

AO JUST 

72- 

DO  10  1=1 

, NPARA 

ADJUST 

73. 

IF(  IPOINTi  IKLE.21) 

GO  TO  10 

ADJUST 

79. 

KK=IP0INT(  IH1 

ADJUST 

75 

VAR(KK)=PARA( I 1 

ADJUST 
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76 

SVAACKK+l  >=VAflUK) 

ADJUST 

77 

10 

CONTINUE 

ADJUST 

76. 

C 

COMN 

79 

C 

I-B  SAVE  5EN51T1 V1TI ES  FOR  USE  IN 

MTX 

comn 

60. 

c 

COMN 

81 

00  20  1=1, NCN 

adjust 

62 

00  20  Jsi  NPftflA 

adjust 

83. 

20 

$PARBU.J)=  SPARACI.J) 

ADJUST 

89 

c 

ARC  TIME  DURATION 

ADJUST 

85 

IT!  - 0 

ADJUST 

86. 

KM=0 

ADJUST 

87 

20 

CONTINUE 

ADJUST 

88. 

CALL  MTX 

ADJUST 

89 

CALL  NT XI 

ADJUST 

90 

c 

COMN 

91 

c 

1-C  COMPUTE  INITIAL  5TATE  CORRECTIONS 

COMN 

92. 

c 

AND  REMOVE  SENSITIVITY  FROM  MATRIX 

COMN 

93. 

DO  UO  1 = 1 , NP  ARA 

AOJUST 

99. 

IFtIPOINTt I >.EQ  1 ) ITI=1 

ADJUST 

95 

IFUPOINTt  I >.LE  21)  60  TO  110 

ADJUST 

96 

KK-  IP01NTC i 1 - 21 

AOJUST 

97. 

VAR(  XX  > = PARAU)  ♦ DPARU) 

ADJUST 

98. 

5VAR(  KK+1  >=  VAR(KK) 

ADJUST 

99 

NP AR  = NPAR-1 

ADJUST 

100 

DO  100  J=1 , NCN 

AOJUST 

101. 

100 

SPARBU,  I )=0 

ADJUST 

102. 

no 

CONTINUE 

ADJUST 

103 

DO  120  J=l, NCN 

ADJUST 

109 

00  120  1=1, NCN 

AOJUST 

105. 

120 

S2INV( I J )=0 

AOJUST 

106 

RETURN 

ADJUST 

107 

c 

COMN 

108. 

c 

ENTRY  TO  ELIMINATE  ARC  TIME  SENS. 

FROM  MATRIX 

COMN 

109. 

c 

COMN 

no. 

ENTRY  ADJIN 

ADJUST 

Ill 

c 

IV  TEST  FOR  PREVIOUS  ARC  5TAG1NG 

ADJUST 

112 

JFCITI  EO  0)  SO  TO  150 

AOJUST 

113 

NP  AR  = NP  AR- 1 

ADJUST 

119. 

DO  130  1=1, NCN 

ADJUST 

115 

130 

SPARBU,  IT!  )=  0 

AOJUST 

116 

IT  1=0 

ADJUST 

UT 

DO  190  1=1, NCN 

ADJUST 

118. 

DO  190  Jsl.NCN 

ADJUST 

119 

190 

S2INVC I .J )=0. 

ADJUST 

120. 

I Ft  NP AR  FO  0>  RETURN 

ADJUST 

121 

c 

111  SCAN  FOR  ARC  TIME  ADJUSTMENT 

AOJUST 

122. 

ITI  = 0 

ADJUST 

123. 

150 

00  UO  1 =1  NPflflfi 

ADJUST 

129 

IFC IPOINTt I )-E0  I ARC > ITI  =1 

ADJU5T 

125 

uo 

CONTINUE 

ADJUST 

126. 

RETURN 

ADJUST  , 

127. 

ENTRY  ADJUT 

ADJUST 

128 

c 

IV  ADJUST  STABINS  time 

ADJUST 

129 

c 

IVA  TEST  FOR  WHETHER  ARC  TERMINATION 

HAS  STARTED 

A0JU5T 

130. 

1FIKST.GT  0)  RETURN 

ADJUST 

131 

OMG(IARC)  = PARAC  ITI  ) + DPARCITI  ) 

ADJUST 

132 

c 

1 VB  TEST  FOR  CONCURRENT  PHASING 

ADJUST 

133. 

IF(ICOFUPH)  ST  . 1 ARC  ) RETURN 

ADJUST 

139 

OMGP  t I P H . 2 ) sOMBIIARC) 

ADJUST 

135. 

OMPi  OMGCIARO 

ADJUST 

136 

RETURN 

AOJUST 

137 

END 

ADJUST 

150-j 
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Subroutine  AGETB3 


Pu rpose 

Folchon  state  and  control  from  random  access  file  for  use  in  adjoint  solution. 
Description 

This  routine  has  two  entry  points. 

Entry  BEGNA:  This  entry  initializes  reading  the  forward  trajectory  at  final 

trajectory  time.  This  initialization  involves  determining  the  last  buffer 
number  that  was  written  into  and  how  many  words  were  written  there.  Start- 
ing from  there  the  program  may  proceed  backwards  to  extract  data  at  mono- 
tonically  decreasing  time  points  to  correspond  exactly  with  the  adjoint 
integration  time  points.  BEGNA  is  called  from  BNTG. 

Entry  AGETB:  This  entry  simply  steps  backward  in  the  buffer  array  and 
loads  the  trajectory  data  into  the  appropriate  common  locations.  When  the 
starting  location  of  the  buffer  is  reached,  the  next  lower  buffer  is  loaded  in 
from  the  random  file  and  the  process  of  backward  data  extraction  starts 
over.  AGETB  is  called  from  MODELB. 


nai  h 

livrmoi 


DESCRIPTION 


5 TQfiARE 
BLOCK  LOC 


APHR 

ct 

0 

Angle  of  attack  (OEG) 

/ AECO  3 /< 

i > 

AGETB3 

0 

AP  HR 

- 

AST3 

FI 

AP  HR 

BEROCO 

I 

AP  HR 

BLGCON 

0 

APHR 

GUI  3 A 

M 

AP  HR 

MODELA 

M 

APHR 

MODELS 

I 

‘APHR 

MTX3A 

0 

APHR 

OUT 

I 

APHR 

E 

I 

Storage  retrieval  buffer 

/AGETB3/1 * 

) 

ASETB3 

I 

E 

FTIME 

0 

Tine  at  ahich  trajectory  data  set  Is  stored. 

/RETREV/l 

I ) 

ASETB3 

0 

FTIME 

( SEC) 

AST3 

0 

FTIME 

GET  IT 

I 

FTIME 

TRAN3 

I 

FTIME 

1BLK2 

FI 

Storage  retrieval  buffer  counter 

/XCOOES/C 

ns ) 

AGETB3 

M 

IBLK2 

AST3 

FI 

IBLK2 

1BUF2 

n 

Counts  nuaber  of  buffers  as  foraard  trajectory  data 

/RETREV/t 

9) 

AGETB3 

M 

IBUF2 

is  retrieved  froa  randoa  file. 

AST3 

M 

IBUF2 

IFAR 

I 

File  ahere  nominal  trajectory  data  is  read  froa 

/XCODES/i 

139  1 

AGETB3 

I 

IFAR 

AST3 

I 

I FAR 

TOPM 

m 

IFAR 

IPHN 

FI 

Stored  history  data  phase  nuaber 

/XCODES/I 

1T0  ) 

A3ETB3 

M 

IPHN 

AST3 

M 

IPHN 

GET1T 

I 

IPHN 

ISTN 

0 

Stored  history  data  arc  nuaber 

'/XC0D£S/( 

169  ) 

AGETB3 

0 

ISTN 

AST3 

0 

ISTN 

GETIT 

I 

ISTN 

TRAN3 

I 

ISTN 

JP1 

PI 

Option  flag  for  first  governing  equation 

/XCODES/I 

217  1 

AGETB3 

M 

JP1 

AST3 

M 

JPI 

MODELA 

M 

JP1 

MOBELB 

I 

JPI 

PROPB 

0 

JPI 

PROPIN 

0 

JPI 

JP3 

a 

Option  flag  for  third  governing  equation 

/XCOOES/l 

219  ) 

AGETB3 

D 

JP3 

A5T  3 

M 

JP3 

MDDtLA 

M 

JP3 

MODELS 

I 

JP3 

OUT 

I 

JP  3 

PROPIN 

0 

JP3 

MAX  A 

i 

Nuaber  of  aords  in  last  stored  partial  buffer  of 

/RETREV/I 

3 ) 

AGETB3 

1 

MAXA 

trajectory  data  MAXAI  1 ) corresponds  to  randoa  file 
3?  MAXAI2)  corresponds  to  randoa  file  NO. 

AST3 

M 

MAX  A 

MI  X A 

i 

Maximum  noaber  of  aords  in  trajectory  data  buffer  = 

/RETREV/I 

12) 

AGETB3 

I 

MI  XA 

990. 

AST  3 

I 

MI  XA 

SDINP 

I 

MIXA 

TQPPI 

0 

MI  XA 

MXA 

i 

index  of  last  stored  aord  in  full  buffer  of  foraard 

/RETREV/I 

IS) 

AGETB3 

I 

MX  A 

trajectory  data. 

AST3 

1 

MX  A 

SDINP 

0 

MXA 

NBUFA 

i 

Nuaber  of  buffers  of  trajectory  data  stored  on 

/RETREV/I 

6 ) 

AGETB3 

I 

NBUFA 

randoa  files  39  and  90  respectively. 

AST3 

M 

NBUFA 
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NEO  I Nuober  of  Integrettd  (fatal 


PHID  * 0 lank  snglt 


VAR  v 0 Relative  velocity 


/XCOOES/( 


(DEG)  / AEC03  /( 


CFT/SEC)  /STATE3/< 


ADI C63 

I 

NEO 

ADI C3A 

I 

NEO 

A0I03A 

I 

NEB 

AGETB3 

I 

NEB 

AST3 

I 

NEO 

BGET3 

I 

NEO 

B5T03 

I 

NEB 

P1TX3A 

I 

NEB 

OUT 

I 

NEB 

REU3 

I 

NEB 

SDER3 

I 

NEB 

SDINP 

n 

NEB 

TOPm 

i 

NEB 

TRAN3 

i 

NEB- 

YREF3 

i 

NEB 

AGETB3 

0 

PHIB 

AST3 

n 

PHI  D 

GUI3A 

ps 

PHIO 

rtODELA 

n 

PHIO 

P10DELB 

i 

PHID 

HTX3A 

0 

PHIO 

OUT 

i 

PHID 

ACCEL 

i 

V 

ADICB3 

0 

VAR 

ADJUST 

n 

VAR 

AGETB3 

D 

VAR 

AST3 

i 

VAR 

BL*t 

i 

V 

BL7 

i 

V 

BLS 

i 

V 

COM3 

i 

VAR 

DER3A 

i 

V 

DTF3 

i 

V 

ENVPRM 

i 

VAR 

ESUA3 

i 

V 

PICOELA 

i 

V 

P1DDELA 

i 

VAR 

PIODELB 

i 

V 

PITX3A 

i 

VAR 

OUT 

! 

V 

OUT 

1 

VAR 

PDBC 

I 

V 

P0Y3A 

I 

V 

REU3 

H 

VAR 

RKTA3A 

n 

Y 

STP3 

I 

VAR 

T0PD 

D 

KUOU 

YREF3 

ft 

V 
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AGETB3 


1. 

SUBROUTINE  A6ETB3 

AGETB3 

2. 

C 

CONN 

3. 

C 

FETCHES  STATE  AND  CONTROL 

FROfl  RANOOrt  ACCESS  FILE 

CC«N 

9. 

C 

FOR 

USE  IN 

ADJOINT  SOLUTION 

CONN 

5. 

C 

ENTRY  BEGNA 

INITIALIZES 

BUFFERS 

CO  (IN 

6. 

c 

ENTRY  AGETB 

FETCHES  DATA 

conN  ■ 

T 

COPWOH/RETREV/  FTIKE. BTlfiE. HAXA< 2 } NAXB 

RETBEV 

8. 

COnnON/RETREV/ 

RETREV 

9. 

*NBUFA(2> 

, I BUF1 

,1BUF2 

, NBFA 

, NBFB 

,mxA 

, 

RETREV 

10. 

•HIXB 

,nxA 

,(9XB 

,NPTA 

,NPTB 

, I BLKB 

RETREV 

11- 

•. NBUFB 

. I BUFB 

RETREV 

12. 

COmON/STATE3/ 

STATE30 

13. 

* VARt 191 

, DVAR  ( 

14),VARL  (99) 

,0VARU99> 

, Y0( 9 ) 

, SVYt 10) 

STATE30 

1** 

•XL19.9) 

, YOPt  20 

9 ),YQ5  ( 20,9  >, 

, COSSAR 

,SI HSArt 

, S AVBP ( 15  > 

STATE30 

15. 

•SINPSI 

.COSPSI 

-SINRHO 

, COSRHO 

,OCORHfl 

, GCDRQ2 

STATE30 

16. 

• SVBV  ( 9 1 .OMEGA 

,0HESA2 

STATE3D 

17. 

*VDV 

,60V 

,RDV 

, nov 

,PDV 

,00V 

STATE3D 

18. 

•UDV 

, V06 

,SD6 

,R06 

,PDG 

,006 

STATE30 

19. 

•UOG 

, VOR 

,508 

,MDP 

, PDR 

,ODR 

STATE30 

20. 

♦UOR 

, von 

,60* 

,non 

.PDA 

,VOP 

STATE30 

21. 

* GDP 

,PDP 

,0DP 

. UDP 

, VDO 

, GOO 

STATE3Q 

22. 

•POO 

, UD0 

.htoy 

, HI  DR 

STATE3D 

23. 

real  non 

, nov.  «DR 

STATE30 

29. 

COnnON/STATE3/ 

STATE30 

25. 

•SIN2R0 

.CQS2R0 

,C0S2GH 

STATE30 

26. 

CO«nON/AEC03/ 

AEC03 

27. 

•APHO 

, APHR 

.ALPHA 

, VDA 

, GOA 

.PDA 

AEC03 

28. 

•SINA 

, COS  A 

_PHI0 

,PHID 

,PHI 

, SI NPHI 

AEC03 

29". 

•COSPHI 

,60PH 

,PDPH 

,XLARA(  9) 

,XLAHP(9> 

, COD 

AEC03 

30. 

♦coon 

, CLO 

,FK 

,xcGn 

,zcsn 

,CLon 

AEC03 

31. 

*CK 

,CWA 

.CrtAn  ,cnn 

,cno 

,cnon 

,fxh 

AEC03 

32. 

•CLAN 

,CL 

'CLA 

,CLN 

AE  CO  3 

33. 

• CO 

.COA 

,con 

AEC03 

39. 

conflow  /: 

XCODES/ 

XCODES 

35. 

*1TQ  ( 9 ) , I CDR  C201.ITI 

, 1 NT  B 

, JGID(  20, 

2 ) , JPH  (20,2). 

XCOOES 

36. 

•JST  (20) 

, NCNST 

,NSB 

,NSAB 

.NICNB 

, 

XCOOES 

37. 

•I20P 

,ICOP 

, I FAN 

, I FAR 

,ifb 

,INO 

XCOOES 

38. 

•IOPEN 

, IPK 

, 1SPH 

, 1S5T 

, I ARC 

, I ST  ART 

XCODES 

39. 

•1TCT 

, ITER 

, I VAR 

,JX 

,JPS 

,JS 

XCODES 

90. 

•KOP 

, KPST 

,« 

,*ST 

,NAD 

, ncase 

, 

XCOOES 

91. 

•NCN 

, NEQB 

, NEO 

, NOP 

,NPH 

,N 

XCOOES 

92. 

• HST 

, 1PST 

, 1PRINT 

,I$TN 

, I PHN 

. 1STNB 

, 

XCOOES 

93. 

♦ IPHNB 

, 1 BLK1 

, I BLK  2 

, ISTOP 

-1STPP 

.L 

XCODES 

99. 

*1F0B 

, NB 

.LB 

. NPHP 

-NPHB 

XCOOES 

95. 

•NCT1N 

. NEQF  . ILABt fl JPRP. J GI I .nTT.RPlNt 201.JP 1. 

JPi,JP3 

XCOOES 

96. 

COPmON/GENF/ 

GENF 

97. 

•onst20) 

,0«GP120 

,Z),VARQC9) 

,T0L(9) 

,svar< io) 

,UCCt  20) 

GENF 

98. 

^(9,9,) 

,AC0N(9) 

,BC0N<9) 

, CDTK  9,91 

, DCDN( 9 ) 

, OTP 

GENF 

99 

• DTS 

,0T 

,G 

,OPSQ 

,a 

.OS 

, 

GENF 

50. 

•R 

,RE 

,HACH 

,PA 

,R0 

,cs 

, 

GENF 

51. 

•VNU 

,PAR 

, RGB 

,CSR 

,«NR 

,sunsa 

, 

6ENF 

52. 

•SV50 

.TlflEPH 

.TINES 

,T0P 

,TOS 

,TRT  9 ) 

9 

GENF 

53. 

•TSK20) 

,TPH  (20>,DIS(20) 

, 0 IP ( 20  > 

,T 

9 

GENF 

59. 

•TLPK20) 

,TLS 1 ( 20  ) . 0IP1(  20 ) 

,0151(20) 

,TIrtE 

,onp 

GENF 

55- 

•TJrtPR 

, LIFT 

, DRAG 

,TAX 

,TBURN 

,TBU(  20) 

GENF 

56 

*AE 

,FP 

,FPOLD 

,FPO 

, HACHR 

,H»CHV 

GENF 

57. 

•OR 

,ov 

,FVAC 

, LIFTV 

GENF 

58. 

•LIFTR 

, LIFTA 

DR  AG  V 

’□RA6R 

.ORASA 

GENF 

59. 

* 

LIFTR 

, dbr 

, OB 

,,ISP 

,fSPF 

SENF 

60. 

* 

ULFT 

,ULFT V 

, ULFTR 

, ULFT A 

M 

GENF 

61. 

♦xncG 

,XAC6V 

, XflCGR 

, XnCGA 

,xncsn 

, COOAE 

, 

GENF 

62. 

•CULFT 

,CT 

.CALPHA 

, COE 

,0£LTAE 

,S1D 

, 

SENF* 

63. 

• COD 

.S1DAE 

, XCG 

,ZCG 

,XJ 

GENF 

69. 

COflUON  / 

GENF  / 

GENF 

65. 

• XJV 

. XJR 

, GK 

, GftnnftO 

,xce 

,XXP 

SENF  , 

66. 

•FRATEO 

.IRATEO 

GENF 

67 

•PI 

/P2 

>3 

, XKl 

,XX2 

, XX3 

9 

GENF 

68. 

♦ XK17 

z XK2T 

, XK3T 

, XX1D 

, XX2D 

, XX30 

GENF 

69. 

•XK1A 

, XX2A 

, X1C3A 

, xnv 

, XX2V 

, XX3V 

GENF 

70. 

•XK16 

. XK2G 

, XR36 

,XX1P 

, XX2P 

,XX3P 

GENF 

71. 

• XX1R 

,XK2R 

, XK3R 

,xxio 

, XX20 

,XK30 

GENF 

72. 

•XXIU 

. XK2U 

,XK3U 

,XKin 

,XX2B 

, XX3H 

9 

GENF 

73. 

•pv 

. P6 

.PP 

.PR 

,P0 

, OPBYI  3,8) 

GENF 

79. 

REAL  LIFTR  , LIFT 

, LIFTA, LIFTN  . 

DACH, 

NACHR, 

SENF 

75. 

• 1SP/  ISPF,  HACHV, 

L1FTV  , ffiATED 

FRAT 
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76 

77 
78. 
79 
80. 
81. 
82. 
83. 
8 4. 

c 

DIMENSION  TPHU101.TSTK  10) 

EQUI YALENCEt  TLP1,TPM1),(TL51,TST1) 

OlnENSION  E(990) 

! INITIALIZE  BUFFER  NUMBER  ANO  READ 

ENTRY  BESNA 
XK=  NE0*1 

IBUF2  =NBUFA(  1FAR-381  *1 
I BLUE  = nAXftllFAR-38)  .1 
SO  TO  20 

FILE 

6ENF 

GENF 

AGETB3 

CORN 

A6ETB3 

AGETB3 

AGETB3 

AGETB3 

ASETB3 

85. 

10  IFiIBUFZ.LE.  n RETURN 

ASETB3 

86 

1BLK2  - niA  + 1 

AGEIB3 

87 

20  18UF2  = IBUF2  -1 

ASETB3 

88. 

CALL  REAOMSt 1FAR,E,RIXA,IBUF2) 

ASETB3 

89. 

RETURN 

A6ETB3 

90. 

ENTRY  ASETB 

A&ET&3 

91. 

C 

CO** 

92. 

c 

II  EXTRACT  DATA  FROM  BUFFER 

CONN 

93. 

IBLK2  - IBLK2-1 

AGETB3 

94. 

PHID=  E< IBLK2) 

ASETB3 

95 

I BlX2=  IBLK2  -1 

AgET  03 

96. 

APHR  = E( 1BLK21 

ASET&3 

97 

DO  00  1=1, NEB 

ASETB3 

98. 

IBLX2  = IBLK2-1 

ASETB3 

99 

JJ  = XX-I 

AGETB3 

100. 

30  VAR(  JJ)  = Et  IBLK2) 

ASETB3 

101. 

FT1BE  = EUBLX2-11 

ASETB3 

102 

IPHN=E(  I BLX2-2 1/10000 

P014 

103 

JP1  = t Et lBLX2-2)-10000»IPHN)/100 

P014 

104 

JP3=  Et I BLR 2— 2 1 - 10006*IPHN  - 100*JP1  *.Z 

PO 19 

105 

ISTN  = Et I BLX2-3 1 

ASETB3 

106. 

I BLX2  = 1 BLK2-3 

ASETB3 

10T. 

lFUBLX2.LE.il  60  TO  10 

ASETB3 

10B. 

c 

CQHM 

109. 

c 

III  IF  BUFFER  EMPTY  GO  UP  TO  20  AND 

FILL  BUFFER 

conn 

110. 

RETURN 

ASETB3 

111. 

END 

ASETB3 

20— «l 

a 


1G- 


20  OCT  72  6.01-16 


0^9 

FW  S 1W 


SUBR0UT INE 
ANLATM 


anlat* 


SUBROUTINE  ANLRTM  H,  Dl *,  I NOP  ) 

DIMENSION  01*18) 

CGnflON/GLOBAL/lDUlW  91 ),  JP3 
CO**QN/SPECO/  UftUZ.flORK 

DATA  M,A2, A3,A4,A5, A6, A7, A8,A9,A10,A11, A12, A13,A14, A)5,A16,A17, 
*A18,  A19,A20,a£1,A22,A23,A24,  A25 , A26, A27, A26, A29, A30, A31 . A3Z 

* / -.14655396E-6.6356  7? . .25653341E-10 , 6356. 77, . 1 4116&34E-3, 

* 14.002385,-  3828Z910E-4,216  23225.  15084978E-3, 26. 919270. 

* 684. 10967, .67419880E-3,  044294588/* 58500460, .85519675E-4. 

* 137 ,9  7*150, 10533.544,-498634  HE-4,  .013120767,  .9G1B85H6. 

* -.253 9235 4E-3 , -193  32352, 10180.367 . . 1 1921879E-2, .034567717, 

* -3.3413764  -.33888604E-4  -384.32662,38131  516, .898123T9E-4, 

* .028810210,-5.53623597 

OATA  B9,B8,B7,B6B5,B4.B3,B2,B1,B0 
*/  128H008HE  2,-  25307C47E  0,  .22460528E-  2,- . 116T298IE-* 

* .38922542E-  7 - 86034597E-10,  . 12577373E-12,-. 11709468E-15, 

* 62944405E-19,-  14878777E-22/ 

DATA  CN/  -3483.67635/ 

DATA  CIO,  C9  ,CB,C7,C6,  C5  ,C**f  C3,C2,C1,  CO 

* / 283  7492391  -3.955242007,-  5232974573,  .05256403630, 

* - 1832962145E-2,  3432295909E-4,  - 3930824139E-6,  284S535349E 

* -8.  -.1Z6991997HE-10,  . 31 61 762924E- 1 3 . -- 3350145 769E-16/ 

OATA  6a.D2.Dl.fiO 

* / 253.316666,  6 B049T27,  5631 7016E-2,  .127428I3E-5  / 

DATA  £9E8E7,Eb,E5,£4,E3E2,El,E0 

*/  47Z55200E  2 -.9614832&E  0,  .87302363E-  2,-_ 46I39476E-  n 

* 15560020E-  6-. 34772427 E-  9,  . 51217501E-12.-.47967392E-15, 

* .25907821E-18  - 61 4769B2E-22/ 

DATA  CC8, CC7  CC6,CC5,CC4  CC3,CC2,CC1 ,CCO 

* / -1  0465949146, .1576921089, -.733184B5BE-2, 

* l . 7 161479545E-4  -2. 35849 44834E-6  1 9939747443E-8, 

* -1 .0159359792E-10  2 6455866316E-13  ,-3 .350U5769E-16/ 

DATA  CCC7, CCC6, CCC5, CCC4, CCC3, CCC2, CCC1 ,CCCO 

* / 3153842178-2  199554574E-2 r6.864591B18E-4, 

* -1 . 17924724 17 E-5,  1 - 196384&H658E~-7,-7 . 1115§18544E-10, 

* 2 27646930528E-12,-3. 0151311921E-15/ 

OATA  RQUXTO  /3 . 5298375E 11 / 

OATA  DD1,DD0 

* / -1.12634032E-2, .38228439E-5/ 

DATA  DDDO 

* / .76456878E-5/ 

DATA  BB7, BB6.BB5, BB4,BB3,BB2, BB1 ,BBO 

* / 44921056E-2  - 35018961E-4, 1 .556901 68E-7, 

* -4.30172985E-10, . 75464238E-12,-. 81966276E-15,5 -0355524E-19, 

* -1.33908993E-22/ 

OATA  EE7,EE6,EE5,EE4. E£3,EE2,EEl .EEO 

* / 1.T460H726E-2  -1  38418428E-4, .6232008E-5, 

* -1.73862135E-9,3.07305006E-12,-3.35771744E-15,2.07262568E-1B, 

* -5.53292838E-22/ 

DATA  EEE6, £E£5,EEE4, EEE3,EEE2,EEE1 ,EEEO 

* / -2.76B36856E-4, 1 8696024E-6,-6.9544854E-9, 

* 1 .53652503E-11 ,-2  014630464E-14, l .450837976E-17, 

* -4.426342704E-21/ 

DATA  CON.  HAFCON 

♦/2.00468027763786E-2, 1.00234013881 693E-2/ 

OATA  POUEflO,  P0/-.26O16066E-2,  101325E9/ 

DATA  12,X3,X4X5,X6,X7X9X11X12 
*/2 -0885 400839 16893E-5.1 -94031 7229577353E-12.3  280839895013123E3, 
*5  4B64E-4.6.365870l75778657E-9,5  9140869 1 575 1 73 1 E-16, 

*1 . 6 7225 4 7 ZE- 7,1  8026136919211 16E-19, 3. 048E-4/ 

OATA  C0EF1 , SC,TF,U*UF, U*UF2, U4UF3,Tf5C/ 

* 1.7818E-4,  198  , 392.,  3 02E-7,  9.1204E-14,  27.543&08E-21, 

* 590./ 

PQUER(  l ) = A1/<Z  4 A2)  + A3*AL0G(Z  A4)  + A5*AL0S(  Z ♦ A6)  ♦ 

* A7*ALQG(A6  - 2)  + A9*AL0GIZ*<Z  - AlC)  + All)  + 

*•  A12*AT AN<  A13*Z  - A14)  + A15*AL0G( Z*{ Z - A16)  ♦ A17)  ♦ 

* A18*ATAN( A19*Z  - A2Q ) + A21# ALO Gl Z*( Z + A22 ) * A23)  ♦ 

* A24*ATAN( A25»Z  + A26)  + A27»AL0G( Z*{ 1 * A28)  + A29)  ♦ 

» A30*ATf>N( A3 1*2  + A32 ) 

40  X = H * X12 

IF  CX  . 6T . 550*  > X-550. 

IF  CX  .IT.  0.  > X~  0. 

IF  C X.GT  195*  ) GO  TO  1000 
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£74 


76. 

C 

SET  CONSTANTS 

ANLAT 

77 

POUERJU  POUEEUX) 

ANLAT 

78. 

C 

ANLAT 

79 

cth 

ANLAT 

80. 

in  = CIO  + X*lC9  + X*( C8  * X*IC7  + X*( C6  + 

X»(  C5  + X*(CN  + X«(C3  * 

ANLAT 

SI 

x* t C2  x»( ci  ♦ xocommm 

ANLAT 

82. 

SQRTTfl  =SQRT<T«) 

ANLAT 

83. 

CS  = CONSORTIA 

ANLAT 

84. 

EXPC=  EXPt  CN*(POUERX  - POUERO)  ) 

ANLAT 

85 

c 

PRESSURE 

ANLAT 

86 

P " PO*  EXPO 

ANLAT 

87 

c 

DENSITY 

ANLAT 

88. 

RHQ  = ROUXTC.EXPO/TB 

ANLAT 

89. 

c 

DYNAMIC  VISCOSITY  CALCULATIONS 

ANLAT 

90. 

c 

ANLAT 

91. 

7 

TTF32  = < 1.8*TN/TF)»SQRT( 1 8*Tn/TF ) 

ANLAT 

92. 

TSC  = 1 8»T«  ♦ SC 

ANLAT 

93 

UnU  = C0EF1.  TTF3Z/TSC 

ANLAT 

94. 

lFt  1NDP.ST.01  EO  TO  500 

ANLAT 

95 

IFUP3.LT  7)  GO  TO  50 

ANLAT 

96 

499 

ASSIGN  GOO  TO  IGO 

ANLAT 

97 

GO  TO  510 

ANLAT 

98. 

500 

I Ft  JP3. LT. 7 > GO  TO  499 

ANLAT 

99. 

TR2  = CC8  + X*( CCC7  + X#(CCC6  + X*(CCC5  + 

X*<  CCC4  + X*( CCC3  + 

ANLAT 

100 

X*<  CCC2  + X*<CCC1  ♦ x*ccco  nmn 

ANLAT 

101 

lFt  JP3-8  ) 501 , 501  ,502 

ANLAT 

10Z 

501 

ASSIGN  601  TO  IGO 

ANLAT 

103. 

GO  TO  510 

ANLAT 

104. 

502 

ASSIGN  602  TO  IGO 

ANLAT 

105. 

510 

CONTINUE 

ANLAT 

106 

T«1  = C9  ♦ X*(CC8  + X*(  CC7  + X*(  CC6  ■*  X*(  CC5  + »(CC4  + X*( CC3  + 

ANLAT 

107 

x*t  cc2  + x*tcci  + x*ccommn 

ANLAT 

108 

CS1=  HAFCON  » T*1  /5QRTTN 

ANLAT 

109/ 

R * 6356.765  + X 

ANLAT 

no. 

G - . 396271 5 77E6/R**2 

ANLAT 

111. 

GTH  = G/TH 

ANLAT 

112 

EXP  1=  £XPO*CN*GTM 

ANLAT 

113. 

PI  = PO*  EXP1 

ANLAT 

114 

RHOl=  <RQUXTC*EXP1  -'RHO*Trtl )/TH 

ANLAT 

115 

TPtS  = 1.8  *Tfi 

ANLAT 

116 

TflSI=  X5*  TA1 

ANLAT 

117. 

GT  = TFSC/  TSC 

ANLAT 

118 

GT1  = -GT/TSC 

ANLAT 

119. 

FT  = TTF32 

ANLAT 

120 

FT1  s 1.5*  FT  /TrtS 

ANLAT 

121 

UnUl  = UftUF  *(FT*GTl4Trt51  * GT  *FT1*TAS1> 

ANLAT 

122 

GO  TO  IGO 

ANLAT 

123 

602 

CONTINUE 

ANLAT 

124 

TP1S2  = X9*TR2 

ANLAT 

125. 

GT2  = 2 .*  GT  /t T5C*TSC) 

ANLAT 

126. 

TH20  = T«S*TftS 

ANLAT 

127. 

FT2=  .75  *FT  /TA20 

ANLAT 

128 

UflU2  = U«UF»((FT*GTl  +GT*FT1 )*T«52  *IFT*GT2 

+2.*FT i*GT 1 +GT*FT2  ) 

ANLAT 

129 

*TrtSl*TrtSl  ) 

ANLAT 

130 

601 

CONTINUE 

ANLAT 

131 

Gl=“2.*6/R 

ANLAT 

132 

GTPU  = ( G1»TH-G*TR1  >/tTfl*T«> 

ANLAT 

133. 

EXP2=  CN*(EXPl*fiTrt+EXP0*6THl) 

ANLAT 

134 

RH02-  l ROWXTO*EXP2-2.»RH01*TPU-RHO*Tfi2)/TH 

ANLAT 

135 

RORR  - X1URH02 

ANLAT 

136. 

GO  TO  600 

ANLAT 

137. 

000 

CONTINUE 

ANLAT 

138. 

c 

ANLAT 

139 

c 

th 

.GT  195 

ANLAT 

140 

Trt  = 03  + X*( 02  + X*( 01  + X*00)> 

ANLAT 

141 

SQRTTfl  =SQRT(  Trt) 

ANLAT 

* 42 

CS=CGN*SORTTH 

ANLAT 

143. 

TTF32=<  1.8*Tf1/TF)*SQRTt  1.8*Tft/TF) 

UH 

144. 

TSC  =1.8*Tfl+SC 

UH 

145. 

UMU=CGEFl*TTF32/T5C 

UH 

146. 

c 

ANLAT 

147. 

c 

ROW 

.ST.  195 

ANLAT 

500- 


1510- 


499—* 
501— 1 502 


^510- 


600- 


50-, 
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MB 

149 

150 

151 

152 
153. 
154 

C P ST  195 

AHO  = E9  ♦ X»(E8  ♦ X*(ET  ♦ X.<  E6  ♦ X*C£5  ♦ X*<  E9  + X»(E3  * X*C  E2  + 

* X.(E1  + X*E0)))1)>>> 

\ P = 89  •*  X*t  88  * X*tB7  * X»(B6  + X»(B5  + X*(B9  + X*(  B3  + X»<  B2  + 

• x»ibi  ♦ x.Bommn 

IF( INDP  6T  0 > SO  TO  900 
1FIJP3  UT  T)GO  TO  50 

ANLAT 

ANLAT 

ANLAT 

ANLAT 

ANLAT 

ANLAT 

ANLAT 

155 

389  ASSIGN  600  TO  1 GO 

ANLAT 

156 

GO  TO  410 

ANLAT 

1ST 

400  1F{ JP3  LT.7)  GO  TO  389 

ANLAT 

158 

1 F{ JP3-8  > 401,401,402 

ANLAT 

15? 

401  ASSIGN  701  TO  ISO 

ANLAT 

160 

GO  TO  410 

ANLAT 

161 

902  ASSIGN  702  TO  ISO 

ANLAT 

162 

910  CONTINUE 

ANLAT 

163 

RH01  = £8  ♦ X»(EE7  * X»(EE6  ■* 

X*( EE5  + X*(E£4  + X*( E£3  + X*( EE2  ♦ 

ANLAT 

164. 

* X*(£E1  ♦ X*EE0)1>1)1) 

ANLAT 

165. 

PI  = B8  + X»{ BB7  * X»(BBt  * X»(  BBS  * X.(  BB9  * X*(BB3  * X»I BB2  * 

ANLAT 

16  6 

* X*(BB1  X. BBO )))))}  ) 

ANLAT 

167. 

Tm  = D2  + X»(001  * X»DDO) 

ANLAT 

168 

CS1=HAFC0N*TB1/SQRTTB 

UH 

169 

TFI5  = 1.8*T« 

ANLAT 

170 

TRS1=X5*TH1 

ANLAT 

171. 

ST  = TFSC/T5C 

ANLAT 

172 

ST  1 = -ST/  TSC 

ANLAT 

173 

FT  = TTF32 

ANLAT 

174 

FT  If  1.5  »FT  / TBS 

ANLAT 

175 

UFIU1  = UBJF  • (FT*GT1»TRS1  ♦ ST 

*FTl*TflSl  > 

ANLAT 

176 

GO  TO  160 

ANLAT 

177 

702  CONTINUE 

ANLAT 

178 

TB2  = DD1  * XwODDO 

ANLAT 

179 

TBS2  = X9.TH2 

ANLAT 

180 

GT2  = 2 .61  /CTSC*TSC) 

ANLAT 

181 

TB20=  T«S»TRS 

ANLAT 

182. 

FT2  = .75»FT  /TPI20 

ANLAT 

183 

urtU2=  UNUF  »((FT*6Tl  + ST*FT1) 

*TH$2  +( FT»GT2  +2  *FT1*GT1  + GT*FT2 1 

ANLAT 

184 

* »TNSl»TflSl  ) 

ANLAT 

185. 

701  CONTINUE 

ANLAT 

186. 

AH02  = EE7  ■»  X*(  EEE6  + X»(EEE5 

+ X*( EEE4  + X*( EEE3  + X*t EEE2  + 

ANLAT 

187 

* X*<  FEE!  + X.EEEO )))))) 

ANLAT 

188 

R0RR=XU*RH02 

ANLAT 

189 

600  D!M5)=X6*P1 

ANLAT 

190 

Dim  6)=X7#RH01 

ANLAT 

191 

Dim  7)=CS1 

ANLAT 

192 

Dim  8)=IMU1 

ANLAT 

193 

IF( X.GT.O. ) GO  TO  50 

PH1SZ 

194 

DO  605  111=5,8 

— 

PHI  SZ 

195 

605  Dim  III  >=C. 

PH1SZ 

196 

50  Dim  1 )=X2*P 

ANLAT 

197 

Dim  2 )=X3*RH0 

ANLAT 

198 

Dim  3)=X4*CS 

ANLAT 

199. 

Dim  4)=unu 

ANLAT 

200 

RETURN 

ANLAT 

201. 

END 

ANLAT 

3 


410“ 


?89 

401--j402 


1 J 

i1*10 


50“ 
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SUBR0UT INE 
AST3 


Subroutine  AST 3 


Purpose 

This  routine  handles  both  storage  and  retrieval  of  trajectory  data  during 
forward  traiectory  integration.  Each  entry  point  is  defined  herein. 

Description 

Entry  BEGWR:  Initializes  counters  for  storage  of  trajectory  on  random  file. 
BEGWR  is  called  from  FNTG. 

Entry  ENDWR:  Saves  values  of  counters  after  trajectory  has  been  stored  and 
"dumps"  last  partial  buffer  on  random  file.  ENDWR  is  called  from  FNTG. 

Entry  ASTCft:  Stores  trajectory  data  in  buffer  and  when  buffer  is  full  "dumps" 
buffer  on  random  file.  AST£>is  called  from  entry  CORVAR  m REU3  and 
also  FNTG. 

Entry  BGRA:  Initializes  read  of  trajectory  data. 

Entry  AGETA:  Reads  data  from  storage  buffer,  or  if  on  a starting  trajectory, 

reads  data  from  starting  solution  file  11.  AGETA  is  called  from  MODELA. 

Entry  ASTC^F  Writes  starting  solution  on  file  11.  ASTOF  is  called  from 
FNTG. 


Z7S 


Subroutine  A%7~3 


1L 


1 ohiran 
iVHBOL 

mMH 
I>  YP1R0L 

CODE 

DESCRIPTION 

STORAGE 
BLOCK  LOC 

SUBROUTINE 
SUBR  CODE 

US  AGf 
VAR 

APHO 

<*  . . 

n 

Angle  of  ttt*ck  Ires  list  noalntl  Trajectory 

/ AEC03  n 

1 ) 

AST3 

(1 

APHO 

o f d 

(DEG) 

FNTG 

I 

APHO 

P1TX3A 

I 

APHO 

OUT 

I 

APHO 

PROPB 

0 

AEZRO 

PROP i N 

0 

AEZRO 

APHR 

OL 

n 

Angle  of  attack  (OEG) 

/ AEC03  /( 

2) 

AGETB3 

0 

APHR 

AST  3 

M 

APHR 

BEROCO 

I 

APHR 

BLGCON 

0 

APHR 

GUI  3 A 

n 

APHR 

mODELA 

m 

APHR 

nOOELB 

I 

APHR 

IBTX3A 

0 

APHR 

OUT 

I 

APHR 

D 

u 

Storage  bu.ffer 

/AST  3 /<* 

) 

AST3 

u 

D 

E 

i 

Storage  retrieval  buffer 

/AST  3 /(* 

) 

AST3 

I 

E 

FT  I HE 

0 

Tine  at  ahich  trajectory  data  set  Is  stored 

/HETREV/( 

1 ) 

AGETB3 

0 

FT  I HE 

(.SEC) 

AST3 

0 

FTIIBE 

GETIT 

I 

FTUBE 

TRAN3 

I 

FTIIBE 

I ARC 

i 

Arc  nuaber 

/ XCOOES/t 

116) 

ADICB3 

I 

IARC 

ADID3A 

I 

I ARC 

' 

ADJUST 

I 

1 ARC 

AST3 

I 

IARC 

BNTG 

(1 

IARC 

ENVPRiB 

I 

IARC 

FNTG 

rt 

IARC 

GETIT 

I 

IARC 

IBOOELA 

I 

IARC 

PROPB 

I 

IARC 

PROPIN 

1 

IARC 

REU3 

I 

IARC 

SDINP 

n 

IARC 

STAU 

I 

IARC 

STP3 

I 

IARC 

TRTOSZ 

I 

IARC 

I BIX  1 

n 

Storage  retrieval  buffer  counter 

/XCOO£S/( 

173) 

A5T3 

IB 

IBLK1 

BST03 

IB 

I BLK  1 

I BLK2 

n 

Storage  retrieval  buffer  counter 

/XCODES/t 

171) 

ASETB3 

IB 

IBLK2 

AST3 

IB 

I BLX2 

IBUF1 

n 

Counts  number  of  buffers  as  forward  trajectory  is 

/RETREV/( 

8) 

AST3 

IB 

IBUF1 

stored  on  randoa  file. 

I BUF2 

n 

Counts  nuaber  of  buffers  as  fornard  trajectory  data 

/RETREV/C 

9) 

AGETB3 

IB 

IBUF2 

is  retrieved  froa  randoa  file. 

AST3 

IB 

IBUF2 

I FAR 

I 

Pile  ahert  non  nal  trajectory  data  is  read  froa. 

/ XCOOES/ ( 

139  ) 

AGETB3 

I 

I FAR 

AST3 

I 

IFAR 

TOPE) 

IS 

I FAR 

IFAU 

I 

Logical  file  to  write  current  trial  trajectory  data 

/ XCOOES/( 

138) 

AST  3 

I 

IFAU 

TOPrt 

IB 

IFAU 

1 NO 

1 

Flag  indicates  whether  on  first  nominal  trajectory 

/ XC00£5/( 

111 ) 

AST3 

I 

I NO 

(IND=1> 

BGET3 

I 

INO 

FNTG 

IB 

INO 

GUI  3A 

1 

INO 

IBTX3A 

I 

IND 

FROPI N 

I 

IND 

I PH 

i 

Phase  nuaber 

/XCOOES/l 

113) 

ADI  03  A 

I 

I PH 

AOJUST 

I 

I PH 

AST3 

I 

I PH 

BNTG 

IB 

I PH 

FNTG 

IB 

1PH 

GETIT 

I 

IPH 

GUI3A 

I 

IPH 

SDINP 

IB 

IPH 
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F UH 1 ft  AN 

5YP1B0L 


nniH 

Sypibol 


COOE 


DESCRIPTIOM 


STORAGE  SHARP  III  1 ME  USAGE 
BLOLK  LOC  JUOH  CEDE  VAR 


IPHN 

pi 

Stored  history  data  phase  nu«ber 

/ XCDQES/I 

170) 

AGETB3 

ft ' 

IPHN 

AST  3 

PI 

IPHN 

GET  1 T 

1 

IPHN 

I P ST 

I 

Phase  counter  for  first  nominal  trajectory 

/XCOOES/( 

167  > 

AST  3 

1 

1PST 

FNTG 

n 

1PST 

GUI  3A 

l 

I P ST 

REU3 

1 

IPST 

I ST  ART 

0 

Initialization  ant)  divergence  flag 

/XCQDES/( 

187  ) 

AST3 

0 

ISTART 

BLGCON 

0 

istart 

BLYNE 

0 

ISTART 

FNTG 

I 

ISTART 

PIOOELA 

0 

ISTART 

PROPIN 

0 

ISTART 

REU3 

I 

ISTART 

TEST 

n 

ISTART 

TOPrn 

n 

ISTART 

ISTN 

0 

Stored  history  data  arc  number 

/XC0DES/( 

169  1 

AGETB3 

0 

ISTN 

AST3 

0 

ISTN 

GETIT 

i 

ISTN 

TPAN3 

i 

ISTN 

I TEA 

! 

Trajectory  pass  Indicator. 

/ XCODES  A 

189  ) 

AST3 

i 

ITER 

ITER  = l,  CONSTRAINTS 

FNTG 

i 

ITER 

= 2,  OPTIMIZATION 

GETIT 

i 

ITEH 

= 3,  SOLUTION 

nODELA 

i 

ITER 

DOT 

i 

ITER 

PAY02 

n 

ITER 

PROPIN 

i 

ITER 

TEST 

pt 

ITER 

tgph 

pi 

ITER 

JP1 

m 

Option  flag  for  first  governing  equation 

/ XCO0ES/1 

217  1 

AGETB3 

pi 

JP1 

AST3 

pi 

JP1 

PIOOELA 

Pt 

JPl 

P1QQELB 

I 

JP1 

PROPS 

0 

JPl 

PR0P1N 

0 

JPl 

JP3 

n 

Option  flag  for  third  governing  equation 

/XC0DES/( 

219) 

AGETB3 

0 

JP3 

AST3 

PI 

JP3 

nODELA 

PI 

JP  3 

nODELB 

I 

JP3 

OUT 

1 

JP3 

PR0P1N 

0 

JP3 

K 

0 

Storage  retrieval  flag  Indicates  end  of  arc,  phase. 

/XCODES/l 

156  ) 

AST3 

0 

K 

or  data. 

FNTG 

0 

K 

GETIT 

PI 

K 

PIOOELA 

I 

K 

SOINP 

PI 

K 

Lun 

i 

Program  control  flag. 

/GLOBAL/C 

6) 

AST3 

I 

LUP1 

LUM  = 0*  Steepest  descent  only; 

FNTG 

I 

LUP1 

LUM  = 1 Steepest  descent  and  adjoint 

GE1NP 

I 

LU« 

transformation  stored  on  tape; 

PADS1 

PI 

LI)  PI 

LUM  = 2;  Steepest  descent  and  OL; 

SOINP 

I 

LUPI 

LUH  = 3:  QL  only 

TOPPl 

PI 

Uin 

PIAXA 

n 

Number  of  aords  in  last  stored  partial  buffer  of 

/R£TREV/( 

3 ) 

AGETB3 

I 

PIAXA 

trajectory  data  flAXAtl)  corresponds  to  random  file 

AST3 

PI 

P1AXA 

39  MAXA(2)  corresponds  to  random  file  90. 

piixa 

i 

Maxi»u«  number  of  Bords  in  trajectory  data  buffer  = 

/RETREY/( 

12  ) 

AGETB3 

I 

P1I  XA 

990 

AST  3 

I 

PII  XA 

SOINP 

I 

Pll  XA 

TOPPl 

D 

PII  XA 

pixa 

I 

Index  of  last  stored  word  in  full  buffer  of  forward 

/RETREV/( 

18) 

AGETB3 

I 

PIXA 

trajectory  data. 

AST3 

I 

PIXA 

SOINP 

0 

pixa 

NBF  A 

I 

ttaxtnuM  nuaber  of  buffers  permitted  to  store 

/RETREV/< 

10  ) 

AST  3 

I 

NBF  A 

forward  trajectory  data  = 20 

TOPP1 

0 

NBF  A 

N6UFA 

pi 

Number  of  buffers  of  trajectory  data  stored  on 

/RETREVA 

6) 

AGETB3 

I 

NBUFA 

rando*  files  39  and  90  respectively. 

AST  3 

PI 

NB  UFA 
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K1RIRAN  BATH 

Synboi  Sybbol 


COOE 


DESCRIPTION 


S1QBA] 

block 


SUiJh  LODE 


NCN 


NEB 


PHID 

P HI  0 
T jnE 


T IBES 


fl  Nunber  of  element*  In  df 


I Number  of  Integrated  state* 


$ D Bonk  angle 


^ lb  Bank  angle  froa  lasf  noainal  -trajectory 

o Id 

■(  I Tine  (elapsed) 


I Arc  tlae 


/XCODES/l 

160) 

ADE03A 

I 

NCN 

ADICB3 

I 

NCN 

AD1C3A 

I 

NCN 

ADI  03  A 

I 

NCN 

ADJUST 

1 

NCN 

AS  T3 

n 

NCN 

BNTG 

I 

NCN 

BST03 

I 

NCN 

BTX3A 

I 

NCN 

OUT 

I 

NCN 

PAY02 

B 

NCN 

TEST 

lb 

NCN 

TOPB 

I 

NCN 

TRAN3 

I 

NCN 

TfiTOSZ 

I 

NCN 

/XCODES/t 

162  > 

ADICB3 

I 

NEd 

AD1C3A 

I 

NED 

ADID3A 

I 

NED 

AGETB3 

I 

NEB 

AST  3 

I 

NEB 

BGET3 

1 

NEB 

BST03 

I 

NEB 

BTX3A 

I 

NEB 

OUT 

I 

neb 

REU3 

I 

NEB 

SDER3 

1 

NEB 

SDINP 

n 

NEB 

TOPn 

I 

NEB 

TRAN3 

1 

NEB 

YREF3 

I 

NEB 

/AEC03 

/( 

10) 

AGETB3 

0 

PHID 

AST3 

n 

PHID 

GUI  3 A 

n 

PHID 

NOOELA 

n 

PHID 

BDQELB 

I 

PHID 

CITX3A 

0 

PHID 

OUT 

I 

PHID 

/ AEC03 

/( 

9) 

AST  3 

n 

PHID 

BTX3A 

I 

PHIO 

/GENF 

/< 

H93  > 

A01CB3 

0 

T I BE 

AST3 

i 

tine 

BNTG 

R 

tine 

C0N3 

1 

tine 

0TF3 

I 

tine 

ENVPRB 

I 

tine 

E0UA3 

I 

TINE 

FNTG 

R 

TINE 

NOOELA 

1 

TINE 

OUT 

I 

TINE 

PDBC 

I 

TINE 

PROPIN 

I 

TINE 

REU3 

n 

TINE 

RKTA3A 

R 

TT 

RKTB3A 

fl 

TT 

YREF3 

r 

TINE 

/GENF 

/( 

319  ) 

AST3 

I 

TINES 

E0UA3 

0 

TINES 

FNTG 

R 

TINES 

GETIT 

1 

TINES 

CUT 

I 

tines 
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r OH  I RAN 
JiYrtiUU 


HATH 
S YMHOL 


CODE 


DESCRIPTION 


_ 5 T QR  A3E 

BIOLk  UOC 


I Relative  velocity 


l FT/SEC  ) /STATE3/1 


11  Platrii  of  adjoint  variables 


I »P  u I $ e response  function  coluan  vector  associated  /AEC03  /( 
HI th  ang I e of  attack 


Impulse  response  function  co  liiaa  vector  associated  /AECQ3  /( 
■ i t h bank  angle 


State  vector  of  nominal  trajectory 


1 ) 

ACCEL 

1 

V 

AD1C83 

0 

VAR 

AOJUST 

PI 

VAR 

AGETB3 

0 

VAR 

AST3 

1 

VAR 

8L*t 

I 

V 

BL7 

I 

V 

8L8 

1 

V 

CON  3 

I 

VAR 

DEB  3 A 

1 

V 

DTF3 

I 

V 

ENVPRO 

1 

VAR 

E0UA3 

I 

V 

nOOELA 

I 

V 

P100ELA 

I 

VAR 

PIOOELB 

I 

V 

PITX3A 

I 

VAR 

OUT 

I 

V 

OUT 

I 

VAR 

POBC 

I 

V 

PDY3A 

I 

V 

REU3 

n 

VAR 

RKTA3A 

M 

Y 

5TP3 

I 

VAR 

TOPD 

D 

KldOU 

YREF3 

n 

V 

2B6  ) 

A0EQ3A 

M 

XL 

AD1CB3 

n 

XL 

A0IC3A 

n 

XL 

A0ID3A 

n 

XL 

A5T3 

n 

XL 

BSET3 

0 

XL 

BST03 

i 

XL 

PITX3A 

I 

XL 

OUT 

i 

XL 

STAU 

it 

.XL 

STVRL3 

i 

XL 

TRAN3 

n 

XL 

16  ) 

A0E03A 

n 

XLAPIA 

A0IC3A 

0 

XLAP1A 

AST  3 

0 

XLAPIA 

BGET3 

0 

XLAPIA 

BST03 

PI 

XLAPIA 

P1TX3A 

I 

XLAPIA 

TRAN3 

PI 

XLAPIA 

25) 

A0E33A 

n 

XLAPIP 

A0IC3A 

0 

XLAPIP 

AST3 

0 

XLAPIP 

BGET3 

0 

XLAPIP 

BST03 

It 

XLAPIP 

PITX3A 

I 

XLAItP 

TRAN3 

PI 

XLAPIP 

227  ) 

AST3 

0 

YO 

PITX3A 

I 

YO 
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AST  3 


1. 

SUBROUTINE  AST 3 

A5T3 

2. 

C 

COHN 

3 

C 

STORES 

FORWARD  TRAJECTORV  DATA  FOR  VARIOUS  PURPOSES 

COM4 

*1 

C 

ON  RANDOM  ACCESS  AND  SEQUENTIAL  FILES 

COHN 

5 

C 

ALSO 

RETRIEVES  DATA  FOR  FORWARD  TRAJECTORY  (ASET) 

COMM 

6. 

C 

CQMN  1 

7. 

COPINON/GENF/ 

GENF 

8. 

♦ DHSC20) 

,0nSPC20,2), VAR019 ) 

,TOL(  9 ) 

,SVAR( 10) 

,tfOC(  20  ) 

9 

6ENF 

9. 

* At  9,9) 

,AC0N<9)  . BCONt  9 ) 

,CQTll 9,9  > 

,DCON( 9 ) 

.DTP 

t 

9ENF 

10. 

♦0T5 

, DT  ,G 

,DPSO 

,0 

f 

GENF 

11. 

♦R 

,RE  , MACH 

,P  A 

,R0 

,cs 

6ENF 

12. 

♦ VNU 

,R0R 

,CSR 

,VNR 

SUHSO 

t 

GENF 

13. 

♦svse 

, T 1 MEPH  .TIMES 

.TOP 

,TOS 

,TR(9) 

, 

GENF 

14. 

*TST( 20  > 

, TPH  (201DIS120) 

DIPC  20 ) 

't 

, 

6ENF 

15 

♦TLP1C20 ) 

,TLSl  t 20  ), DI P It  20  > 

DISH  20  ) 

,TIHE 

,OHP 

GENF 

16. 

♦TI APR 

» LIFT  ,DRAG 

.TAX 

,T  BURN 

TBU( 20) 

, 

GENF 

17. 

♦ AE 

,FP  , FPOLD 

. FPD 

,NACHR 

,«ACHV 

t 

GENF 

18. 

♦OR 

, QV  ,F VAC 

. L1FTV 

GENF 

19. 

♦LlfTR 

,lifta 

ORAGV 

DR  A SR 

DR  A6A 

r 

GENF 

20. 

* 

LIFT*  , DBR 

,0B 

,ISP 

, ISPF 

9 

GENF 

21. 

♦ 

ULFT 

ULFTV 

,ULFTfi 

, ULFT A 

* 

GENF 

22. 

♦ XnCG 

, xncsv  xnc&R 

. XrtCSA 

,XMCSfl 

, CO CAE 

r 

GENF 

23. 

♦CULFT 

,CT  C ALP  HA 

, COE 

,OELTAE 

,SID 

f 

GENF 

Z4. 

♦ COD 

.SIDAE  ,XCG 

'zcfi'- 

,XJ 

GENF 

25. 

cohhon  / 

GENF  / 

GENF 

26. 

♦ XJV 

. XJR  ,6K 

, GARnAD 

,XKG 

,XXP 

9 

GENF 

27. 

♦F RATED 

, 1 RATED  ; 

GENF 

28. 

♦PI 

,P2  ,P3 

XK1 

, XK2 

-XX3 

r 

GENF 

29. 

♦XK1T 

, XK2T  , XK3T 

, XKiO 

, XK2D 

, XX3D 

f 

GENF 

30. 

♦XKlA 

,XK2A  XK3  A 

,XX1V 

,XX2V 

XK3V 

r 

GENF 

31. 

♦ XK1G 

, XK2S  XK3G 

XK1P 

XK2P 

XX3P 

t 

GENF 

32. 

♦XMR 

, XK2R  . XK3R 

,XK10 

t XX20 

,XK33 

GENF 

33. 

♦XK1U 

, XK2U  , XK3U 

,XK1* 

,XK2n 

,XX3H 

GENF 

34. 

♦pv 

,PG  .PP 

,PR 

,P0 

,OPDY( 3,8) 

GENF 

35. 

REAL  LIFT*  LIFT  . LIFTA.LIFTH  , 

MACH, 

MACHR, 

GENF 

36. 

* ISP,  ISPF,  MACHV, LIFTV  , IRATEU 

FRAT 

37. 

dimension 

TPHlt  lOKTSTK  10) 

GENF 

38. 

eouivalen 

CE(TLPl.TPHl).CTLSl.TSTl) 

6ENF 

39. 

C0Rrt0«/STAT63/ 

STATE3D 

40. 

♦ VARC  14) 

, 0 VAR  ( 14 ) , VARL  (99) 

. DVARLt  99 ) 

,YQ{  9 ) 

_SVY( 10) 

STATE3D 

41. 

♦XU  9,9) 

, YDP( 20,9 ) YDS  (2G,9). 

COS  GAM 

,SINGAH 

SAVBP< 15) 

5TATE3D 

42 

♦SINPSI 

.COSPSI  .S1NRHQ 

j COSRHO 

, 0 CO  fi  HO 

,0CQR02 

STATE3D 

43 

»SVBV  (9>,0«E6A  . OnESAQ 

5TATE3D 

44. 

♦VDV 

, GDV  ,ROV 

,RDV 

,POV 

,00V 

STATE3D 

45. 

♦ UDV 

, VOG  , GDS 

,ROG 

.POG 

,0OG 

STATE30 

46. 

♦UDS 

, VDR  , SDR 

,MDR 

,P  DR 

,00R 

, 

ST AT £30 

47. 

♦UDR 

,VD«  , GDH 

.non 

,PD« 

, VDP 

STAT£3D 

48. 

♦ GDP 

,PDP  .OOP 

. UDP 

,voo 

f 900 

STATE30 

49. 

♦P  DO 

, UDO  , HTDV 

,HTDR 

STATE3D 

50. 

REAL  non 

, MOV,  MOR 

, 

STATE30 

51 

COIMON/5TATE3/ 

STATE3D 

52. 

♦SIN2R0 

. C0S2R0  .C0S26N 

STATE30 

53. 

COMMON/  GLOBAL/ 

GLOBAL 

54. 

♦ GR 

,E8  ,OMGZ 

XLArtRF 

, YMURF 

.LUH 

GLOBAL 

55. 

♦,JJOP(  10) 

, I FAT  At  , NARC 

. NBR  AN 

,NFARC 

,IOt  4 ) 

global 

56. 

♦ ,KTAB(20) 

, I T AB<  20  ) SI  6 flAXT  AB 

GLOBAL 

57. 

,PSIRF,IPFL61 , I PFLG2 , 1 PFLG3 

1PFL64 , 1 NEQFLt  20 ) 

GLOBAL 

58. 

♦ , ITPSO  ,K50L  , XGLOBLt  8 ) 

RETAP 

59. 

CQrtFl0N/AEC03/ 

AEC03 

60 

♦ APHO 

, APHR  .ALPHA 

, VGA 

,GDA 

,POA 

AECD3 

61. 

♦ St  NA 

, COS A ,PH10 

,PHID 

,PHI 

,51  NP  HI 

AEC03 

62. 

•CQ5PHI 

, GOPH  ,PDPH 

, XLAflAC  9 ) 

,XLArtP(9) 

,CDO 

AEC03 

63. 

♦ COOK 

, CLO  ,F* 

,XC6« 

,2CS« 

,cloh 

AEC03 

64. 

♦cn 

, CMA  . CflAfi  , Cflfl 

.cno 

jCAOfl 

,FX« 

AEC03 

65. 

♦CLA* 

, CL  ,CLA 

,CL« 

t 

AEC03 

66. 

♦ CD 

. CDA  .COM 

AEC03 

67. 

CQrtttON/RETREV/  FTIflE. &T I ME, MAX At 2 ),«AXB 

RETREV 

6B . 

COMMON/ RETREV/ 

retrfv 

69. 

♦NBUFAt  2) 

, 1BUF1  , IBUFZ 

,NBFA 

,NBFB 

,HIXA 

RETREV 

70 

♦MIXB 

,HXA  ,nxa 

, HPT  A 

, 4PTB 

, I BLXB 

RETREV 

71. 

* . NBliFB 

. IBUFB 

RETREV 

72. 

CQnnCN  /XCQOES/ 

XCOOES 

73. 

• ITQ  (9>,IC0fi  ( 20  ).  I T1 

,int& 

. JSIDt 20,2 ) , JPH  (20,2). 

XC00ES 

74. 

»JST  (30)  . NCNST 

,nsb 

, 45  AB 

NIC4B 

XCOOES 

75. 

♦ I20P 

,ICOP  , I FAtf 

, IFAR 

, I F& 

,IND 

t 

XCODES 
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7b 

•1CPEN  ,IPH  ,1SPH  ,ISST  ,1ARC 

, 1ST  ART 

XCOOES 

77 

• ITCT  .IUH  ,WAR  ,JK  ,JP$ 

,JS 

XCOOES 

78. 

*KOP  ,KPST  ,K  ,KS7  ,NAO 

•NCASE 

XCOOES 

7* 

• UZH  , NEQB  , NEC  ,NOP  ,NPH 

IN 

XCOOES 

60 

*N5T  . IPST  ,1  PRINT  , 1STN  ,IPHN 

. ISTNB 

XCOOES 

81 

•IPHNE  , 1 BLK 1 ,IBLK2  ,1$T0P  ,l$TPP 

,L 

XCOOES 

62 

*1F0B  , NB  ,L8  ,NPHP 

NPHB 

9 

XCOOES 

85 

♦NCTIN  ,NEQF  , IUBC  8>,JPRP,JSll  ,H7T,HPIH(  201.JP1 

,Jp£,JR3 

XCODES 

B9 

DIMENSION  0(990). £(990) 

AST3 

85. 

DATA  ZERQ/O./ 

JULY28 

86 

C 

1 INITIALIZE  BUFFER  ANO  INOEX  COUNTERS 

com* 

87 

ENTRY  BEGUR 

AST3 

88 

IBLK1  =0 

AST  3 

89. 

16UF1  =0 

AST  3 

90 

RETURN 

AST3 

91. 

c 

COHN 

92 

C 

11  STORE  NO  BUFFERS  USED  FOR  WHOLE  TRAJECTORY 

COHN 

93 

C 

ALSO  NO  OF  WORDS  IN  LAST  BUFFER  - 

COHN 

9*4 

c 

IT  ANY  DATA  IN  LAST  BUFFER, 

COHN 

95 

c 

DUMP  LAST  BUFFER  ONTO  STORAGE  FILE 

COHN 

9b 

ENTRY  ENQUR 

AST3 

97 

MAXAC IFAU-36 1 =1BLK1 

AST3 

98 

NBUFAl l F AW-38 J=1BUF1+1 

AST3 

99 

miBLKi  NE.O ) 60  TO  20 

AST3 

20  — 

TOO 

NBUFAt IFAtf  -38)  = 1BUF1 

AST3 

101 

HAXAt IF AU-38 ) = NX A 

AST3 

102. 

RETURN 

AST3 

103 

c 

COHN 

109 

c 

III  STORE  TRAJECTORY  DATA  IN  BUFFER 

COHN 

105 

ENTRY  ASTO 

AST3 

10b 

D ( IBUa  + l)=  I ARC 

AST  3 

107 

D( 1BLKI+2 ) =10000*IPS7+100*JP1+JP3 

AST3 

ioe. 

D < IBLK1+3 1=  TlHE 

AST3 

109. 

16LXl*lBLlU+3 

A5T3 

no 

00  10  1 = 1.  NEQ 

AST3 

m 

1BLK1  = 1BLK1+1 

AST3 

112 

ID  O(IBLKl)  = VARCU 

AST3 

113 

IBLK1=  1BLK1+1 

AST  3 

119 

O(IBLXl)  ~ APHR 

AST3 

115 

IBLk1=J BLKl+l 

AST3 

116 

D( 1BLK1 )=  PKIO 

AST  3 

117 

c 

COHN 

118. 

c 

111-A  IF  BUFFER  FULL  .DUMP  ON  RANDOM  FILE, ELSE 

RETURN 

COHN 

119 

IFdBLKl  .GE.HXA)  GO  TO  20 

AST  3 

20  — 

120 

RETURN 

AST  3 

121. 

c 

COHN 

122. 

c 

III  — B INCREASE  BUFFER  COUNTER  AND  DUMP  BUFFER 

COHN 

123 

c 

IF  COUNTER  EXCEED  MAX  NO-  OF  BUFFERS— ERROR  RETURN 

COHN 

129 

20  IBUF1  si&UFl  +1 

AST3 

125 

IFdBUFl  6T  HBFA-1)  60  TO  30 

SEP  18 

30—. 

12b 

CALL  UR  IT  MS  ( IFAU.O.  MIX  A.  1 &IJF1  1 

AST  3 

127 

1BLK1  =0 

AST3 

128. 

RETURN 

AST3 

j 

129 

30  1START  = 6 

SEP  18 

130. 

RETURN 

SEP18 

131 

c 

COHN 

132 

c 

IV  INITIALIZE  FORWARD  REAO  OF  RANOOI4  FILE  OR 

COHN  - 

133 

c 

SEQ  FILE  IF  ON  SOLUTION  TRAJECTORY  (PRCOd 

OR  2) 

COHN 

139. 

ENTRY  BSRft 

AST  3 

135 

lf{ ITER  E0.3)  REWIND  10 

AST3 

136. 

IBUF2  =0 

AST  3 

137. 

GO  TO  90 

AST  3 

90 

138 

c 

COHN 

139 

£ 

V FETCH  TRAJECTORY  DATA 

COHN 

140. 

ENTRY  A BET A 

AST3 

191 

c 

COHN 

192 

c 

V-A  STARTING  NOMINAL  CONTROL  ON  FIlE  11  60  TO 

VII 

COHN 

143 

c 

ELSE  GET  DATA  FROM  BUFFER 

COHN 

199 

I Ft  I NO  EQ.l ) GO  TO  100 

RETAP 

195 

ISTN  = E( IBLK2  +1) 

AST  3 

196 

IPHN=E(  1BLK2+2 J/10000 

AST3 

197. 

c 

V-B  NEED  CONTROL  VECTOR  FLAGS  ON  SOLUTION  TRAJECTORY 

CQHN 

148 

IFf ITER  NF.3)  GO  TO  40 

AST  3 

40—1 

149 

JPl=CEdBLK2*2)  -1OOOO*IPHN)/101 

AST3 

1 
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150 


JP3=E( 1BLK2+2)  - 1 00G0*lPHN  -1000M+.5 


AST  3 


151. 

90 

CONTINUE 

AST  3 

** 

152 

nines  EU&LK2  +3) 

AST3 

153 

1BLK2  = IBLK2  +3 

AST3 

15H 

DO  50  1=1, NEO 

AST  3 

155 

IBLK2  = IBIK2+1 

AST3 

156 

50 

YOl  1 ) = E(  IBLK2I 

AST3 

1ST. 

1BU2  = I BUC2+1 

A5T3 

158 

APHO  = E( 1 BLK2  ) 

AST3 

159 

1BLK2  =1 BLK2+1 

AST3 

160. 

PH10  = E< 1 BLX2 1 

A5T3 

161 

IFUTEfl.NE  3)  GO  TO  70 

AST3 

70 

162 

C 

V-C  NFEO  TO  RETRIEVE  TRANSFORMED  ADJOINTS  ON 

COflN 

163 

c 

SOLUTION  TRAJECTORY 

CONN 

169 

IFtLUn  EQ  0)  GO  TO  60 

AST3 

60—1 

165. 

READ(IO)  < XL(  J,NCN),  J = 1,NEQ  »,  XLAflAI  NCN  ) , XLAMPt  NCN  ) 

AST3 

1 

166 

60 

CONTINUE 

AST3 

167. 

c 

V-D  IF  ON  SOLUTION  TRAJ  CONTROL  IS  UNCHANGED 

CONN 

168. 

APHR  = APHO 

AST3 

169 

PHID=  PHIO 

AST  3 

170 

70 

CONTINUE 

AST3 

171. 

IFUBUF2  EQ  . NBUF  A(  IF AR -38)) GO  TO  80 

AST3 

80—j 

172 

c 

conn 

173. 

c 

V-E  IF  IN  LAST  BUFFER  TEST  FOR  LAST  UORD  IN  PARTIAL 

BUFFER 

CO  MM 

179 

c 

ELSE  TEST  FOR  MAX  NO  OF  WORDS  IN  BUFFER  (MXA) 

CORN 

175 

c 

IF  AT  LAST  UORO  IN  PARTIAL  BUFFER  SET  K“4  (INDICATES  END) 

COMN 

176. 

1FUBLK2  GE.DXA)  GO  TO  90 

AST  3 

177 

RETURN 

AST  3 

178. 

80 

1FMBLK2  GE.rtAXA( JFAR-38)) 

AST  3 

179 

RETURN 

AST3 

180 

90 

IBUF2  = IBUF2  +1 

AST3 

101 

c 

V-F  READ  IN  NEXT  BUFFER 

COHN 

182 

CALL  REAOnSC  IFAR,£,niXA,IBUF21 

AST3 

183 

IBLK2  =0 

AST3 

189 

RETURN 

AST3 

185 

c 

CORN 

186 

c 

VI  WRITE  STARTING  SOLUTION  FDR  OL  OR  NEXT  CASE  OF 

SO  OR  SIZING 

CORN 

187 

ENTRY  ASTOF 

AST3 

188 

UfUTEt  11  ) I ARC.TIflE.TinES  . APHR,  PHI  D,  ( VAftt  1).  1 = 1,  NED). 

( XU  JJ,  NON), 

AST  3 

189 

JJ=l,NEBl,ZERO 

JULV2S 

190 

RETURN 

AS  13.'. 

191. 

c 

COHN 

192. 

c 

VII  READ  STARTING  NOMINAL  CONTROL  FROM  FILE  11 

CONN 

193 

100 

READ( 11)  I5TN,FTlRE#DUrt.APHR,PHI0 

RETAP 

199 

1PHN  - I PH 

RETAP 

195 

IF( EOF, 11  ) 110,120 

NOS 

no- 

196 

110 

K-H 

NOS 

197 

120 

RETURN 

NOS 

198 

END 

AST3 

9 OH 


3 
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SUBR0UT INE 
BER0C0 


28  s 


Subroutine  BERX?C0 


Purpose 

Computes  total  aerodynamic  coefficients  for  all  aerodynamic  options, 
computes  partials  of  coefficients  with  respect  to  state  and  control. 

Description 

BERQ5CCJ5  is  called  from  subroutine  VT. 


Also 


Z83 


F0R1HAN  RATH 

SYRROL  SYMBOL 


COCE 


DESCRIPTION 


STOP  AGE 


S'JAROUl  INF 


alpha 

IX 

i 

Angle  of  attack 

( RAD) 

/AEC03 

/( 

3) 

BEROCO 

I 

alpha 

BLGCON 

n 

alpha 

BL2 

I 

ALPHA 

FNTG 

0 

ALPHA 

RARECO 

I 

ALPHA 

nOOELA 

n 

ALPHA 

MODELS 

0 

ALPHA 

REU3 

0 

ALPHA 

VT 

i 

ALPHA 

APHR 

oc 

i 

Angle  of  attack 

< DEG) 

/AECQ3 

/( 

2) 

AGET83 

0 

APHR 

A5T  3 

n 

APHR 

BEROCO 

i 

APHR 

BLGCON 

0 

APHR 

GUI  3 A 

FI 

APHR 

MODELA 

FI 

APHR 

F10DEL8 

I 

APHR 

FITX3A 

0 

APHR 

OUT 

1 

APHR 

CO 

0 

Dr  ag  coefficient 

/ AEC03 

/( 

52  ) 

BEROCO 

0 

CD 

D 

OUT 

I 

CO 

VT 

1 

CO 

CDA 

ac^/aa 

n 

See  syabol 

/ AEC03 

/( 

53) 

BEROCO 

R 

COA 

VT 

1 

CDA 

con 

acD/am 

0 

See  symbol 

/ AEC03 

/< 

5*1) 

BEROCO 

0 

COR 

VT 

I 

CDfl 

CDO 

c„ 

I 

Drag  coefficient  at  « = 0 

/AEC03 

/( 

35  J 

BEROCO 

1 

CDO 

Do 

E9UA3 

l 

CDO 

coon 

3Cn  /3M 

I 

See  * y ■bo l 

/ AEC03 

/( 

35  ) 

BEROCO 

I 

CBOR 

°0 

E0UA3 

1 

CDOR 

CL 

c, 

n 

LI  ft  toef f 1 c I ent 

/ AEC03 

/( 

H9) 

BEROCO 

n 

CL 

L 

OUT 

i 

CL 

VT 

i 

CL 

CLA 

c, 

r 

Lift  coefficient  slope 

/AEC03 

/< 

50) 

BEROCO 

n 

CLA 

L0 

E0UA3 

n 

CLA 

VT 

I 

CLA 

CLAFI 

ac.  /an 

i 

See  syabol 

/AEC03 

/( 

H8  ) 

BEROCO 

i 

CLAR 

Lo 

E3UA3 

FI 

CLAR 

cm 

acL/an 

m 

See  syabol 

/ AEC03 

/( 

51  ) 

BEROCO 

n 

CLR 

VT 

i' 

clr 

CLO 

c. 

i 

Lift  coefficient  at  “ “ 0 

/ AEC03 

/( 

36) 

BEROCO 

i 

CLO 

^•o 

E0UA3 

5 

CLO 

cum 

ac,  /an 

i 

See  sy  abo 1 

/ AECQ3 

/( 

50  ) 

BEROCO 

I 

CLOR 

L0 

EQUA3 

I 

CLOR 

OES 

! 

Radian  to  angle  conversion,  57.29577951 

/DATA 

/( 

2 1 

BEROCO 

I 

DE8 

BLGCON 

I 

RAD 

ENVP  fin 

1 

RAD 

E8UA3 

I 

RAD 

FNTG 

I 

RAD 

GUI  3A 

I 

RAD 

RODELA 

I 

RAD 

RTX3A 

I 

RAO 

OUT 

I 

RAD 

F ADS  1 

D 

RAD 

5DINF 

I 

BAD 

TRTOSZ 

I 

RAD 

FK 

k 

I 

Induced  drag  coefficient 

/AEC03 

/( 

37) 

BEROCO 

I 

FK 

E3UA3 

1 

FK 

FKfl 

ak/an 

I 

See  syabol 

/ AEC03 

/( 

S7  ) 

BEROCO 

I 

FKR 

E0UA3 

I 

FKFI 

30  OCT  72  G 01-16 


1-OKIHAN 

symbol 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


S lOfinRE  S PAR 0 U1 1 n£  USAGE 

BLOCS  LOC  SUBR  CODE  fAH- 


1 FOB 

l 

For  aar  d or  adjoint  Integration  flag 

/ XC0DE$/( 

178) 

ACCEL 

I 

I FOB 

= 1 leans  f or  par  d 

BEROCO 

I 

[FOB 

= Z leans  adjoint 

BLYNE 

I 

IFOB 

EQUA3 

I 

IFOB 

IMPUL 

I 

IFOB 

SPLYNE 

I 

IFOB 

TOPM 

0 

IFOB 

JAER 

I 

Aerodynanc  icdei  option  flag 

/ARCDAT/t 

9 ) 

BEROCO 

I 

JAER 

EQUA3 

I 

JAER 

GEINP 

I 

JAER 

OUT 

I 

JAER 

PROPB 

I 

JAER 

PROPIN 

I 

JAER 

• 

VT 

I 

JAER 

MACH 

01 

I 

Math  fiuiber 

/GENF  /( 

307  ) 

BEROCO 

I 

PIACH 

' 

ENVPBM 

I 

MACH 

EBUA3 

PI 

MACH 

OUT 

I 

MACH 

30  OCf  7Z  G 01-96 
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BERQCO 


1. 

SUBROUTINE  BEROCO 

BEROCO 

z . 

C 

CtiflN 

3. 

c 

CALCULATES  AERO 

COEFFICIENTS 

COrtH 

h. 

c 

COWN 

5 . 

COMONmCDAT/ 

ARCOAT 

e». 

♦SREF 

,EJ 

,XISP 

,TWULT 

,DTNC 

,OTPi 

ARCOAT 

7. 

♦ 1ATW 

, I MODE 

, J AER 

, JPRO 

,onAx 

, GP1AX 

AECDAT 

8. 

• XLBAX 

,HDWAX 

, SHOOT 

, ALFHAX 

PHHAX 

, (IAEA 

ARCOAT 

9. 

• WAEB 

,*1AEC 

, WAEO 

,nAEE 

,WAEF 

,WAEG 

ARCDAT 

io. 

♦HT 

,msp 

,nxcG 

fnlCG 

,nWOA 

nUDB 

ARCDAT 

u. 

♦HOB 

, XCGR 

,zcgr 

, XE 

,ZE 

, XT 

ARCDAT 

12. 

♦ DREF 

, WCND 

RHOB 

#0«ULT 

, REWAX 

ARCDAT 

13 

♦ .FRATE 

, ARCD19) 

RETAP 

1H. 

DIflENSlQ 

N ARCDA(HQ) 

ARCOAT 

15. 

EUUI VALENCE! SREF , «RCD» ) 

ARCDAT 

16. 

connON/s 

ENF/ 

6ENF 

17. 

•onst  20 ) 

.QttSPt  20,2] 

VARQC 9 ) 

, TOLC  9 1 

SVAR( 10  ) 

UDC(  20  ) 

GENF 

18. 

♦A(9,9> 

, ACONl 9 ) 

BCONC  9 ) 

, COTH  9,9) 

,DCON( 9 ) 

. DTP 

SENF 

19. 

♦ DTS 

,DT 

,6 

, DP5Q 

,Q 

GENF 

ZO. 

*R 

,RE 

, HACH 

#PA 

,R0 

,cs 

9 

GENF 

21. 

♦ VNU 

.PAR 

.ROR 

,CSR 

. VNR 

.suwso 

f 

6ENF 

22. 

• SVSO 

.TIrtEPH 

.TIWES 

,TOP 

,TOS 

.TRt  9 > 

f 

GENF 

23. 

♦TST( 20  > 

,TPH  (ZO),  015(20) 

,DIPC 20 ) 

,T 

t 

GENF 

2,H 

♦TLPK20) 

t TLSi  120] 

DIP  U 20 

) ,0151(20) 

,TIWE 

,ohp 

t 

GENF 

25. 

•TlflPft 

,lift 

DRAG 

,TAX 

,TBURN 

.TBUl 20) 

t 

GENF  ! 

26. 

♦ RE 

,FP 

,FPOLD 

,FPD 

,RACHR 

, WACHV 

t 

GENF 

27. 

♦ Bfi 

,0V 

, F VAC 

> Ll FT V 

r 

GENF 

28. 

♦LIFTR 

,L IFTA 

DR  AG  V 

,ORAGR 

.DRAGA 

9 

GENF 

29. 

* 

LJFTH 

,OBR 

, 06 

,ISP 

,1SPF 

t 

GENF 

30. 

» 

ULFT 

, ULFT  V 

, ULFTR 

t ULFT  A 

t 

GENF 

31. 

•XWC6 

.XPICGV 

,X«CGR 

, XWCGA 

, XnCGH 

, CQDAE 

t 

GENF 

32. 

♦CULFT 

, CT 

,CALPHA 

,CDE 

,OELTAE 

/SID 

t 

GENF 

33 

•COO 

.SIDAE 

, XC6 

,ZCG 

,XJ 

GENF 

39. 

COimoN  f 

GENF  / 

GENF 

35. 

• XJV 

,XJR 

, GH 

, GAHHAD 

, XX  G 

,XPCP 

GENF 

36. 

•frated 

, I RATED 

GENF 

37. 

♦PI 

,P2 

,P3 

. XK1 

fXKZ 

7 XK3 

GENF 

38. 

♦ XIC1T 

, XK2T 

,XK3T 

, XK1D 

,XK2D 

, XK3D 

GENF 

39. 

• XK 1 A 

, XK2A 

. XK3  A 

, XKl  V 

, XK2V 

,XK3V 

t 

GENF  ' 

HO. 

♦ XK1S 

, XK26 

, XK3S 

f XX1P 

, XK2P 

, XK3P 

t 

GENF 

HI. 

• XK  1R 

, XK2R 

, XK3R 

XK1Q 

,XK2Q 

, XK30 

GENF 

H2. 

• XK1U 

, XK2U 

, XK3U 

,xkiw 

.XK2H 

, XK3H 

GENF 

H3. 

♦pv 

,P6 

.PP 

.PR 

,P0 

,DP0Y(3,8> 

GENF 

HH. 

REAL  LI 

FTR  . LIFT  . 

UFTA. LIFTS  . 

P1ACH, 

RflCHR  , 

GENF 

H5. 

♦ ISP.  1SPF,  HACHV.LIFTV  , IAATEO 

FRAT 

H6. 

DIMENSION  TPH1C  lOl.TSTKiO) 

GENF 

H7. 

EOUI VALENCEtTLPl.TPHl >;(TL51. 

rsTi) 

GENF 

H8. 

cormoN  /xcodes/ 

XCODES 

H9. 

• ITQ  ( 9 ) . I COR  (20),IT1 

,INTB 

, JGI D( 20 . 

2 ) , JPH  C 20 , 2 >, 

XCODES 

50. 

•JST  (20) 

, NCNST 

,NSB 

,NSAB 

. NICNB 

t 

XCODES 

51. 

• I20P 

,ICOP 

,IFAU 

,IFAR 

,1FB 

.IND 

t 

XCODES 

52. 

• IOPEN 

,IPH 

I SPH 

,ISST 

,1  ARC 

, I ST ART 

XCODES 

53. 

♦ ITCT 

, ITER 

-IVAR 

,JK 

,JPS 

fJS 

y 

XCODES 

5H . 

• XOP 

,KPST 

,K 

, KST 

,NAO 

, NCASE 

XCODES 

55. 

♦NON 

, NEOB 

NEO 

,NOP 

,NPH 

rH 

XCODES 

56. 

♦NST 

,IPST 

, 1PRINT 

.ISTN 

, IPHM 

I ST  MB 

XCODES 

57. 

♦IPHNB 

,IBLKI 

, I BLK2 

,ISTOP 

t ISTPP 

,L 

XCODES 

58 

♦ IFOB 

, NB 

^LB 

.SB 

, NPHP 

. NPHB 

XCODES 

59. 

♦NCTIN 

. NEBF  . 1 LABI  8 J , JPRP 

.J6lI.nTT.«PIN(Z0).JFl. 

JP2/JP3 

XCODES 

60. 

COF)nON/AEC03/ 

AECD3 

61 

•APHQ 

, APHR 

.ALPHA 

, VDA 

,GDA 

, PD  A 

, 

AEC03 

62. 

• SIMA 

, COS  A 

, PHI  Q 

, PHI  0 

#PHI 

,5INPHI 

t 

AEC03 

63. 

•COSPHI 

, GDPH 

,P  DPH 

, XLAt1A(  9 ) 

,XLAflP{9) 

,coo 

f 

AEC03 

6H. 

•coon 

t CLO 

,FK 

,XC6fl 

,zcsw 

,CLOn 

t 

AEC03 

65 

*C« 

,C«A 

.chaw  ,cnn  ,cn& 

,cnon 

t 

ACC03 

66. 

• CLAW 

,CL 

,CLA 

,CLrt 

g 

AEC03 

67. 

♦ CD 

. CD  A 

,Cori 

AEC03 

68 

COflfcON/DAT  A/ 

DATA 

69 

♦PI 

f RAD 

,R01 

,sc 

.TrtPF 

# 

DATA 

'70- 

♦FTK« 

.CAR 

,J0P1 

, J0P2 

,JQP3 

, JflPH 

DATA 

71. 

EQUI VALENCE< RAO.OEG ) 

BEROCO 

72 

IFUAER 

. EQ.  2)  SO  TO  50 

BEROCO 

73. 

c 

1 BI vnp I ATE  DATA  TEST 

CORN 

7H. 

CL  = CLO 

♦ ALPHA*CLA 

BEROCO 

75. 

CD  - CDO 

+ FK*CL**2 

BEROCO 

20  OCT  72  G. 01-46 


78  CD#  = 2.»FK*CL»CLA  8ERDC0 

77.  C COHN 

78.  C II  ON  FORWARD  TRAJ.  SKIP  PARTI ALS  COHN 

79.  1FUF08.E0.1J  RETURN  BEROCO 

80.  CLH  = CLOH  + #LPHA»CLAH  BEROCO 

81.  CON  = CDOfl  * CL«tFKH»CL  ♦ 2.»FK»CLIO  BEROCO 

82.  RETURN  BEROCO 

83  C COHN 

89  C III  BIVARIATE  AERO  INTERPOLATION  COHN 


BEROCO 

BEROCO 

BEROCO 

BEROCO 

BEROCO 


88.  50  CALL  BLVNEC  APHR  , HACK, CL) 

86  CLA  = CLAvDEG 

87.  CDA  = COA*OEG 

88.  RETURN 

89.  END 
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SUBR0UTINE 

BGET3 


Subroutine  BGET3 


Purpose 

This  subroutine  retrieves  all  adjoint  data  during  forward  trajectory.  It  h 
an  initialization  entry  point  called  BGRB  and  a main  entry  point,  BGET. 

Description 

Entries  BGRB  and  BGET  are  called  from  various  routines  in  the  module. 
BGET  and  BGRB  are  called  from  FNTG. 

BGET  is  called  from  GETIT. 

BGRB  and  BGET  are  called  from  TRAN3. 
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fTNTg'i 


KHI1HAN  MAIN 

SYMBO  L SYMBOL 


CODE 


DESCRIPTION 


SUABQUflNE  USAGE 
S'JBH  UJOE  VAR 


A 

A 

0 

Control  integral  watrli 

/ GENF  /( 

109  ) 

A0EQ3A 

0 

A 

ADICB3 

M 

A 

8GET3 

0 

A 

BNt  G 

I 

A 

8ST03 

I 

A 

MTX3A 

I 

A 

PAY02 

I 

A 

SDINP 

I 

A 

TRAN3 

I 

A 

IBLKB 

n 

Index  o f adjoint  data  buffer  where  either  last  word 

/RETREV/C 

18) 

BGET3 

n 

IBLKB 

•as  stored  or  retrieved. 

I BUFB 

n 

Counts  -number  of  buffers  of  adjoint  data  that  have 

/RETREV/( 

20) 

BGET3 

M 

I BUFB 

either  been  stored  or  retrieved  as  solution 

BST03 

n 

I BUFB 

progress. 

IFB 

I 

File  ohere  adjoint  solution  is  stored 

/XC0DES/( 

1 BO  ) 

BGET3 

I 

IFB 

BST03 

I 

IFB 

TOPM 

0 

IFB 

I NO 

i 

Flag  indicates  whether  on  first  naainal  trajectory 

/xcodes/c 

HI  ) 

AST3 

I 

IND 

( INO=l  ) 

BGET3 

I 

IND 

FNTG 

B 

INO 

GUC3A 

I 

INO 

MTX3A 

I 

IND 

PROPIN 

1 

IND 

MAXB 

i 

Nuwber  of  nords  in  last  stored  partial  buffer  of 

/RETREV/( 

5 ) 

BGET3 

I 

MAXB 

adjoint  data.  Corresponds  to  randoa  file  41. 

BSTQ3 

rt 

MAXB 

nixB 

i 

d>xi iub  number  of  words  in  adjoint  data  buffer  = 

/RETREV/C 

13  ) 

BGET3 

I 

MIXB 

3000. 

BST03 

I 

MI  XB 

SDCNP 

I 

MIXB 

TOPM 

0 

MIXB 

nxB 

i 

Index  of  last  stored  word  in  full  buffer  of  adjoint 

/RETREV/C 

15  ) 

BGET3 

I 

MXB 

data. 

BST03 

I 

MXB 

SDINP 

0 

MXB 

NBUFB 

i 

Number  of  buffers  of  adjoint  data  stored  on  last 

/RETREV/ ( 

19) 

BGET3 

I 

NBUFB 

adjoint  solution. 

BST03 

0 

NBUFB 

NCNST 

n 

i 

AJuwber  of  problea  constraints 

/XCODES/C 

132  ) 

BGET3 

I 

NCNST 

BST03 

l 

NCNST 

C0N3 

I 

NCNST 

PAY02 

I 

NCNST 

SOI  NP 

n 

NCNST 

SUMS 

i 

NCNST 

TEST 

I 

NCNST 

TOPM 

i 

NCNST 

TRAN3 

I 

NCNST 

NEQ 

i 

Number  of  integrated  states 

/XCODES/C 

162  ) 

ADICB3 

i 

NEO 

ADIC3A 

I 

NED 

ADI  03 A 

i 

NED 

AGETB3 

i 

NED 

AST3 

i 

NEO 

BGET3 

l 

NEB 

BST03 

I 

NED 

MTX3A 

i 

NED 

OUT 

i 

NEQ 

REU3 

I 

NED 

SDER3 

i 

NEO 

SDINP 

m 

NEO 

TOPM 

I 

NED 

TRAN3 

i 

NEO 

YREF3 

I 

NEQ 

NPTB 

i 

Number  of  words  stored  at  each  adjoint  solution 

/RETREV/C 

17  ) 

BGET3 

I 

NPTB 

tine  point* 

501  NP 

m 

NPTB 

30  OCT  72  G 01-96 


237 


I Qtt l HAN 


P1AI  4 
Y MttOl 


root 


DESCRIPTION 


SJOfU 


6LOLK 


XL 

0 

Matrix  of  adjoint  variables 

/STATE3/I 

216  ) 

A0EQ3A 

PI 

XL 

X ' J 

ADIC63 

PI 

XL 

AO  I C3A 

n 

XL 

ADI  DBA 

pi 

XL 

AST3 

P! 

XL 

BGET3 

0 

XL 

BST03 

1 

XL 

PIT  X 3 A 

5 

XL 

OUT 

I 

XL 

STAU 

PI 

XL 

STVRL3 

I 

XL 

TRAN3 

PI 

XL 

XL  APIA 

A*,n, 

0 

Inpuise  response  function  column 

vector 

associated 

/AEC03  /( 

16) 

ADED3A 

PI 

XLAPIA 

A 1 J 

Bi th  angle  of  attack 

AOIC3A 

0 

XLAP1A 

AST3 

0 

XLAPIA 

BGET3 

0 

XLAPIA 

BST03 

PI 

XLAPIA 

P1TX3A 

1 

XLAPIA 

TRAN3 

PI 

XLAPIA 

XLAPIP 

, *,o 

0 

Inpulse  response  function  co 1 uaa 

vector 

as  sc  c i ated 

/AEC03  /( 

25  > 

ADEO  3A 

PS 

XLAP1P 

A 1 J 

■ith  bank  angle 

ADI C3A 

0 

XLAPIP 

AST3 

0 

XLAP1P 

BGET3 

D 

XLAPIP 

BST03 

PI 

XLAP1P 

P1TX3A 

I 

XLAPIP 

TRAN3 

pi 

XLAPIP 

2 

l 

Adjoint  storage  buffer 

/ BGET3  /(* 

1 

BGET3 

I 

1 

30  OCT  72  G 01-16 


o 

r- 


60*13 


1. 
2. 
3. 
9 . 

5. 

6. 
7 

B. 

9. 

10. 

n. 

12 

13 

19. 

15 

16. 

17. 

18. 
19. 
20 
21. 
22 
23 
29. 

25. 

26. 
27. 
28 

29. 

30. 

31. 

32. 

33. 
39. 

35. 

36. 

37. 

38 

39 

" 90. 
91 

92. 

93. 


SUBROUTINE  BGET3 

RETRIEVE  AOJOl NTS  , IMPULSE  RESPONSE  FUNCTION  AND  A 
FOR  TRAJECTORY  CONTROL  AND  PARAMETER  CALCULATIONS 
COMMON/ RETREV/  FT I HE.BT I ME ,MAXA( 2 ) , flAXft 
COMM0N/RETREV/ 

♦ NBUFAt  2 ) , I BUF1  ,IBUF2 

♦M1XB  , MXA  , RXB 

♦.NBUFB  , I BUFB 

COfirtON/STATE3/ 

♦ VAR( 19 ) OVAR  < 19>,VARL  < 99) 

♦ XLl  9,9  ) ~~ 


MATRIX 


♦$INF£i 

♦ SVBV 

♦ VDV 

♦uov 

*1106 

♦ UDR 

♦ GDP 

♦ POO 


,cospsi 

( 9J.0HESA 
,60V 
, VOS 
,VOR 
, VDR 
.POP 
j UOQ 


REAL  MDM  , «DV, 
C0nnQK/STATE3/ 
♦SIN2RQ  , C0S2R0 
COMMON/ AECO 3/ 


MDR 


, S1NRH0 
,,  0ME&A2 
,RD  V 
, GOG 
, SDR 
,GDrt 
,ODP 
,HTDV 


, NBFA 

,nbfb 

Ml  XA 

,NPT  A 

,NPTB 

,iaLXB 

. DVARLl  99) 
C0S8AM 

, Y0( 9 ) 

.SVVl  10> 

,SiRSAM 

5 AV&Ft 15) 

, COSRHO 

,QC0firtO 

,CCOR02 

'mBV 

,POV 

,00V 

,RDS 

,P06 

,006 

.MOB 

,PQK 

,GCR 

,MDM 

.PDA 

,VCP 

,UOP 

,HTDR 

,VOD 

,8D0 

♦ APHO 

♦ SINA 
♦COSPHI 

♦coon 

♦CM 

♦CLAM 

♦ CD 


, APHR 
, COS  A 
, GOPH 
,CLQ 
,CfiA 
,CL 
CDA 


COMMON  /XCdOES/ 
l 9 ) . I CO  R 
(20) 

,ICOP 
,IPH 
, HER 
, KPST 
, NEQB 
,IPST 
, IBLK1 
,{fB 


♦ ITQ 
♦JS7 

♦ I20P 
♦IQPEN 

♦ IT  CT 

♦ KOP 

♦ NCN 

♦ NST 
♦IPHNB 

♦ IFOB 

♦ NCT1N 


, C0S2GH 

, ALPHA 
,PH|fl 
.POPH 
,FK 
, CMAM 
,CLA 
> COM 

C 20 ), ITI 
>NCN5T 
, IF  Atf 
, ISPH 
, I VAR 
,K 

, NEQ 
, IPRI NT 
, I BLK2 
,L& 


, VDA 
, PHID 
, XLAMAt  9 ) 
. XCGM 
CAB  , CMC 
,CLM 


.INTO 
.MSB 
. IFAR 
, ISST' 
fJX 
. KST 
,NOP 
, 1STW 
.1ST0P 
,»B 


,SDA 

,P«I 

,XU*F(  9) 
, ZC&M 
, CMCH 


.PDA 

.SINPHI 

.COO 

.CLCM 


,J6lDCZG,2),JFrt  CZ0,2), 


,NSAB 
,IFB 
,IA&C 
,JPS 
, NAD 
,MPH 
, IPrtN 
, IS7PP 
,NP«P 


NICNB 
,1N0 
, 1ST ART 

, NCASE 

,* 

,ISTNB 

#L 

NPHB 


6&ET3 

CO*N 

COMN 

COMN 

RETREV 

RETREV 

RETREV 

RETREV 

RETREV 

STATE30 

5TATE30 

STATE30 

ST  ATE3D 

STATE30 

STATE30 

STATE3D 

5TATE30 

STATE30 

5T ATE3C 

STATE30 

STATE30 

STATE30 

STATE30 

AEC03 

AEC03 

AEC03  | 

AECQ3 

AEC03 

AEC03 

AEC03 

AEC03 

XCOBES 

XCODES 

XCOOES 

XCODES 

XCOOES 

XCOOES 

XCOOES 

XCOOES 

XCOOES 

XCODES 

XCODES 

XCOOES 


99. 

COMMON/GENF/ 

' * 

' 9 

* 

SENF 

95. 

*OMG(20) 

,0BGP1  20,25 

VARQt  9 ) 

,TOL(  9 ) 

,SVAR(  10) 

. UDCt  20  1 

SENF 

96. 

*A( 9,9 ) 

,AC0tU9> 

, BCON( 9 ) 

, COTI( 9,9) 

,DCQN(9> 

,DTP 

* 

GENF 

97. 

♦OTS 

,DT 

,6 

. DPSO 

,0 

GENF 

98. 

*R 

,BE 

.MACH 

,PA 

,R0 

,cs 

GENF 

99 

♦VNU 

,PflH 

,HOR 

,CSR 

, VNR 

,SUMSQ 

GENF 

50 

♦ SVSQ 

,TIBEPH 

, TIMES 

,TOP 

,TOS 

,TR( 9 1 

GENF 

51. 

*TST( 20  > 

,TPH  (20) 

. 01 St  20  ) 

.OIPC20) 

;t 

GENF 

52 

♦TLPK20) 

,TtSl  (20) 

, DIP I( 20  ) 

, DISH  20 ) 

,tiae 

,OMP 

GENF 

53. 

♦T1MPR 

.LIFT 

.DRAG 

'tax 

,TBURN 

,TBU(  20) 

GENF 

59. 

♦AE 

.FPOLD 

,FPD 

,MftCriR 

,MACUV 

GENF 

55. 

♦OR 

,0V 

,FVAC 

, LIFT  V 

9 

GENF 

56. 

♦LIFTR 

, LIFT* 

0RA6V 

, DRftSR 

ORA&O 

GENF 

57. 

• 

LIFT* 

, OBR 

,0B 

,ISP 

,ISPF 

SENF 

56 

» 

ULFT 

, ULFT  V 

,ULFTR 

, ULFT  A 

GENF 

59. 

♦ XMCG 

,X«C8V 

XMCGR 

XMC&A 

,XMCSM 

COOAE 

SENF 

60. 

♦CULFT 

,CT 

'calpha 

, COE 

,OElTAE 

,SIO 

9 

GENF 

61. 

♦ COD 

,SIO*E 

, XCG 

,2C6 

,xj 

SENF 

62 

COMMON  / 

GENF  / 

GENF 

63 

♦ XJV 

,XJR 

,6H 

GAMNAD 

, XX9 

,XSP 

SENF 

69. 

♦PRATED 

, JRATEB 

9 

GENF 

65 

♦Pi 

,P2 

>3 

XK1 

, XK2 

, XX3 

6ENF 

66. 

♦ XK1T 

, XK27 

, XK3T 

, XKIO 

,XX2D 

XX3D 

GENF 

67 

♦ XK1A 

,XXZA 

,XK3A 

, XK1V 

,XX2V 

XK3V 

' 

SENF 

66. 

♦ XK1G 

,XKEG 

, XK3S 

, XK1F 

,XK2P 

,X«P 

SENF 

69. 

♦ XX 1R 

, XK2B 

, XK3R 

, XK10 

,XK20 

,XK30 

GENF 

70. 

♦ XK1U 

, XX2U 

, XK3U 

, XK1M 

,XX2M 

,XX3M 

*0 

SENF 

71. 

*PV 

,P6 

.P  P 

.PR 

,P0 

,DP0Y(3,8) 

GENF 

72. 

REAL  LIFTfi  , LIFT  , 

LIFTA. LIFTM  . 

MACH, 

MA«.Hn  , 

GENF 

73. 

♦ ISP.  I SPF . MACHV.LIFTV  . IRATED 

FRAT 

79. 

DIMENSION 

tPHK  lOKTSTUlO) 

SENF 

75 

E0UIVALENCE(TLP1,TPH1 

>#(TLS1,TST1 ) 

GENF 
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76. 

DIMENSION  2(3000) 

BGET3 

77 

C 

CORN 

76. 

c 

1 INITIBLIZE, 

SET-UP  NO. OF  BUFFERS  AND  NO. OF  WORDS  IN 

CORN 

75. 

C 

LAST  (PARTIAL) 

BUFFER 

CORN 

80. 

ENTRY  B6BB 

B6ET3 

81. 

KX=  NCNST+1 

B6ET3 

82 

IBLK&  =rtAXR  +1 

BSET3 

83 

IBUFB  =KBUFBH 

BGET3 

89. 

GO  TO  20 

BSET3 

2C~| 

±h 


85. 


10  IBLKB  = RXB  +1 


BGET3 


£ 

c 

[ 

£ 


86. 

87 

88 

89. 

90. 

91. 

92 

93 
99 
95 

96. 

97. 
96. 
99 

100 

101. 

102. 

103 

109. 

105. 

106. 
107. 
108 
109 

no. 

111 

112 
113. 
119 
115 
in. 


20  16UFB 
I-A 


IBUFB  “1 
IF  ONLY 


ONE  BUFFER  RETURN  ELSE  READ  IN  CORRECT  ONE 


IFUBUFB.LT.  I ) RETURN 

CALL  REAORSt IFB,Z,fll XB,  I SUF6 ) 

RETURN 


BGET3 

corn 

corn 

B6ET3 

BGET3 

BGET3 

CORN 


ENTRY  BSET 

BSET3 

1FC 1ND.E0.11  RETURN 

NOS 

11=  1 BLUB  - NPTB  -1 

BGET3 

DO  30  1=1, XX 

BGET3 

DO  30  J=l,NEfl 

BSET3 

11=11+1 

BGET3 

30 

xuj.ii  = Kin 

DO  90  1=1, KK 

BGET3 

BGET3 

11=  11+1 

3GET3 

90 

XLA«A(I)=  z<m 

BGET3 

DO  50  1=1, KK 

BGET3 

11=11+1 

BGET3 

50 

XLAMPt I >=  Z<  ll > 

BGET3 

DO  60  JJ=  i,KK 

B6ET3 

DO  60  KI=l, JJ 

BGET3 

n=n  +i 

BGET3 

60 

A(KI,JJ)  = kid 
1BLKB  = IBLK3  -NPTB 

BSET3 

BGET3 

CORN 

III  IF  DATA  IN  BUFFER  USED  UP  LOAD  BUFFER, ELSE  RETURN 

CO«N 

IFUBLKB.LE.l)  GD  TO  10 

BSET3 

RETURN 

B9ET3 

END 

BGET3 

10- 
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SUBR0UT INE 
BLGC0N 


301 


Subroutine  BLGCQN 


Purpose 

Subroutine  BLGCQN  solves  for  the  in-plane  control  vector,  w,  and  also 
during  the  adjoint  solution  computes  the  explicit  and  complete  partials  of  the 
control  vector  with  respect  to  state  and  control.  The  method  of  solution  for 
the  m-plane  control  vector  is  described  in  Section  9.  2 of  Volume  I.  The 
detailed  logic  flow  description  of  this  subroutine  may  be  found  in  subroutine 
ALiGCGN  which  is  the  Quasi-linearization  module  version  of  BXjGCQN. 

Description 

BLGCQN  is  called  both  during  the  forward  trajectory  by  subroutine  MODELA 
and  during  the  adjoint  solution  by  subroutine  MODELB. 
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bath 

SYB80L 


RTPTTfllM 


immniiTiNF  iiSagf 


ALPHA 

ot 

n 

Angle  of  atlaclc  (RAO) 

/AEC03 

/< 

3 > 

BEROCG 

! 

ALPHA 

BLGCON 

B 

ALPHA 

B12 

I 

alpha 

FMTG 

0 

ALPHA 

BABECD 

I 

alpha 

PIOOELA 

n 

ALPHA 

BDOELB 

0 

ALPHA 

REU3 

0 

ALPHA 

YT 

i 

ALPHA 

APHR 

a 

0 

Angle  of  attack  (DEG) 

/ AECQ3 

/( 

2) 

AGETB3 

0 

APHH 

AST3 

B 

APrtR 

BERDEO 

1 

APHR 

BLGCON 

0 

APHR 

GUI3A 

b 

APHR 

BODELA 

n 

APHR 

FlQ  DELB 

i 

APHR 

BTX3A 

0 

APHR 

OUT 

i 

APHR 

DELTAE 

b _ 

n 

Engine  giabal  deflection  angle  (RAO) 

/GENF 

/( 

554  1 

BLGCON 

B 

OELTAE 

E 

ELI 

I 

OELTAE 

OUT 

I 

DELTAE 

REU3 

0 

DELTAE 

VT 

I 

DELTAE 

OET 

u 

Deteral nant 

/BLGCON/I  * 

) 

BLGCON 

t> 

OET 

DP 

Aid 

1 

Corrections  to  In-plane  control  vector 

/BLGCON/I* 

> 

BLGCON 

I 

DP 

DP  DY 

3 uj  / 3 y 

I 

flatrix  of  partial;  of  in-plane  control  vector  art 

/GENE 

/< 

610  1 

ACCEL 

1 

DPDY 

state 

BLGCON 

I 

DPDY 

OUT 

1 

DPDY 

I ST  ART 

0 

Initialization  and  divergence  flag 

/XCODES/t 

147  ) 

AST3 

0 

I ST  ART 

BLGCON 

0 

1ST  ART 

BLYNE 

0 

ISTART 

FNTG 

I 

ISTART 

BODELA 

G 

ISTART 

PROP  1 N 

G 

ISTART 

REU3 

I 

ISTART 

TEST 

n 

ISTART 

topb 

b 

ISTART 

P 

n 

First  eieaent  in  in-plane  control  vector. 

/ GENF 

/( 

563  ) 

BLGCON 

n 

P 

Corresponds  to  thrust 

BLGCON 

b 

PI 

OUT 

i 

PI 

PI 

n 

First  eieaent  in  in-plane  control  vector. 

/ GENF 

/( 

569  ) 

BLGCON 

n 

P 

Corresponds  to  thrust 

BLGCON 

n 

PI 

OUT 

I 

PI 

P2 

n 

Second  eieaent  in  ih-plane  control  vector. 
Corresponds  to  deflection 

/ GENF 

/( 

570  ) 

BLGCON 

B 

P2 

P3 

tn 

Third  element  in  in-piane  control  vector, 
correspt nd$  to  o 

/GENF 

n 

571  ) 

BLGCON 

N 

P 3 

RAD 

I 

Radian  to  angle  conversion,  57.29577951 

/DATA 

n 

2 ) 

BERG  CD 

I 

DEG 

BLGCON 

1 

RAD 

ENVPRW 

I 

RAD 

EQUA3 

1 

RAD 

FNT6 

1 

RAD 

GUI  3 A 

1 

RAD 

BODELA 

I 

RAD 

BTX3A 

I 

RAO 

GUT 

1 

RAD 

P ADS  1 

D 

RAD 

SD1NP 

1 

RAD 

TRTOSZ 

1 

RAD 
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I 0H1HAN  P1A1H 

Symbol  symbol 


lode 


DESCRIPTION 


SUBROUTINE  USAGE 
SU8«  CODE  VAR 


XK1 

XK  1 A 
XKIO 
XK  IT 

XK  1 V 
XKZA 
XK2D 

XK2T 

XK3A 

XK30 

XK3T 


T fl  TKruit  (LBS)  /GENE  /<  1)1)  ACCEL  I T 

BLGCON  fl  T 
BL4  I T 
BL6  I T 
BL7  I T 
BL6  I T 
EL2  I T 
EQUA3  0 T 
FHJ  I T 
FH2  I T 
FH3  I T 
FH4  I T 
IflPUL  I T 
OUT  I T 
PROPB  0 T 
PROPIN  0 T 
REU3  0 T 
SDER3  I T 


I 

First  control  vector 
corresponds  to  error 

go vernl ng 
In  thrust 

1 equation 

»»lue 

/GENF 

/( 

572) 

BLGCON 

FH1 

I 

0 

XK  1 
XK  1 

FH2 

0 

XK) 

FH3 

0 

XK  1 

FH4 

0 

XK  1 

nODELA 

I 

XK  1 

I 

Partial  of  governing 

equat 1 a n 

art 

state 

or 

contro I 

/ GENF 

/( 

581  > 

BLGCON 

I 

XK1  A 

vector  coaponent 

FH3 

n 

XK  1 A 

I 

Partial  of  governing 

equation 

nr  t 

state 

or 

contro l 

/GENF 

/( 

578) 

BLGCON 

l 

XK  ID 

vector  coaponent 

FH3 

m 

XK  1 D 

I 

Partial  of  governing 

equation 

art 

state 

Or 

contro  1 

/GENF 

/( 

575  ) 

BLGCON 

i 

XK1T 

vector  coaponent 

FH1 

0 

XK  IT 

FH2 

0 

XK1T 

FH3 

fl 

XK1T 

FH4 

0 

XK1T 

AOGELA 

1 

XK  IT 

t 

Partial  of  governing 

equat l on 

art 

st  ate 

or 

contro  i 

/GENF 

/( 

584  ) 

BLGCON 

I 

XK  1 V 

vector  coaponent 

FH3 

n 

XK  1 V 

FH4 

0 

XK1V 

I 

Partial  of  governing 

equation 

art 

state 

or 

control 

/GENF 

/( 

582) 

ACCEL 

I 

XK2A 

vector  coaponent 

, 

BLGCON 

I 

XK2A 

EL2 

a 

XK2A 

I 

Partial  of  governing 

equation 

art 

state 

o r 

contra  1 

/GENF 

/( 

579  ) 

ACCEL 

i 

XK2D 

vector  coaponent 

BLGCON 

i 

XK2D 

ELI 

0 

XK20 

EL2 

a 

XK20 

I 

Partial  of  governing 

equation 

art 

state 

or 

contro 1 

/GENF 

/( 

578  ) 

BLGCON 

i 

XK2T 

vector  coaponent 

EL2 

0 

XK2T 

I 

Partial  of  governing 

equation 

art 

st  at  e 

or 

co  nt ro  l 

/GENF 

/( 

583  ) 

BLGCON 

l 

XK3A 

vector  coaponent 

BL2 

0 

XK3A 

BL3 

0 

XK3  A 

BL4 

0 

XK  3 A 

BL5 

fl 

XK3A 

BL8 

0 

XK3A 

BL7 

0 

XK3A 

BL8 

0 

XK3  A 

I 

Partial  of  governing 

equation 

art 

state 

o r 

contro  1 

/GENF 

/( 

580  ) 

BLGCON 

I 

XK3D 

vector  coaponent 

BL4 

0 

XK30 

BL8 

0 

XK30 

BL7 

0 

XK30 

BL8 

0 

XK30 

I 

Partial  of  governing 

equation 

art 

st  ate 

or 

contro  1 

/GENF 

/< 

577  ) 

BLGCON 

I 

XK3T 

vector  coaponent 

BL4 

0 

XK3T 

BL6 

0 

XK3T 

BL7 

0 

XK3T 

BL8 

0 

XK3T 
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qlgcon 


1 

SUBROUTINE  BLSCONI JP1,UP2,JP3) 

P014 

2. 

COnnON/XCOOES/IXCODl 1H6 >. 1ST ART 

PO 14 

3. 

DIMENSION 

DP13).  Pill 

BLGCON 

4 

EQUIVALENCE  (P.P1),(XKY,XK1V),<  XKPI.XKPlll) 

BLGCON 

5 

COnflON/GENF/ 

GENF 

6 

♦ OMG<20) 

. OMGP(  20.2 ) . VARQ(  9 ) 

,TOL<  9 ) 

SVAfU  10) 

,UDC( 20 ) 

GENF 

7. 

*A(9,9) 

, ftCQNl  9 ) 

, BCON(  9 ) 

, DOTH  9,9) 

, DCON(  9 ) 

, OTP 

GENF 

8. 

♦ DTS 

,01 

,s 

,0P5Q 

,Q 

'os 

GENF 

9. 

*R 

,RE 

.MACH 

,PA 

,R0 

,CS 

GENF 

10 

♦VNU 

,P»R 

,RQR 

, CSR 

,VNR 

, S UMSQ 

GENF 

11 

• SVSQ 

.tibeph 

.TIMES 

.TOP 

,TOS 

,TR( 9 ) 

GENF 

12. 

♦TST ( 20  ) 

,TPH  (20), DISC  20) 

,OIP( 20 ) 

,T 

,W 

GENF 

13. 

♦TLPK  20  ) 

,TL51  (20):d1P1(20) 

,DIS1( 20 ) 

,TinE 

,0nP 

9 

GENF 

14 

♦TIMPR 

, LIFT 

.DRAG 

.TAX 

,TBUAN 

,TBU(  20 ) 

9 

GENF 

15 

*AE 

,FP 

.FPOLO 

,FPO 

,MACHR 

, MACHV 

6ENF 

16. 

♦OR 

,QV 

,F  VAC 

,LI FT V 

GENF 

17 

♦L1FTR 

,lifta 

DR  A6V 

, DRAGR 

DRAGA 

9 

6ENF 

18. 

* 

LIFTB 

'dbr 

,0B 

,ISP 

,1SPF 

GENF 

19. 

♦ 

ULFT 

, ULFT  V 

, ULFTR 

, ULFT  A 

f 

GENF 

20 

♦ xmcg 

, XMC6V 

,XMCGR 

, XMCGA 

,XnC5M 

, COD  AE 

9 

GENF 

21 

•CULFT 

,CT 

.CALPHA 

, CDE 

, OELT  AE 

,51  D 

9 

GENF 

22 

• COO 

, SIOAE 

, XCG 

,ZC6 

,XJ 

GENF 

23 

common  / 

GENF  / 

GENF 

24. 

♦ XJV 

, X JR 

, GH 

, GAflMAO 

, XKG 

, XKP 

GENF 

25. 

♦FRATED 

,{rated 

9 

GENF 

26. 

♦PI 

,p* 

,P3 

XK1 

,XK2 

, XK3 

9 

GENF 

27 

♦ XK1T 

,XX27 

, XK3T 

, XK  ID 

, XK20 

,XK3D 

GENF 

23 

♦ XKi  A 

,XK2A 

. XK3A 

, XK1 V 

, XK2V 

, XK3V 

9 

GENF 

29 

♦ XK1G 

,XX2G 

, XK36 

, XK1P 

,XK2P 

, XK3P 

6ENF 

30. 

• XK1R 

,XK2R 

, XK3R 

, XK  10 

, XX2Q 

,XK30 

GENF 

31. 

♦ XK1U 

, XK2U 

, XK3U 

, XK1M 

, XK2M 

, XK3M 

9 

GENF 

32. 

♦PV 

,PG 

.PP 

.PR 

,P0 

,DPDY(3,8> 

GENF 

33 

REAL  LIFTR  , LIFT  . 

LI  FT  A. LIFTM  . 

MACH, 

MACHR, 

GENF 

34 

♦ ISP.  I SPF , MACHV . LI FTV  . 1RATE0 

FRAT 

35 

DIMENSION 

TPH1(  10)  TSTH10) 

GENF 

36 

EQUlVALENCE<TLPl.TPrtl ),< TLS1 ,TST1 > 

GENF 

37 

COMMON/ AEC03/ 

AEC03 

38. 

♦ APHO 

, APHR 

, ALPHA 

, VOA 

, GOA 

, PDA 

AEC03 

39 

♦ SI  NA 

, COS  A 

,PHI  Q 

,PHID 

, PHI 

, $1 NPHI 

AEC03  i 

40 

♦COSPHI 

, GQPH 

,PDPH 

,XLA«A(9) 

, XLAMP( 9 ) 

, CDO 

AEC03 

41 

♦ CDQM 

, CLQ 

,FK 

, xcsn 

, ZCGM 

,CLOn 

AEC03 

42 

♦ CM 

, CMA 

, CMAM  , CMH 

.CBO 

,CMOM 

, FKM 

AEC03 

43. 

• CLAM 

,CL 

, CLA 

,CL« 

9 

AEC03 

44. 

45. 

♦CD  ,COA 

CQtWON/ST  Ai  £3/ 

, COM 

AEC03 

STATE30 

46 

♦YAR( 14) 

, DVfiR  <H 

), VARL  < 99 ) 

, D VARLl 99) 

,Y0(9) 

, S VY( 10) 

STATE30 

47 

♦ XL(  9.9) 
♦SI NPSl 

,VDP(20,9) 

.YDS  1 20 , 9 ), 

COSGAM 

,SI NGAfl 

,SAVBP< 15) 

9 

STATE30 

48 

, CQSPSI 

,S1 NRHO 

, C05RHG 

, OCORHO 

,0C0RQ2 

STATE3D 

49 

♦ SVBV  ( 9 ), OMEGA 

. 0ME6A2 

STATE30 

50. 

♦ VDV 

,60V 

,RDV 

,MOV 

,PDV 

,ODV 

STATE3D 

51. 

♦ UDV 

,VD6 

, GD6 

,R06 

,PDG 

,006 

5TATE30 

52 

♦ U06 

, VOR 

. GDR 

,RDR 

,PDR 

,ODR 

STATE3D 

53 

♦ DDR 

, VDM 

, GDM 

,MOB 

,PDH 

. VDP 

ST ATE3D 

54. 

♦ GDP 

,POP 

.OOP 

UDP 

, VDO 

,G00 

STATE3D 

55. 

♦PDO 

,UDO 

, HTDV 

,HTDR 

STATE3D 

56. 

REAL  ADM 

, MOV.  MDR 

STATE30 

57 

C0rm0N/STAT£3/ 

ST ATE 30 

58 

♦S1N2R0 

, C0S2R0 

. CQS2GM 

STATE3D 

59 

DATA  XALGCN  / 6HALGC0N/ , XKL1 1 , XKL21 . XKL12 . XKL22  . 

XKL13,  XKL23 

BLGCON 

60. 

♦/6*0  / 

BLGCON 

61 

CQMMON/DATA/ 

DATA 

62. 

• PI 

,RAO 

, RDI 

,SC 

,UMF 

,TnPF 

DATA 

63 

♦FTNM 

.CAR 

,J0P1 

.J0P2 

. J0P3 

, J0P4 

DATA 

64. 

EQUIVALENCE  ( XKP121. 

XKPI11C  2)),C 

XKP 131. XKP 111(3)). 

PO  1 4 

65 

♦ (XKPI12, 

XKPI  11(4)), 

( XKPI 22, XKPI 

IK  5)),  (XKPI  32,  XKP  IU<  6)), 

PG 14 

66 

♦ ( XKPI 13 . 

XKP11K  7 ) ), 

( XKPI 23, XKPI 

lit  8))  A XKPI  33.  XKP  I IK  9)) 

PO  14 

67 

ASSIGN  302  TO  JSUTCH 

BLGCON 

68 

DO  10  1=1 

,15 

PO  14 

69 

10  P<  I ) = 0 

BLGCON 

70. 

PI  = T 

BL6C0N 

n 

P2  s DELTAE 

BLGCON 

72. 

P3  = ALPHA 

BLGCON 

73 

1TR  = Q 

BLGCON 

74 

1P3  = JP3 

- 1 

BLGCON 

75. 

ASSIGN  100  TO  I SWT CH 

BLGCON 
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76 

77 


76 

79 


80 
81 
82 
83 
8 9 
65 

86 

67 

88 

89 


90 

91. 


92 

93 


99 

95 


96 

97 


9 B 
99 


100 

101 


100  CALL  VTNOP 

GO  TO  < 101, 102, 103, 109), JP1 


BLGCON 

FIXED 


101  CALL  FHiOOl 

GO  TO  no 


BLGCON 

BLGCON 


102  CALL  FH2001 

60  TO  no 


BLGCON 

BLGCON 


103  CALL  FH3001 
GO  TO  no 


BLGCON 

FIXED 


109  CALL  FH9001 


110  GO  TO  (111,112)  ,JP2 


BLGCON 


111  CALL  EL1001 
60  TO  120 


BLGCON 

BLGCON 


112  CALL  EL2001 


BLGCON 


120  60  TO  (122,  123,  129,  125,  126  f 127,  128  , 129  ),1P3 


BLGCON 


122  CALL  BL2001 
GO  TO  300 


P019 

BLGCON 


123  CALL  BL3001 
GO  TO  300 


BLGCON 

BLGCON 


129  CALL  BL9001 
GO  TO  300 


BLGCON 

BLGCON 


125  CALL  BL5001 
GO  TO  300 


BLGCON 

BLGCON 


126  CALL  BL6001 
GO  TO  300 


BLGCON 

BLGCON 


127  CALL  BL7001 
GO  TO  300 


BLGCON 

BLGCON 


101— | 102- 


110—1 


IlOH 


1 10— | 


103-i 


109-| 


f 1 1 — 1 112 


3- 


1 


t22— j 123-1 129-i  125-1  l*fr~l 


300—1 


300- 


300- 


300 — I 


300—1 


I 


127* 


1128—1 1 


102 

103 


126  CALL  BLB001 
GO  TO  300 


BLGCON 

BLGCON 


105 

106 


111 

112 


113 

119. 

115 

116 
117 
118. 
119. 
120 
121 
122 
123. 
129 

125 

126 

127 

128 

129 

130 

131 

132 

133 
139 

135 

136 


137 

138 

139 
190 


129  CALL  BL9001 


BLGCON 


300  ITR  = ITR  +1 

IF( ITR  GT  20)  GO  TO  3025 


BLGCON 

BLGCON 


3025- 


107  301  CONTINUE 

108  OET  = XK2T*( XKlO*XK3A  - XX1A*XK30) 

109  * + XK2A*(  XK1T*XK30  - XX1D*XK3T) 

HO  IF(  AB$(  OET  1 GT  1 E-201  GO  TO  3011 


+ XK2D*1 XK1A*XK3T  - 


BLGCON 

XK1T*U3A)  BLGCON 
BL6C0N 
BLGCON 


3025  1ST  ART=6 
RETURN 


BLGCON 

BLGCON 


3011  CONTINUE 

XKPIll  = ( XK20»XX3A  - XK2A*XK3D 
XKPI21  = ( XK2A*XK3T  - XX2T*XK3A 
XKPI31  = ( XK2T * XK3D  - X*2D*XK3T 
XKP1 12  = <XK1A*XX3D  - XK1D+XK3A 
XKP122  - ( XK1T*XK3 A - XK1A*XK3T 
XKPI32  = (XK10*XK3T  - XK1T*XX3D 
XKPJ13  = ( XK1Q«XK2A  - XK1A*XK2D 
XXP123  = ( XKl A*XK2T  - XX1T*XK2A 
XKP133  = I XK1T*XK2D  - XK1D*XK2T 
GO  TO  JSUTCH 
302  CALL  PlATflLTC  OP  . XKPIll.  XKl,  3,  3,  1) 
SUn  * 0 

DO  306  I = 1,  3 
01  V = PC  I 3 
1F(  ABS(  01 V ) LT 


)/OET 
)/OET 
)/  OET 
)/OET 
J/DET 
J/OET 
>/OET 
l/OET 
)/OET 


01  1 


DIV=.01 

3C6  SUFI  = SUfl  ♦ ABStOPt  1 )/OIV) 

E— 12)  GO  TO  307 
P,  DP,  3,  1) 


IFtSUfl  LE  1 
CALL  FIAT AOD(  P 
T - PI 
DELTAE  = P2 
ALPHA  = P3 
APHR=ALPHA*RAO 
60  TO  1SUTCH 


BLGCON 

BLGCON 

BLGCON 

BLGCQN 

BLGCON 

BLGCON 

BLGCON 

BLGCON 

BLGCON 

BLGCON 

BLGCQN 

BLGCON 

BL6C0N 

BLGCON 

BLGCON 

P019 

BLGCON 

BLGCQN 

BLGCQN 

BLGCON 

BLGCON 

BLGCON 

P019 

BLGCON 


3on-ji 


307—1 


307  CALL  FIAT ADD(  P . 
7 - PI 
DELTAE  - P2 
ALPHA  = P3 


P,  OP,  3,  l) 


BLGCON 

BLGCON 

BLGCON 

BLGCON 
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306 


m. 

APHR=ALPHA*RAD 

F014 

142 

RETURN 

BLGCON 

143. 

ENTRY  BLGCNV 

BLGCON 

194. 

00  308  1=16,65 

PO 1 4 

145. 

308  Pt I >=0. 

PO  14 

1 46 

ASSIGN  500  TO  JSUTCH 

BLGCON 

147 

CALL  VT 

BLGCON 

148. 

GO  TO  (401,402,403,4041. JP1 

FIXED 

149. 

4C1  CALL  FH1 

BLSCON 

150. 

SO  TO  410 

BLGCON 

151 

402  CALL  FH2 

BLGCON 

152. 

60  TO  410 

BLGCON 

153. 

15«i. 

155 

156. 


H03  CALL  FH3 
60  TO  410 


BL6C0N 

Fixeo 


40H  CALL  FH4 


FIXED 


157 

158. 


110  GO  TO  (411,412).JP2 


BLGCON 


All  CALL  ELI 
GO  TO  420 


BLGCON 

BL6C0N 


159 

160. 


HI 2 CALL  EL2 


BLGCON 


161. 

162. 


H20  GO  TO  (422, 422, 423, 424, 425, 426, 427, 428,429), JP3 


BLGCON 


H22  CALL  BL2 
GO  TO  301 


BLGCON 

BL6C0N 


163. 

16H. 


H23  CALL  &L3 
GO  TO  301 


BL6C0N 

BLGCON 


165 

166. 


424  CALL  BLN 
SO  TO  301 


BLGCON 

BLSCON 


167 

168 


425  CALL  BL5 
60  TO  301 


&L&CQ  H 
BLGCON 


169 

170 


H26  CALL  0L6 
60  TO  301 


BLGCON 

BLGCON 


171 

172 


H27  CALL  BL7 
60  TO  301 


BLGCON 

BLGCON 


173. 

179. 


*»28  CALL  BL8 
GO  TO  301 


BLGCON 

BLGCON 


175  H29  CALL  8L9 

176  GO  TO  301 

177  500  CALL  npTULTt  DPDY.XKPIU  XK1V,  3,3T> 

178  RETURN 

179.  END 


BLGCON 

BLSCON 

P014 

BLSCON 

BLGCON 


410  — 


HlOH 


3' 


H 0 1 — ] 402 “i  HO 3 
410 


4U—|412 


3- 


] 


922— \H 


423~i  H2H-1H25— \ 


] 


426* 


i«h 


H28- 


1 129— | 


301- 

301- 

301* 

301- 

301- 

301- 

301- 


301- 
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SUBR0UT INE 
BLYNE 


Subroutine  BLYNE 


Pu  r po  b c 

This  routine  interpolates  bivariate  tables. 


FORTRAN  HATH 

SYP1B0L  SYMBOL 


CODE 


DESCRIPTI ON 


STORAGE  SUBROUTINE  USAGE 
BLOCK  LOC  SUBR  CODE  VAR 


ALFA 

i 

ft  31  word  *rr  ay  containing  the  aesh  xg,  xj,  /xn 

/BICl)B£/< 

20H) 

BLICO 

I 

t 

BLI  CO 

PI 

PtACH 

BLYNE 

I 

ALFA 

AP1AX 

X >1 

i 

The  largest  value  of  the  first  Independent  variable 

/B1CUBE/I 

2 ) 

BLICO 

0 

P1PIAX 

of  a bivariate  table. 

BLVNE 

I 

AP1AX 

INBVAD 

I 

APIAX 

AMIN 

tn 

i 

The  smallest  value  of  the  first  independent 

/BI CUBE/I 

1 ) 

BLICO 

PI 

FiPSIN 

0 

variable  of  a bivariate  table. 

BLVNE 

I 

APSI N 

INBVAD 

I 

APIIN 

C 

0 

A 32  word  array  containing  the  spline  coefficients 

/BICUBE/( 

12  ) 

BLYNE 

0 

C 

for  the  two  bivariate  functions  at  rectangle  IRECT. 

BLYNE 

I 

CLOO 

INBVAD 

0 

c 

CLOO 

I 

A 32  Bor'd  array  containing  the  spline  coefficients 

/ BI CUBE/C 

12) 

BLVNE 

0 

c 

for  the  two  bivariate  functions  at  rectangle  IRECT 

BLVNE 

I 

CLOO 

INBVAD 

G 

c 

IF 

Pt 

Last  file  in  the  grid  In  which  Interpolation 

/BI CUBE/I 

3) 

BLVNE 

H 

IF 

occurred. 

INBVAD 

* 

IF 

IFPSAX 

N 

I 

Total  number  of  files  In  grid. 

/ B I CUBE/I 

9) 

BLICO 

P) 

IRflAX 

BLVNE 

I 

IFHAX 

INBVAD 

I 

IFPSAX 

IFOB 

I 

Forward  or  adjoint  Integration  flag 

/ XCODES / ( 

178  ) 

ACCEL 

I 

IFOB 

= 1 »eans  forward 

BEROCO 

I 

IFGB 

= 2 weans  adjoint 

BLVNE 

I 

IFOB 

E0UA3 

I 

IFOB 

I PIP  UL 

1 

IFOB 

5PLYNE 

I 

IFOB 

TOPn 

0 

IFOB 

IR 

PI 

Last  rank  in  the  grid  in  which  interpolation 

/BICUBE/I 

7) 

BLICO 

PI 

IF 

occurred. 

BLVNE 

PI 

IR 

INBVAD 

n 

IR 

IREC 

PI 

Logical  record  on  IUNIT  that  contains  spline 

/BICUBE/I 

11  ) 

BLICO 

pi 

IREC 

coefficients  for  rectangle  IRECT. 

BLYNE 

M 

IREC 

INBVAD 

PS 

IREC 

IRECT 

PI 

Gr i d rectangle  associated  with  IR  and  IF. 

/BI CUBE/I 

10) 

BLICO 

PS 

IRECT 

BLVNE 

ps 

IRECT 

1N3VAD 

pi 

IRECT 

1 APIA  X 

I 

Total  number  of  ranks  In  grid. 

/BICUBE/I 

85 

BLICO 

n 

IFPSAX 

BLVNE 

i 

IRPIAX 

INBVAD 

i 

IfiPSAX 

ISTART 

0 

Initialization  and  divergance  flag 

/XCODES/I 

197  ) 

A5T3 

0 

ISTART 

BLSCON 

0 

ISTART 

BLVNE 

a 

ISTART 

FNT6 

i 

ISTART 

PSODELA 

0 

ISTART 

PROPIN 

G 

ISTART 

REU3 

1 

ISTART 

TEST 

PI 

ISTART 

TQPP) 

PI 

ISTART 

IUNIT 

I 

Logical  unit  nuaber  on  which  bicubic  spline 

/BICUBE/I 

9) 

BLICO 

PI 

IUNIT 

coefficients  are  stored  for  this  table. 

BLVNE 

1 

IUNIT 

INBVAD 

I 

IUNIT 

PIACH 

I 

A 31  word  array  containing  the  aesh  yg,  y i , . „ . , y n 

/BICUBE/I 

235) 

BLICO 

PI 

ALFA 

BLVNE 

1 

P1ACH 

PIP1AX 

y n 

I 

The  largest  value  of  the  second  independent 

/ BI CUBE/I 

6) 

BLICO 

0 

APSAX 

variable  of  a bivariate  table. 

BLVNE 

I 

P1PIAX 

MPIIN 

yo 

I 

The  smallest  value  of  the  second  Independent 

/BICUBE/t 

5 1 

BLICO 

0 

APIIN 

variable  of  a bivariate  table. 

BLYNE 

1 

P1PIIN 

T 

I 

A 160  word  array  containing  logical  record  IREC. 

/BICUBE/t 

AN) 

BLICO 

I 

T 

BLVNE 

I 

T 

INBVAD 

I 

T 
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6LVNF 


1.  SUBROUTINE  8LYNE!A,  H,  U>  BlYNE 

2.  real  n.  x,  nnjN,  mbax,  bach  Glyne 

3.  COIWON/XCOOES/  JKQ!  17J),IFOB  BLYNE 

H FQU1 VALENCE!  JKQ11V7),  1ST  ART  I SEP18 

5 COBBON  /BICUBE/  AH1N,  ABAX,  IF,  IFnAX,  BNIN,  BHAX,  IB,  1 RHAX  BLYNE 

6 llUNIT,  1RECT,  IREC,  C!32>,  TC160),  KNfiTStl)  BLYNE 

T DIMENSION  U(  6),  ALFA!  I >,  BACHt 1 ) BLYNE 

B EGU]  VALENCE  I ALFA,  KNOTS),  ! PIACM,  K«0TS!32)>  BLYNE 

9.  EQUIVALENCE  BLYNE 


10 

11CLOO, 

C<  1>), 

1CL01, 

Cl  SI), 

CCL02, 

Cl  9)), 

( CL03 

Cl  13  > ), 

BLYNE 

u 

2l CLIO, 

Ct  2)1, 

ICL11, 

C!  6)1, 

£ CL12, 

Cl  10)), 

( CL13, 

Cl  19)), 

BLYNE 

12. 

3( CL20 . 

C<  3)), 

!CL21, 

C!  7)), 

< CL22, 

Cl  ID), 

t CL23, 

Cl  15  >>, 

BLYNE 

13 

4( CL30, 

C(  4)), 

! CL31 , 

ci  an. 

( CL32, 

C<  12)), 

(CL33, 

Cl  16  >), 

BLYNE 

14. 

51 CDOO, 

Cl  171), 

! CD01, 

Cl  211), 

(C002, 

Cl  25) ), 

( COOS , 

Cl  29  ) ), 

BLYNE 

15 

6 l C010, 

C(  1 0 > ), 

icon. 

C!  22  ) ), 

CCD12, 

Cl  26  ) >, 

(C013, 

Cl  30  )), 

BLYNE 

16. 

71CD20, 

C(  19)), 

! C021, 

C!  23)), 

( CD22, 

Cl  27 ) ), 

< CD23, 

Cl  31  >>, 

BLYNE 

17 

81CD30, 

C(  20  ) ), 

! CD31 , 

C!  2ND. 

(CD32. 

C(  28 ) 1, 

( C033, 

Cl  32)) 

BLYNE 

18. 

IF(  Pltlll 

N .LE  n 

-AND. 

n . le.  nnAU  Git 

TO  20 

BLYNE 

n 

1ST ART 

= 6 

SEP18 

20 

RETURN 

SEP  18 

21 

10  CONTINUE 

BLYNE 

22. 

23 

29 

20 

IFlAMN  .LE  A AND.  A .LE.  AflAX ) BO  TO  30 
1FI A .LT  AniN ) A = ARIN 
1FIARAX  .LT.  A)  A r Art AX 

elyne 

BLYNE 

BLYNE 

25 

30 

IFU1  - PIACHI 1R)  ) 40,80,50 

BLYNE 

26 

90 

IR  5 1R  * 1 

BLYNE 

27 

GO  TO  30 

8LYNE 

28 

50 

IFin  - F1ACHIIR  + 1>)  80,60,70 

BLYNE 

29 

60 

IF!  IR  GE  IfilKAX ) GO  TO  80 

8LYNE 

30 

70 

1R  = 1R  * 1 

BLYNE 

31 

60  TO  30 

BLYNE 

32. 

80 

IFl  A - ALFAt IF ) ) 90,130,100 

8LYNE 

33 

90 

IF  = IF  - 1 

BLYNE 

39 

GO  TO  80 

BLYNE 

35 

100 

1F(A  - ALFAUF  + 1))  130,110,120 

BLYNE 

36. 

110 

1F11F  BE  IFrtAX ) 60  TO  130 

BLYNE 

37 

120 

IF  = IF  + 1 

BLYNE 

38. 

BO  TO  80 

BLYNE 

39 

130 

H = A - ALFA! IF  ) 

BLYNE 

90. 

K = B - BACH! 1 R ) 

BLYNE 

91. 

JRECT  = IR  ♦ IRflAXM IF  - 1) 

BLYNE 

92. 

IF! JRECT  EO.  IRECT)  GO  TO  160 

BLYNE 

93 

IRECT  = JRECT 

BLYNE 

99 

JREC  = l IRECT  - 1 >/5  * 2 

BLVHE 

95 

1FIJREC  .EO.  IREC ) 60  TO  140 

BLYNE 

96. 

IREC  = JREC 

BLYNE 

97 

CALL  READBS!  I UNIT,  T,  160,  IREC) 

8LVNE 

98 

190 

IB  = 3Z*( IRECT  - 5*IR£C  + 9) 

BLYNE 

99 

DO  150  1 = 1,  32 

BLYNE 

50 

J = I + IB 

BLYNE 

51. 

150 

Cl  1 > = TU  > 

BLYNE 

52 

160 

CONTINUE 

BLYNE 

53. 

CLO  = CLOO  ♦ K*(CL01  ♦ XMCL02 

♦ K*CL03 ) ) 

BLYNE 

59 

CL  1 = CUO  + KHCL11  + KMCL1Z 

+ K*CL1 3 >) 

BLYNE 

55 

CL2  = CL20  + X.1CL21  + *•! CL22 

+ K*CL23 ) ) 

BLYNE 

56 

CL3  = CUO  + CL31  ♦ K*( CL32 

+ X*CL33)> 

BLYNE 

57. 

U(l)  = CLO  + H»(CL1  ♦ H»1CL2  * 

H*CL3 ) > 

BLYNE 

58 

COO  = CDOO  + K»(C001  + X»!CD02 

♦ K*CD03  ) ) 

BLYNE 

59 

CD1  = CD10  ♦ K»! COlt  * K*t  CD12 

+ K*CD13)> 

BLYNE 

60 

C02  = C020  + X.IC021  ♦ K«!CD22 

+ K*C023 1 ) 

BLYNE 

61 

C03  = CD30  + K*£CD31  ♦ K*( C032 

♦ K»C033)) 

BLYNE 

62 

Ut  4 ) - COO  ♦ H*( CD1  + H*(CD2  + 

H»C03)) 

BLYNE 

63 

GO  TO  < 180, 1701, 1F08 

P014 

69. 

170 

CLOPP  = X*CL03 

BLYNE 

65 

CLOPP  = CLOPP  + CLOPP  + CLOPP  ♦ CL02 

BLYNE 

66. 

CLOP  = C101  X.1CL02  ♦ CLOPP) 

BLYNE 

67 

CL1PP  - K*CL13 

BLYNE 

68 

CL1PP  = CUPP  ♦ CL1PP  + CL1PP  ♦ CL12 

BLYNE 

20- 


NO— 150-1 


to  — [ 7 G — ] 


80- 

80- 


30- 


yo— )ioO-j  i3o— 

? 10— I 120~i  130- 
II  30- 


160 
1 HO 


3 
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69 

CUP  = CLli  + K«fCU2 

4 

CL1PP) 

70 

CL2PP  = K*CL23 

71. 

CUPP  = CL2PP  ♦ CL2PP 

+ 

CL2PP  4 

72 

CL2P  = CL21  * K*( CL22 

4 

CL2PP ) 

73. 

CL3PP  - K*CL33 

74. 

CUPP  s CL3PP  + CL3PP 

4 

CL3PP  4 

75. 

CL3P  = CL31  + K*( CL32 

4 

CL3PP ) 

76 

UXX  = H*CL3 

77. 

UXX  = UXX  ♦ UXX  + UXX 

♦ 

CL2 

78 

U(2 ) = CL1  + H*( CL2  + 

UXX) 

79. 

ut  3 > * clop  ♦ h*<  Clip 

4 

H*( CL2P 

80. 

CDCPP  = K*C0Q3 

81. 

C00PP  = CDOPP  + CDCPP 

♦ 

CDOPP  4 

02 

COOP  = CD01  + K*(C0G2 

-* 

CDOPP ) 

83. 

C01PP  - K*C013 

84. 

C01PP  = CD1PP  + CD1PP 

4 

C01PP  ♦ 

85 

C01P  = C011  + K*( C012 

♦ 

CD1PP ) 

86. 

CD2PP  = K*CD23 

87. 

C02PP  = CD2PP  ♦ CD2PP 

4 

CD2PP  4 

88. 

CD2P  = C021  + K*(CD22 

4 

C02PP ) 

89. 

CD3PP  a K*  GD33 

90 

CD3PP  = CD3PP  4 CD3PP 

4 

C03PP  ♦ 

91 

CD3P  = C031  + K*t  C032 

4 

CD3PP) 

92. 

VXX  = H*CD3 

93. 

VXX  = VXX  + VXX  + VXX 

4 

CD2 

94. 

UC  5 1 = C01  + H*( C02  ♦ 

VXX) 

95 

IK  6 ) = COOP  + H*( C01P 

+ 

H*<  CD2P 

96 

RETURN 

97 

180 

UXX  = H»CL3 

98. 

UXX  = UXX  4 UXX  4 UXX 

4 

CL2 

99 

U(2)  = CL1  4 H*(CL2  4 

UXX) 

100 

VXX  = H*CD3 

101. 

VXX  = VXX  4 VXX  + VXX 

4 

CD2 

102. 

U( 5 > - CD1  4 H»C  C02  ♦ 

VXX) 

103. 

190 

RETURN 

;o4. 

END 

CL22 

BLYNE 

BLYNE 

BLYNE 

CL32 

BLYNE 

BLYNE 

BLYnE 

4 H*CL3P)> 

BLYNE 

BLYNE 

BLYNE 

BLYNE 

BLYNE 

C002 

BLYNE 

BLYNE 

CO  12 

BLYNE 

BLYNE 

BLYNE 

CD22 

BLYNE 

BLYNE 

BLYNE 

CD32 

BLYNE 

BLYNE 

BLYNE 

4 H*CD3P  ) ) 

BLYNE 

BLYNE 

BLYNE 

BLYNE 

BLYNE 

BLYNE 

BLYNE 

BLYNE 

BLYNE 

P019 

PQ19 

P019 

BLYNE 

BLYNE 
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Subroutines  BL2  Through  BL.9 


tAi  i poho 


Subioulmo  13L2  through  BL9  supply  (on  option)  the  governing  equation  for  the 
angle  of  attack,  a , element  of  the  in-plane  control  vector.  This  is  governing 
equation  described  in  Sections  9.  2 and  10  of  Volume  I.  The  correspond- 
ence between  subroutine  and  steering  options  is  listed  below: 


Subroutine  Name 


Steering  Control  Option 


BL2 

Constant  angle  of  attack 

BL3 

Constant  lift 

BL4 

o 

Vertical  rise  of  pitchover,  y 0 

BL5 

Unpowered  total  acceleration  limit 

BL6 

Gravity  turn 

BL7 

Dynamic  pressure  limit 

BL8 

Heating  rate  limit 

BL9 

Reynolds  number  limit 

Subroutines  BL2  through  BL9  are  simplified  versions  of  AL2  through  AL>9 
used  in  the  quasi-linearization  module  of  PADS. 

Each  routine  has  a hierarchy  of  entry  points.  The  entry  points  for  example 
in  BL7  include  BL7010,  BL.7001  and  BL  7000.  The  meaning  of  the  numbers 
is  similar  m all  of  the  "BL"  routines  and  is  spelled  out  below.  (Sub- 
routine BL7  is  used  only  as  an  example). 

Entry  BL7000.  Computes  value  of  K^,  the  governing  equation. 

Entry  BL7001.  First  computes  partials  of  with  respect  to  elements 
of  the  m-plane  control  vector  and  then  computes  K^. 

Entry  BL7010.  Computes  explicit  partials  of  with  respect  to  state, 
then  computes  partials  of  with  respect  to  the  in-plane  control  vector  and 
finally  computes  K^. 
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SUBROUTINE 

BL2 


cr 

o 

/O 


FQH'HAN 

ivnnOL 

PlAt  H 
SvnBOl 

CODE 

DESCRIPTION 

ST  Ofi  a 

3E 

5 iMRP'JT  Uit 

: UC  AGE 

BLOC* 

LOC 

iUBfi  CODE 

VAR 

ALPHA 

<x 

1 

Angle  Of  attack 

( RAO  ) 

/AEC03  /( 

3 ) 

BEROCO 

I 

alpha 

BLGCON 

H 

ALPHA 

BL2 

1 

alpha 

FNTS 

0 

alpha 

flAflECO 

I 

ALPHA 

P10DELA 

n 

ALPHA 

(BO  DELB 

0 

ALPHA 

R E 113 

0 

ALPHA 

VI 

I 

ALPHA 

CALPHA 

I 

Constant  value  of  ang 1 t - o f - att a ck 

( RAO  } 

/GENF  /( 

552 ) 

BL2 

1 

calpha 

rtODELA 

n 

CALFHA 

no  DELB 

n 

CALPHA 

XK3 

0 

Third  control  vector  governing  equation  va 

lue. 

/ SENF  /{ 

575  ) 

BL2 

0 

XK3 

Corresponds  to  error  in  algebraic  equation 

BL3 

0 

XK3 

involving  ft. 

BLN 

0 

XK3 

BL5 

s 

X<3 

BL& 

0 

XK3 

BL7 

D 

XK  3 

,BL8 

0 

XK3 

P10DELA 

f 

XK3 

OUT 

I 

XX3 

KK3A 

0 

Partial  of  governing  equation  »rt  state  Or 

eontro  J 

/GENF  /< 

583  > 

BLGCON 

I 

XX3A 

vector  coaponent 

BL2 

0 

XK3A 

BL3 

0 

XK3A 

BLN 

0 

XX3A 

BL5 

n 

XK3A 

BL6 

D 

XK3A 

BL7 

0 

XX3A 

BL8 

0 

XK3A 
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3(5 


BL2 


1. 

SUBROUTINE  BL2 

&L2 

2 

CQRtiQN/ AEC03/ 

AEC03 

3 

*AP  HO 

.ftP  HR 

, ALPHA 

. VDA 

,60A 

,POA 

r 

AEC03 

9. 

♦SI  NA 

,COSft 

,PHI0 

,PHID 

.PHI 

, SI NPHI 

t 

AEC03 

5 

♦ C0SPH1 

,SDPH 

POPH 

, XLAflAt  9 ) 

, XLAFlPt  9 ) 

,coo 

f 

AECD3 

6. 

♦ CDOft 

,CLO 

,FK 

,xccn 

, ZCGM 

,CLOrt 

! 

AEC03 

7. 

♦cw 

,CHft 

. cman  ,cnn 

, CMO 

,cnort 

, FKrt 

M 

AEC03 

8. 

♦ CLAN 

'CL 

, CLA 

,CLM 

9 

AEC03 

9. 

♦ CD 

• CDA 

,C0* 

* 

AEC03 

10 

CO  RtiQN/ 6ENF/ 

GENF 

1 1 

♦onGt 20) 

,QNGP<  20,2 ) 

, VAROt  9 ) 

,TOLt  9 ) 

,5 VARt 10) 

, UQCt  20 ) 

GENF 

12 

♦ At  9,9) 

.ACQNt 9 ) 

.BC0N(9) 

, COTI-t  9,9) 

, DCQNC 9 ) 

.DTP 

f 

GENF 

13. 

♦ OTS 

;ot 

,OPSQ 

,Q 

,05 

$ 

GENF 

1*1. 

♦R 

,RE 

.MACH 

»P  A 

,R0 

,cs 

i 

GENF 

15 

♦ VNU 

.PAR 

,R0fi 

,CSR 

, VNR 

,sumsq 

GENF 

16. 

♦SVSO 

.TINEPH 

.TIMES 

,TOP 

,T0$ 

,TRt  9 ) 

, 

GENF 

17 

♦T5T( 20) 

,TPH  (20) 

. DI St  20  ) 

, DIPt  20) 

,T 

GENF 

18 

♦TLPH20) 

-TLSl  120) 

.OlPlt  20 ) 

,DISlt  20) 

,TII*IE 

, OPIP 

GENF 

19 

♦TINPR 

.LIFT 

.DRAG 

,TAX 

,tburn 

jTBUC 20) 

9 

GENF 

20 

♦ AE 

FP 

.FPOLD 

,FPD 

,HACHR 

, flACHV 

GENF 

21. 

♦ OR 

,av 

,FVAC 

,liftv 

9 

GENF 

22. 

♦UFTB 

,lifta 

DRAGV 

-DRA6R 

.ORAGA 

$ 

GENF 

23. 

♦ 

LlFTN 

'DBR 

,DB 

, ISP 

, ISPF 

t 

GENF 

29. 

* 

ULFT 

, ULFT  V 

,ULFTR 

, ULFT  A 

t 

GENF 

25 

♦xnc6 

,xncsv 

, xncsR 

, XttCGA 

, xncGn 

-CODAE 

GENF 

26 

♦CULFT 

,CT 

.CALPHA 

, CDE 

. CELT  AE 

, SI  D 

J 

GENF 

27 

♦COD 

.SIDAE 

, XC6 

,206 

,XJ 

GENF 

28. 

connON  / 

GENF  f 

GENF 

29. 

♦ XJV 

, XJR 

rGH 

, GABMAD 

, XK6 

, XKP 

GENF 

30. 

♦FRATED 

-IRATED 

GENF 

31. 

♦ PI 

,P2 

>3 

XK1 

,XK2 

,XK3 

9 

GENF 

32 

♦ XK1T 

,XK2T 

, XK3T 

, XK1D 

,XKZD 

, XK3D 

GENF 

33 

♦ XKIA 

,XK2A 

-XK3A 

, XK1 V 

,XKZ9 

, XK3  V 

9 

GENF 

39 

♦ XX16 

,XK26 

, XK3S 

, XX  IP 

,XK2P 

, XK3P 

, 

GENF 

35 

♦ XK1R 

XK2R 

, XK3R 

, XK10 

, XK20 

, XK30 

9 

6ENF 

36 

♦ XK1U 

XX2U 

.XX3U 

. XKlrt 

, XK2M 

, XK3fl 

f 

GENF 

37. 

♦PV 

.PG 

.PP 

,PR 

,P0 

, DPOYt 3,8) 

GENF 

38 

REAL  LIFTS  . LIFT  . 

LIFT  ft,  LI  FTH  . 

MACH, 

MACHR, 

GENF 

39 

♦ ISP.  ISPF . MACHV.LI FTV  . I RATED 

FRAT 

90 

DIMENSION 

TPHltlO).TSTl(iO) 

GENF 

91 

EOUI VALENCEt  TLP1.TPH1 

),1TLS1,TSTU 

GENF 

92. 

C 

BL2 

93. 

ENTRY  BL2001 

BL2 

99 

90  XK3A  = 1. 

BL2 

95 

ENTRY  BL2000 

BL2 

96 

50  XK3  = ALPHA  - CALPHA 

BL2 

97 

c 

BL2 

98. 

RETURN 

&L2 

99. 

END 

Bl2 
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SUBROUTINE 

BL3 
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FORTRAN 

SYMBOL 


NATH 

SYMBOL 


COQE 


DESCRIPTION 


SU8R  COOE  VAR 


STORAGE 
6L0LK  LOC 


CULFT 

1 

Constant  vaiua  of  ULFT 

(LBS) 

/GENF 

/( 

550  ) 

BL3 

1 

CULFT 

MQDELA 

0 

CULFT 

ULFT 

L,, 

I 

Untr 1 »■( d aero.  1 H t 

/GENE 

/( 

540  ) 

8L3 

I 

ULFT 

U 

MOOELA 

I 

ULFT 

VT 

n 

ULFT 

ULFTA 

1 

Partial  of  ULFT  art  angle  of  attack 

/GENF 

/< 

543  ) 

BL3 

i 

ULFTA 

VT 

m 

ULFTA 

ULFTR 

I 

Partial  of  ULFT  art  altitude 

/GENF 

/( 

542) 

BL3 

I 

ULFTR 

VT 

m 

ULFTR 

ULFTV 

! 

Partial  of  ULFT  art  velocity 

/GENF 

/( 

541  ) 

BL3 

1 

ULFTV 

VT 

n 

ULFTV 

XK3 

0 

Third  control  vector  governing  equation 

v a 

1 ue . 

/GENF 

/( 

•574  ) 

BL2 

0 

XX3 

Corresponds  to  error  in  algebraic  equation 

BL3 

0 

XK3 

involving  «*. 

BL4 

0 

XK3 

BL5 

Q 

XK3 

BL6 

0 

XK3 

BL7 

G 

XK3 

BL8 

0 

XK3 

MOOELA 

I 

XK3 

DUT 

I 

XK3 

XK3A 

0 

Partial  of  governing  equation  *rt  state 

or 

co  ntro  I 

/GENF 

/( 

563  ) 

BLGCON 

I 

XK3A 

vector  component 

BL2 

0 

XK3A 

BL3 

0 

XK3A 

BL4 

0 

XK3A 

BL5 

n 

XK3  A 

BL6 

0 

XK3A 

BL7 

0 

XK3  A 

BL8 

0 

XK3A 

XX3R 

0 

Partial  of  governing  equation  »r t state 

or 

contr o l 

/GENF 

/( 

595  ) 

BL3 

0 

XK3R 

vector  component 

BL4 

0 

XK3B 

BL5 

n 

XK3R 

BL6 

0 

XK3R 

BL7 

G 

XK3R 

BL8 

G 

XK3R 

XK3V 

0 

Partial  of  governing  equation  art  state 

or 

contro  1 

/GENF 

/< 

586  ) 

BL3 

0 

XK3  V 

vector  co«po  nent 

BL4 

0 

XK3V 

BL5 

n 

XK3V 

8L6 

0 

XK3V 

BLT 

0 

XK3  V 

BL8 

0 

XK3V 
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6L3 


1 . 

SUBROUTINE  BL3 

BL3 

2. 

COHRON/AEC03/ 

AEC03 

3 

♦ AP  HO 

, APHR 

.ALPHA 

. VOA 

, GOA 

,POA 

AEC03 

H , 

♦ SINA 

, COS  A 

,PHIO 

,PHID 

.PHI 

.SINPHI 

AEC03 

5. 

♦COSPHI 

, GDPH 

,PDPH 

, XLADAt  9 ) 

, XLARPi  9 ) 

,coo 

AEC03 

6. 

♦coon 

.CLO 

,FK 

, XCGft 

. 2CGR 

,CLOR 

AEC03 

7. 

♦cn 

,CRA 

,crar  .cnn 

,cno 

,CROR 

,FKR 

AEC03 

6 - 

♦ CLAR 

.CL 

CLA 

, CLrt 

AEC03 

9. 

10. 

♦CO  ,CDA 

COPmON/SENF/ 

,con 

AEC03 

GENF 

11 

♦0RGC20)  ,0«6Pt20 

,2 ), VAROt  9 ) 

,TOLt  9 ) 

,SVAR( 10) 

,«OCC 20) 

GENF 

12. 

♦ A<  9.9) 

. ACONl 9) 

.8C0N19) 

, COTIt 9,9) 

, OCON( 9 ) 

, OTP 

, 

GENF 

13. 

♦ OTS 

,DT 

, 6 

.dpso 

,0 

,os  . 

r 

GENF 

19, 

*R 

,HE 

.RACK 

,PA 

,R0 

,CS 

GENF 

15. 

♦VNU 

.PAR 

,ROR 

,CSR 

, VNR 

.SUflSO 

GENF 

16 

♦ SVSG 

.TlflEPH 

.TIRES 

,TOP 

,TOS 

,TB( 9 > 

GENF 

17 

♦TST ( 20  ) , TPH  ( 20  ) 0 1 S( 20  ) 

DIP( 20  ) 

,T 

t 

GENF 

18 

♦ TLPU20)  . T LSI  ( 2Q  ) , DJ  Pit  20  > 

,DISM  20  ) 

.TIRE 

.ORP 

t 

GENF 

19. 

♦TIRPR 

.LIFT 

,0RA6 

.TAX 

.TBURN 

.TBU120) 

9 

GENF 

20. 

*AE 

;fp 

, FPOLD 

,FPD 

, MACHR 

, flACHV 

, 

GENF 

21. 

•OR 

,0V 

,FVAC 

, LIFTV 

GENF 

22 

♦LIFTR 

, LIFTA 

DRAGV 

. DRA9R 

.DRAGA 
, ISPF 

M 

GENF 

23. 

♦ 

LIFTR 

Jdbr 

,0B 

,ISP 

t 

GENF 

29. 

9 

ULFT 

.ULFTV 

, ULFTR 

,ULFTA 

* 

GENF 

25 

♦ xncG 

,X« CSV 

,XRCGR 

XRCGA 

.XflCGR 

CO  DAE 

GENF 

26. 

•CULFT 

,CT 

.CALPHA 

,COE 

.DELTAE 

,S10 

, 

GENF 

27. 

♦COO 

.SIDAE 

, XCG 

,ZC6 

,XJ 

GENF 

28. 

CORRON 

/ GENF  / 

GENF 

29 

30. 

♦ XJV 
♦FRATED 

. XJR 
, 1RATED 

,GH 

, GARRAD 

, XKG 

,xxp 

; 

GENF 

GENF 

31 

♦ PI 

,P2 

>3 

XK1 

. XK2 

, XX3 

f 

GENF 

32. 

♦ XKIT 

. XK2T 

, XK3T 

. XK1D 

, XK2D 

, XK3D 

GENF 

33 

♦ XK1 A 

, XK2A 

,XK3A 

, XK1 V 

, XK2V 

, XK3 V 

9 

GENF 

39 

♦ XK1 G 

, XK2G 

, XX3G 

, XK1P 

, XK2P 

,XK3P 

0 

GENF 

35. 

♦ XK1R 

,XK2R 

,XK3R 

,XK10 

. XK2Q 

, XK30 

GENF 

36. 

♦XK1U 

, XK2U 

, XX3U 

,xkir 

, XK2R 

, XlC3R 

, 

GENF 

37 

♦ PV 

,P6 

.PP 

.PR 

,P0 

, BPDYt  3,8 ) 

GENF 

38. 

REAL 

LIFTR  , LIFT 

. LIFTA. LIFTR  , 

RACH, 

RACHR, 

GENF 

39. 

♦ ISP, 

ISPF,  flACHV, 

LIFTV  . IRATEO 

FRAT 

90. 

OIREWS 

ION  f PHK  10) 

.TSTlt 10) 

GENF 

HI. 

EQUI VALENCE( TLPl.TPHl ),( TLSl.TSTl > 

GENF 

H2. 

ENTRY 

BL3010 

BL3 

93. 

XK3V  = 

ULFTV 

BL3 

99. 

XK3R  = 

ULFTR 

BL3 

95. 

ENTRY 

BL3001 

BL3 

96. 

90  XK3A  = 

ULFTA 

BL3 

97. 

ENTRY 

BL3000 

•» 

BL3 

98. 

50  XK3  = 

ULFT  - CULFT 

BL3 

99. 

C 

BL3 

50. 

RETURN 

BL3 

51. 

END 

BL3 
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SUBR0UTINE 

BL4 


320 


FORTRAN 

SYMBOL 


HATH 

SYMBOL 


COOE 


DESCRIPTION 


S TORAGE 
BLOCK  LOC 


SUBROUTINE  USAGE 
SU8R  CORE  VAR 


COOAE  tosto-lj)  1 s,t  »» *bo  1 


COSA  COS«  1 See  symbol 


CGSGAfl  C0S(>)  I See  symbol 


COSP HI  COS*  I See  syeboi 


COSPSI  COs(^)  l See  sy*bol 


COSRHO  c o s( p ) I See  symbol 


/ GENF  /( 


/AEC03  /( 


/ST  AT£3/( 


/AEC03  n 


/STATE3/I 


/STATE3/( 


/5TATE3/I 


t UBS  J /GENF  /< 


559  ) 

ACCEL 

I 

CODAE 

BL5 

I 

COOAE 

BL6 

1 

CODAE 

BL7 

I 

COOAE 

BLB 

I 

COOAE 

FH3 

I 

CODAE 

SOER3 

I 

COOAE 

VT 

0 

CODAE 

B ) 

ACCEL 

1 

COSA 

BL*) 

I 

COSA 

BL6 

I 

COSA 

BL7 

1 

COSA 

BLB 

1 

COSA 

FH3 

I 

COSA 

OUT 

I 

COSA 

VT 

n 

COSA 

68  7 ) 

ACCEL 

I 

COSGAfl 

BL5 

I 

COSGAM 

BL8 

I 

COS  GAN 

DER3A 

I 

COS  GAN 

ESUA3 

0 

COS  GAM 

P10DELA 

i 

COSSAN 

HOOELB 

1 

GOSSAN 

OUT 

i 

COSGAN 

POBC 

i 

cosgaia 

POY3A 

i 

C0S6AN 

131 

ACCEL 

i 

COSP  HI 

BLR 

I 

COSPHI 

GUI3A 

it 

COSPHI 

rtODELA 

n 

COSPHI 

P100ELB 

n 

COSPHI 

OUT 

i 

COSPHI 

705  ) 

BL1) 

i 

COSPSI 

BL7 

i 

COSPSI 

BLB 

i 

COSPSI 

DER3A 

i 

COSPSI 

E0UA3 

0 

COSPSI 

HOOELA 

i 

COSPSI 

nOOELB 

i 

COSPSI 

PDBC 

i 

COSPSI 

PDY3A 

i 

COSPSI 

707  ) 

BLB 

i 

COSRHO 

Bl7 

i 

COSRHO 

blb 

i 

COSRHO 

DER3A 

i 

COSRHO 

E0UA3 

rt 

COSRHO 

A10DELA 

I 

C35RHQ 

nODELB 

I 

COSRHO 

OUT 

I 

COSRHO 

POBC 

1 

COSRHO 

POY3A 

I 

COSRHO 

756  ) 

BL5 

1 

COS2R0 

BL7 

m 

CQ52R0 

BL8 

n 

C0S2RQ 

flODELA 

0 

COS2R0 

P1QDELB 

0 

C0S2R0 

537  ) 

ACCEL 

i 

OB 

BL5 

i 

DB 

BL6 

i 

DB 

6L7 

i 

OB 

BLB 

I 

OB 

EQUA3 

i 

DB 

FH3 

i 

OB 

OUT 

i 

DB 

SDER3 

i 

OB 

VT 

i 

OB 

30  OCT  72  G 01-56 


I l)H  I K ON 
SYSIIOL 

DBA 

G 

GASSAD 

LIFT 

LIFTS 

LIFTS 

LIFTR 

LIFTV 

H 

OSEGA 
0 PIE  GA2 

30  OCT  72 


I1AI  K 
SYsiXIL 


COOE 


DESCRIPTIOiM 


STORAGE  SUBROUTINE  USAGE 
BLOT'S  LOC  SU3H  COOE  VAR 


I Partial  of  base  drag  art  attitude 

g I Gravitational  attraction 

I Pitch  r at* 

L I Aerodynaatc  lift 

I Partial  of  lift  art  an g I e - of  - at t ack 

I Partial  of  LIFT  art  aass 

I Partial  of  lift  art  altitude 

I Partial  of  lift  art  velocity 

m I Rasa 

w I Earth  rotation  rate 

u2  1 See  syaboi 


/GENF 

/! 

536  ) 

ACCEL 

I 

DBR 

BLB 

I 

DBR 

BL6 

I 

DBR 

BL7 

I 

DBR 

BLB 

I 

DBR 

* 

E0UA3 

I 

DBR 

FH3 

I 

DBR 

VT 

I 

DBR 

t FT/SEC**2  ) 

/GENF 

/( 

301  1 

BLB 

I 

G 

BL7 

I 

G 

BL8 

I 

G 

0ER3A 

I 

S 

EOUA3 

s 

6 

SOGELA 

i 

G 

HDQELB 

i 

G 

PDY3A 

i 

G 

S0ER3 

i 

G 

SDINP 

s 

G 

<RAO> 

/GENF 

/! 

565  ) 

BLB 

I 

GASSAD 

PROPB 

0 

GASSAD 

PROPIN 

0 

GASSAO 

(LBS) 

/GENF 

/( 

B96  ) 

ACCEL 

I 

LIFT 

BLB 

I 

LIFT 

BL5 

I 

LIFT 

BL6 

I 

LIFT 

ENVPRS 

1 

LIFT 

FK3 

I 

LIFT 

OUT 

I 

LIFT 

PROPB 

0 

LIFT 

PROPIN 

0 

LIFT 

VT 

0 

LIFT 

/GENF 

/! 

531  ) 

ACCEL 

I 

LIFTA 

BLB 

1 

LIFT  A 

BL5 

I 

LIFTA 

BL6 

I 

LIFTA 

FH3 

I 

LIFTA 

VT 

0 

LIFTA 

/GENF 

/< 

535  ) 

ACCEL 

I 

LIFTS 

BLB 

I 

LIFTS 

BL5 

I 

LIFTS 

BL6 

I 

LIFTS 

FH3 

I 

LIFTS 

VT 

0 

LIFTS 

/GENF 

/( 

5301 

ACCEL 

I 

LIFTR 

BLB 

1 

LIFTR 

BL5 

I 

LIFTR 

BL6 

I 

LIFTR 

FH3 

I 

LIFTR 

VT 

0 

LIFTR 

/GENF 

/( 

529  ) 

ACCEL 

I 

LI  FT  V 

BLB 

1 

LIFTV 

BL5 

I 

LI  FT  V 

BLfe 

I 

LIFTV 

FH3 

I 

LIFTV 

VT 

0 

LIFTV 

/STATES/! 

9) 

ACCEL 

I 

S 

BLB 

I 

S 

BLB 

I 

S 

E9UA3 

I 

n 

OUT 

I 

s 

SDER3 

I 

s 

(RAD/SEC) 

/ST  ATE3/( 

719  l 

BLB 

I 

OSEGA 

BL7 

I 

OSEGA 

TOPS 

0 

OSEGA 

/STATES/! 

720  ) 

BLB 

I 

0SEGA2 

BL  7 

I 

0SEGA2 

BL8 

I 

OSEGA2 

TOPS 

0 

OSEGA2 

01-4  6 
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FORTRAN  MATH 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


PG 

PO 

PP 

PR 

PV 

R 


M Partial  of  # art  state 
n Partial  of  * ar t state 
M Partial  of  * art  state 
Cl  Partial  of  * art  state 
ft  Partial  of  # art  state 

R I Radial  distance  fro*  earth  center  to  vehicle 


SIDAE  s I n(  1 I See  syabol 


SINA  s | na  I See  syabol 


SINGAM  s 1 n( > ) I Gee  syabol 


SINPHI  si  5^  I See  syabol 


SINPSI  si  r>  C V' ) I See  syabol 


5 1 NR  HO  Sin(p)  i See  syabol 


S IQfiAGF  SUBROUTINE  USAS 

BLOCK  LOC  bUBR  CODE  VAR 


/GENF 

/( 

606  ) 

BLH 

M 

PG 

/GENF 

/( 

60S  ) 

BLH 

M 

PO 

/GENF 

/( 

607  ) 

BLH 

M 

PP 

/.GENF 

/I 

608  ) 

BLH 

M 

PR 

/GENF 

/( 

605  ) 

BLH 

M 

PV 

/GENF 

/< 

305  > 

BLH 

I 

R 

BL7 

I 

R 

BLS 

I 

R 

DER3A  1 R 
E0UA3  M R 
MOOELA  I R 
MOOELB  I R 
PDBC  I R 
PDY3A  I R 
TBTOSZ  I R 

/GENF  /(  557)  ACCEL  I 5IDAE 

BLH  1 SIDAE 
9L6  I SIDAE 
BL7  I SIDAE 
BLS  I SIDAE 
FH3  I SIDAE 
VAT  0 SIDAE 

/ AEC03  /(  7)  ACCEL  I SINA 

BLH  I SINA 
9L6  I SINA 
BL7  I SINA 
BL8  I SINA 
FH3  I SINA 
GDI  3 A M SINA 
OUT  I SINA 
VT  M SINA 

/STATE3/(  (.88)  BLH  I SINGAM 
BL7  I SINGAM 
BL8  I SINGAM 
0ER3A  I SINGAM 
E0UA3  0 5INGAM 
MOOELA  I 5INGAM 
MODELS  I 5INSAM 
PDBC  I SINGAN 
PDY3A  I SINGAM 
SDER3  I SINGAM 

/ AECQ3  /(  1Z)  ACCEL  I SINPHI 

BLH  I 5INPH1 
MOOELA  M SINPHI 
MOOELB  M SINPHI 
OUT  I SINPHI 

/ST ATE3/(  70H ) BLH  I SINPSI 
BL7  I SINPSI 
BL8  I SINPSI 
0ER3A  I SINPSI 
EOUA3  D SINPSI 
MOOELA  I SINPSI 
MOOELB  I SINPSI 
PDBC  I SINPSI 
PDY3A  l SINPSI 

/STATE3/I  70b)  BLH  I SINRHO 
BL7  I SINRHO 
BL8  I SINRHO 
DER3A  I SINRHO 
EQUA3  0 SINRHO 
MOOELA  I SINRHO 
MOOELB  1 SINRHO 
OUT  I SINRHO 
PDBC  I SINRHO 
PDY3A  I SINRHO 


30  OCT  72  G.OI-Hb 


FORTRAN 

SYMBOL 


FIRTH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


S lIBR  CODE  VAR 


SIN2R0  s I n(  2/0  ) 
T T 


XK3 


/ST AT E3/<  755  ) BLR  I SIN2R0 

BL7  M S1N2R0 

BL8  M SIN2R0 

nOOELA  0 SIN2R0 

MOOE'LB  0 SIN2RB 

(LBS)  /GENF  /(  MU)  ACCEL  J T 
BLBCON  M T 
BLM  1 T 
BL6  I T 
BL7  I T 
BL8  I T 
EL2  I T 
E0UA3  0 T 
F HI  I T 
FH2  T T 
FH3  1 T 
FHH  I T 
IMPUL  I T 
OUT  1 T 
PBOPB  0 T 
PROPIN  0 T 
REU3  0 T 
S0ER3  I T 

I Relative  velocity  T FT/SEC ) /STATE3/T  1)  ACCEL  I V 

ADICB3  0 VAR 
ADJUST  M VAR 
AGETB3  0 VAR 
AST3  I VAR 
BLM  I V 
BL7  I V 
BL8  I V 
COM3  I VAR 
DER3A  I V 
DTF3  I V 
ENVPRIT  I VAR 
EQUA3  I V 
MOOELA  I V 
MODELA  I VAR 
flODELB  1 V 
MTX3A  I VAR 
OUT  I V 
OUT  1 VAR 
P BBC  I V 
PBY3A  1 V 
REU3  M VAR 
RKTA3A  H V 
STP3  I VAR 
TOPM  D KUObl 
YREF3  n V 


I 

Algebraic  equation  used  in  vertical  rise  and 

/GENF 

/< 

565  ) 

BLM 

I 

XKG 

p i t chover 

MODELA 

M 

XKGAN 

MODELS 

M 

XKGAR 

I 

Algebraic  equation  used  in  vertical  rise  and 

/GENF 

/( 

566  ) 

BLM 

I 

XKP 

p 1 1 cbo  ver 

MOOELA 

n 

XKPS 

MODELA 

l 

XKPSI 

MOOELB 

n 

XKPS 

MODELS 

i 

XKPSI 

0 

Third  control  vector  governing  equation  value 

/GENF 

/( 

57M  > 

BL2 

0 

XK3 

Corresponds  to  error  in  algebraic  equation 

BL3 

0 

XK3 

involving  «. 

BLM 

0 

XK3 

BL5 

0 

XK3 

BL6 

0 

XK3 

BL7 

0 

XK3 

BL8 

0 

XK3 

MOOELA 

1 

XK3 

OUT 

I 

XK3 

I See  lyabol 


1 Thruat 
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IJIUIIAN  HATH 

■.YrlHOl  SYMBOL 


rooe 


DESCRIPTION 


s torase 

BLOCK  loc 


SUBh  CODE 


XK3A 

0 

Part!  a 1 

of  governing 

equation 

art 

»t  at  * 

or 

centre l 

/GENT 

/( 

583  ) 

BLGCON 

1 

XK3A 

« * c t o r 

coapo  n«nt 

BL2 

0 

XK3A 

913 

0 

XK3A 

BLN 

0 

XK3A 

BL5 

n 

XK3A 

8L6 

0 

XX3A 

BL7 

0 

XX  3 A 

BL8 

0 

XK3  A 

XK  30 

0 

Partial 

of  go  ver  n i ng 

equation 

art 

state 

or 

control 

/GENF 

/( 

580  ) 

BLGCON 

I 

XK3D 

vector 

co  apo  nent 

BLN 

0 

XK30 

BL6 

0 

XK3D 

BL7 

0 

XK3D 

BL8 

0 

XK3D 

XK3G 

0 

Parti  a 1 

of  governing 

equation 

art 

state 

or 

co  nt  r o I 

/GENF 

/( 

589  ) 

BLN 

0 

XK3G 

vector 

coapo  ne  nt 

BL7 

0 

XK3G 

BLB 

0 

XK3G 

XK3H 

0 

Parti  al 

of  governing 

equation 

art 

state 

or 

co  ntro  1 

/GENF 

/( 

609  ) 

BLN 

0 

XK3IN 

vector 

component 

BL5 

ra 

XK3H 

BL6 

0 

XK3H 

BL7 

0 

XK3H 

BL8 

0 

XK3M 

XK30 

0 

Partial 

of  go ver ni ng 

equation 

art 

s t at  e 

or 

contro  1 

/GENF 

/I 

598  ) 

BLN 

0 

XK30 

vector 

co  aponent 

BL7 

0 

XK30 

BL8 

3 

XK33 

XK3P 

0 

Parti  al 

of  governing 

equation 

art 

state 

or 

co  ntro  l 

/GENF 

/( 

592) 

BLN 

0 

XK3P 

vector 

coapo  nent 

BL7 

0 

XX3P 

BL8 

0 

XX3P 

XK3R 

0 

Partial 

of  governing 

equation 

art 

st  ate 

or 

contro 1 

/GENF 

/( 

595  ) 

BL3 

0 

XK3R 

vector 

coapo  nent 

BLN 

0 

XK3R 

BL5 

Cl 

XK3ft 

BL6 

0 

XK3R 

BL7 

0 

XX3R 

BLB 

3 

XK3R 

XK3T 

0 

Partial 

of  governing 

equal I o n 

art 

state 

or 

control 

/GENF 

/< 

577  ) 

BLGCON 

I 

XK3T 

vector 

coapo  nent 

BLN 

a 

XK3T 

BL6 

a 

XK3T 

BL7 

a 

XK3T 

BLB 

a 

XK3T 

XK3  V 

0 

Parti  a l 

of  governing  equation 

art 

state 

or 

contro 1 

/GENF 

/( 

586) 

BL3 

0 

XK3  V 

vector 

coaponent 

BLN 

0 

XK3V 

BL5 

(1 

XK3V 

BL6 

a 

XK3V 

BL7 

3 

XK3V 

BL8 

3 

XK3V 

30  OCT  r 2 G 0 1 -H6 


Bi.9 


1. 

SUBROUTINE  BL9 

BL4 

2. 

COrMON/AEC03/ 

AEC03 

3. 

* APHO 

,APHR 

, ALPHA 

, VD  A 

.GOA 

, P D A 

i 

A£C03 

9. 

♦SI  na 

, COS  A 

, P HI  0 

,PHID 

.PHI 

.SINPHI 

AEC03 

5. 

♦COSPHI 

,60PH 

,PDPH 

,XLAP1A<9) 

,XLARP(9) 

, CDO 

AEC03 

6. 

«CDOn 

, CLO 

,FX 

.XCGM 

,ZCGM 

,CLC« 

• 

AEC03 

7. 

♦ Cft 

, CftA 

, CftAft  .Crtft 

,C«0 

, CflQft 

,FXrt 

/ 

AEC03 

8 

♦ CL  Aft 

.CL 

,CIA 

, CLft 

t 

A6C03 

9. 

10. 

♦CO  ,CDA 

COftnON/GEHF/ 

,CDM 

AEC03 

GENF 

11. 

♦ OrtGl  20 ) 

,0n6P<2Q,2) 

, VARQ( 9 ) 

,TOL(  9) 

, S V ARC 10  > 

, MDC( 20 ) 

GENF 

12. 

♦A( 9,9) 

. AC0NC9) 

.BC0NC9) 

,00X1(9,9) 

,DC0N(9) 

, OTP 

t 

SENF 

13. 

♦ DTS 

,0T 

,6 

,0P5Q 

,0 

t 

GENF 

19. 

♦R 

,RE 

, RACK 

,PA 

,BQ 

ics 

GENF 

15. 

♦VNU 

tP  Afl 

,ROR 

. CSS 

, VNR 

. SUftSO 

6ENF 

16. 

*S  VSO 

. TIREPU 

, TIMES 

,TOP 

.TOS 

,TR(9 ) 

GENF 

17. 

*TST(20) 

,TPH  (20) 

, DISC  20 ) 

,OIP( 20  ) 

,T 

GENF 

18 

♦TLPU20) 

,TLS1  (20) 

,D1P1( 20 ) 

,CIS1(  20) 

,TIftE 

,OMP 

GENF 

19 

♦TlflPR 

.LIFT 

. DRAG 

.TAX 

,TBURN 

, TBli(  20  ) 

GENF 

20. 

♦ AE 

,FP 

.FPOLD 

,FPD 

, RACHR 

r MACH V 

GENF 

21. 

♦OR 

,0V 

,FYAC 

,LIFTV 

GENF 

22 

♦LIFTR 

, LI  FT A 

ORAGV 

. OR AGR 

, OR ASA 

GENF 

23. 

♦ 

LIFT* 

,OBR 

, DO 

,I5P 

,I5PF 

GENF 

29. 

• 

ULFT 

, ULFTV 

.ULFTR 

, ULFTA 

GENF 

25. 

♦xncs 

,XftC6V 

, XftCGR 

, XWCGA 

, XHCGB 

.CODAE 

GENF 

26 

»CULFT 

,CT 

.CALPHA 

, COE 

. BELT  AE 

,SID 

GENF 

27 

♦COO 

, SI  DAE 

,XC6 

,ZCG 

,XJ 

GENF 

28 

COftRON  / 

GENF  / 

GENF 

29 

♦ XJV 

,XJR 
, 1RATED 

,6H 

, GAftrtAD 

, XKG 

,XXP 

GENF 

30 

♦FRATED 

GENF 

31. 

♦PI 

,P2 

>3 

XK1 

, XK2 

,XK3 

GENF 

32. 

♦ XK1T 

, XK2T 

,XX3T 

,XK1D 

, XK2D 

, XK3D 

t 

GENF 

33. 

*XK1  A 

. XK2A 

,XK3A 

, XK1 V 

, XK2V 

. XK3V 

$ 

GENF 

39. 

♦ XKJS 

,XK26 

, XK3S 

, XX  IP 

. XK2P 

,XX3P 

GENF 

35. 

♦ XK1R 

, XK2R 

,XK3R 

, XK10 

, XK20 

,XX3C 

GENF 

36. 

♦ XX  1 U 

XX2U 

,X*3U 

.XKlft 

,XK2fl 

, XK3ft 

GENF 

37. 

♦PV 

,P6 

.PP 

.PR 

,P0 

,DPDY(  3 8) 

GENF 

38. 

REAL  LIFTR  . LIFT  . 

LlFTA. LIFTR  . 

ftACH, 

flACHRj 

GENF 

39 

♦ ISP.  ISPF.  ftACHV.LlFTV  . 1 RATED 

FRAT 

90 

DlftENSION  *PHH  10J.T5TH  lOl 

GENF 

91 

EQUIVALENCE(TLPl,Tf*Hl 

I.ITLSI.TSTI) 

GENF 

92. 

COflftON/STATE3/ 

STATE3D 

93. 

• VAFU  1*1  > 

, DVAR  (19  1 

,VARL  (S9> 

. DVARU  99) 

, Y0( 9 ) 

,SVY( 10) 

, 

STATE30 

99. 

, YOP( 20,9  1 

YDS  ( 20.9  ), 

COSGAN 

, SXNGAft 

S A VBP( 15) 

9 

STATE30 

95. 

*s  inp£ i 

.COSPSI 

.SINRHO 

, C05RH0 

,0 COR HO 

, 0C0R02 

t 

STATE30 

96 

♦SVBV  (9). OMEGA 

.0RFGA2 

STATE3D 

97. 

*VDY 

,GDV 

,BDV 

>DV 

.PDV 

,ODV 

STATE3D 

98 

*1101/ 

, VOS 

,GDS 

, BOG 

, POG 

. ODG 

STATE30 

99. 

»UDS 

,VOR 

,6DR 

,«DR 

fPOR 

.OOR 

STATE3D 

50. 

*UDB 

, VON 

,eon 

,flOR 

. PDR 

.VOP 

, 

STATE3D 

51. 

*60P 

.POP 

.OOP 

. UDP 

,voo 

, GDO 

STATE30 

52. 

»PDO 

,UDO 

,HTDV 

, HTDR 

STATE30 

53. 

REAL  non 

, MOV.  MOR 

STATE3D 

59. 

C0PWBW/STATE3/ 

STATE3D 

55. 

.SIW2R0 

, COSZRO 

.C0S26rt 

STATE3D 

56. 

EQUI  VALENCE  (VAR(l).V)  ,(VAR<2> 

GAM)  .1 VAfl(3), ALT)  . 

(VAR(9),M)  . 

FQUY3 

57. 

»<  VRR(5),PSI  ),(  VAR(  6 ), 

RHO ).( VAR(  i ),NU ) ,1  VAR(  8 ) . HT  ) . 

( VAR(  9 >, SQ2  ) 

EQUV3 

58. 

♦<  DVARl  1 ), 

VD),(0VAR(2).SD).(  DVAR(  3 >,  HD  ),<  DVAR(9).nD>, 

(DVAR(5  ).PD) 

E3UV3 

59. 

*( OVARt  6). 

0D).(DVAR(7).U0).(DVAR(  8 1 . HTD  >.  ( DVAfi<  9 >,SQ20  > 

E0UV3 

60 

REAL 

,HD 

E9UV3 

61  C 

BL4 

62. 

A5F( X.  Y) 

= (XXG*Y  - 

XXP.X )/SQUAR£ 

BL9 

63. 

ENTRY  OL9010 

BL9 

64. 

ASSIGN  20 

TO  160 

BLR 

65. 

ASSIGN  5 

TO  LABL 

BL4 

66 

GO  TO  9 

BL9 

67 

ENTRY  BLROOl 

BL9 

66 

ASSIGN  90 

TO  160 

BL9 

69. 

SO  TO  5 

BL9 

70. 

ENTRY  BL9000 

BL9 

71 

ASSIGN  50 

TO  160 

BL9 

72. 

GO  TO  5 

BL9 

73 

9 SQUARE  = 

XKG**2  ♦ XXP^*2 

BL*f 

79. 

SOSO  = S0UABE»*2 

BLY 

75 

YYR  = LIFTS  - DBP»SINA 

BLY 

20  OCT  72  fi  Ot-96 


r* 


76. 

XKGV 

% 

2.»<V/R»CQSSA*  ♦ Q«£S«»COSRHO»SI»(rSI  ) - SAHAAO 

BLM 

7 7. 

XKSS 

Si 

<G  - V»»2/R>.SINSAn  - R.0Jlu5A2»C0S«Ha.(CiiSRHa*SH(GA« 

BLM 

78. 

* 

- 51NRHQ*CQSPSI*C0SSA*1 

BLM 

79. 

XKGP 

z. 

0«EGA*CDSRH0*<2  *Y*C0SPS1  - R*D*tS**5I XRHO*SI KPS I*SI«6AM> 

BUM 

ao. 

XKSR 

s 

72. *6  »R-  9»»2)/a»»2*CaSSA«  ♦ B«ESAZ.caSRHa»(  C0SRHD»Cil5SArt 

BL  M 

31. 

■* 

♦ SINRHG*CDSPSl»SJNSArt) 

BL9 

82- 

XKGO 

s 

-OfiESA*tB*CrttSA*lSl«2Re*COSSAn  - CeS2RD*CeSP51*53N&AM)  ■»  2. 

BLM 

83. 

* 

♦V*SINRRB*SIMPSI ) 

BLM 

3*1. 

XKPV 

=2 

2.»7 C0S5AH»SINS«C»l v/7 R.caSRRD i.CBSsah.SIRPSI  * DrtEGA ) 

BLM 

85. 

* 

- OfiE6A»COSRHa*CDSPSI»SlMSAIO 

8L9 

86. 

XKPG 

-2.*V*<SPJRH0*51WGAM*(  ¥/<  R*C05RH0)4tC0SSA«*S1NPSI  -»■  OMEGA) 

BL* 

87. 

* 

♦ OnE£A»COSRHO»COSPSl»CO$SAA) 

BLM 

88. 

XKPP 

a 

< V*C0SSAi9)**2/(R*CDSfiHQ  )*SI1JRHG*CQSPSI  ♦ G«tSA*C05RHO 

BLM 

39. 

* 

»(R«071cSA*SIHRHa»CBSPSI  + 2.*¥*SJ  RFSI.SIRSArt) 

BLM 

90. 

XKPR 

& 

SlNfiHO*SIN?SI*<QKESA2*COSRrtD  - Of/»UCCSSAM>**2/COSRHO 1 

BLM 

91. 

XlvPD 

V*C0S5Art*l  V/l  fi*CGSKrtO»«2>*CDS5AM*5I  XFSI  *■  2 .*0«ES A*COSR HO  1 

BLM 

92 

* 

♦ 0«ESA*[fi*Ofl£SA*51NPSI*CaS2R0  + 2.* Y*SINRH0*CGSPS1*SI NGArt) 

BUM 

93 

PV  = 

ASFtXKSV,  XftPV) 

BUM 

9*1. 

PS  = 

fiSFt  XKSG,  «PSJ 

BUM 

95- 

pp  - 

A5F<X*6P#  XKPp) 

BLM 

96. 

PR  = 

ASFCXXGR,  XKPR) 

BLM 

97. 

PQ  = 

ASFl XXSO . XKPQ  ) 

BLM 

98. 

CPtf  = 

: - 

S1MPHX*PV 

BLM 

99. 

CPG  = 

: - 

-SIMPHWPS 

BLM 

100. 

CPP  = 

■ -S1NP«1*PP 

BLM 

101. 

CPR  = 

■ - 

-SIMPHI«PR 

9L*I 

102. 

CPO  = 

-SJHPH1*P0 

BL*I 

103. 

SO  TO 

LABL 

BUM 

109. 

5 

TCDAE  a T*CODAE 

BUM 

105. 

TSOAE  = T»SI0AE 

SUM 

106. 

BBC A - DB*C05A 

BUM 

107. 

OSSA  = 0B»5 1 WA 

BUM 

108. 

YY  = TSOAE  ♦ LIFT  - DBS* 

BUM 

109. 

ZZ  = TCDAE  ♦ LIFT*  - D9CA 

BUM 

110. 

GO  TO  ISO 

BUM 

111. 

20 

XK3V  = L1FTV*C0SPHI  + YY*CPV  + ft*XXGtf 

BUM 

112 

XK3S  = YY*CPS  ♦ IWXK6G 

8LM 

113. 

XK3P  = YY*CPP  ♦ **XKGP 

BUM 

119. 

XK3R  = YYR*COSPHI  + YY*CPR  ♦ H*XK&fl 

BUM 

115. 

XK3D  a YY*CPO  ♦ **XK60 

BUM 

116. 

XK3*  = XKS  -*•  LIFT**C05PHI 

BLM 

1 IT. 

90 

XK3T  = C0$PHI*SIOAE 

BUM 

118. 

XK30  = -TCOAE*COSPHI 

BLM 

119. 

XK3A  = ZZ*COSPttI 

BLM 

120. 

50 

XK3  = VY*COSP«I  + fl*XK£ 

BLM 

121. 

C 

BLM 

122. 

RETURN 

BLM 

123. 

END 

BLM 
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r-1 

•S' \ 


SUBR0UT INE 
BL5 


3?8 


nATH 

SYMBOL 


DESCRIPTION 


SIORARE 
H LO I K LOC 


SUBROUTINE  USAGE 
SU8R  CODE  VAR 


i Aerodyneal  c dr»g 


( LBS  ) / GENF  /t  997) 


I Partial  of  drag  art  angle  of  attack 


I Partial  drag  art  altitude 


I Partial  of  drag  ert  velocity 


I Plaxiaua  total  acceleration  g load 


/GENF  /C  535) 


/GENF  /(  533) 


/GENF  /(  532) 


/ARCDAT/<  12) 


1 Gravitational  acceleration  at  surface  of  the  earth.  /GLOBAL/!  1) 

( FT/SEC2 > 


I Aerodynaal c lift 


(LBS)  /GENF  /(  596 ) 


[ Partial  of  lift  art  angle-of- attack 


/GENF  /{  531  ) 


ACCEL 

I 

ORAG 

BL5 

I 

DRAG 

BL7 

I 

ORAG 

BL8 

I 

ORAG 

ENVPRP1 

I 

ORAG 

FH3 

I 

DRAG 

OUT 

I 

DRAG 

PRDPB 

0 

DRAG 

PROPIN 

0 

ORAG 

S0ER3 

I 

ORAG 

VT 

n 

ORAG 

ACCEL 

I 

DRAGA 

BL5 

I 

ORAGA 

BL7 

I 

DRAGA 

BL8 

I 

DRAGA 

FH3 

I 

DRAGA 

VT 

n 

DRAGA 

ACCEL 

I 

DRAGR 

BL5 

I 

ORAGR 

Bl7 

I 

DRAGS 

BL8 

I 

DRAGR 

FH3 

I 

ORAGR 

VT 

n 

DRAGR 

ACCEL 

i 

OfiASV 

Bl5 

i 

DRASV 

BL7 

i 

DRAGV 

BL8 

i 

QRAGV 

FH3 

i 

DRAGV 

VT 

n 

DRAGV 

BL5 

I 

GflAX 

FH3 

I 

GrtAX 

FiODELA 

i 

GflAX 

PROPB 

I 

GDAX 

PROPIN 

I 

GNAX 

ACCEL 

I 

GR 

BL5 

I 

GR 

EBUA3 

I 

GR 

FH3 

I 

GR 

GEINP 

I 

G 

SEINP 

I 

GR 

GEINP 

0 

16 

OUT 

i 

GR 

PADS1 

i 

GR 

P OBC 

i 

GR 

REU3 

i 

GR 

SOINP 

i 

GR 

SIZE 

i 

SR 

SIZ1 

i 

GR 

SJZ2 

i 

GR 

SIZ3 

i 

GR 

SIZ9 

i 

GR 

sorts 

i 

GR 

STAU 

i 

GR 

ACCEL 

i 

LIFT 

BL9 

i 

LIFT 

BL5 

i 

LIFT 

BL6 

i 

LIFT 

ENVPRfl 

i 

LIFT 

FH3 

i 

LIFT 

OUT 

i 

LIFT 

PROPB 

0 

LIFT 

PROPIN 

0 

LIFT 

VT 

0 

LIFT 

ACCEL 

i 

LIFT  A 

BL9 

i 

LI  FT  A 

BL5 

i 

LIFT  A 

BL6 

i 

LI  FT  A 

FH3 

i 

LIFT  A 

VT 

0 

LIFTA 
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FORTRAN  MATH 

SYF1BOL  SYMBOL 

LIFTFI 
LIFTR 
LI  FT  V 

U U 

XK3 

XK3A 

XK3n 

XK3R 

XK3V 


code  DESCRIPTION 


1 Partial  qf  LIFT  *rt  ***» 


I Partial  of  lift  *rt  altitude 


I Part  I a | of  lift  nrt  velocity 


I Weight  (LBS) 


0 Third  control  vector  governing  equation  value. 
Corresponds  to  error  in  algebraic  equation 
involving  «. 


W Partial  of  governing  equation  *rt  state  or  control 
vector  component 


n Partial  of  governing  equation  art  state  or  control 
vector  component 


il  Partial  of  governing  equation  art  state  or  control 
vector  component 


fl  Partial  of  governing  equation  mrt  state  or  control 
vector  component 


S 10RA3E  SUBRQUTIWF  USftSg 


BLOIK 

LOC 

SUBK  COOE  VAR 

/GENF 

/( 

535  ) 

ACCEL 

I 

L I FT  Ft 

BL4 

I 

LIFTFl 

BL5 

I 

LIFTFI 

BL6 

I 

LI  FTFI 

FH3 

I 

LIFTFl 

a 

VT 

0 

LIFTFI 

/GENF 

/( 

530) 

ACCEL 

I 

LIFTR 

BL4 

I 

LIFTR 

BL5 

I 

LIFTR 

BL6 

I 

LIFTR 

FH3 

I 

LIFTR 

VT 

0 

LIFTR 

/GENF 

/( 

52?  ) 

ACCEL 

I 

LIFTY 

BL4 

I 

LI  FT  V 

BL5 

I 

LIFT  V 

BL6 

I 

LIFTV 

FH3 

I 

LIFTV 

VT 

0 

LIFTV 

/ GENF 

/{ 

412  ) 

BL5 

I 

U 

ENVPRR 

I 

U 

E2UA3 

n 

U 

FH3 

I 

Id 

OUT 

i 

U 

PDBC 

i 

U 

REU3 

i 

u 

TRTOSZ 

i 

u 

/GENF 

/( 

574  ) 

BL2 

0 

XK3 

BL3 

0 

XK3 

BL4 

0 

XK3 

BL5 

0 

XK3 

BL6 

0 

XK3 

BL7 

0 

XX3 

BL8 

0 

XK3 

MODELA 

I 

XK3 

OUT 

I 

XK3 

/GENF 

/( 

583) 

BLGCON 

I 

XK3A 

BL2 

0 

XK3A 

6L3 

0 

XK3A 

BL4 

0 

XX3A 

BL5 

Ft 

XK3A 

BL6 

0 

XK3  A 

BL7 

0 

XK3  A 

BL8 

0 

XK3  A 

/GENF 

/( 

604) 

BL4 

0 

XK3IB 

BL5 

n 

-XK3Ft 

BL6 

0 

XK3FI 

BL7 

0 

X K 374 

BLS 

0 

X K 374 

/GENF 

/( 

595  ) 

BL3 

0 

XK3R 

BL4 

0 

XK3R 

BL5 

n 

XK3R 

BL6 

0 

XK3R 

BL7 

0 

XK3R 

BL8 

0 

XK3R 

/GENF 

/( 

586) 

BL3 

0 

XK3  V 

BL4 

0 

XK.3V 

BL5 

Ft 

XK3V 

BL6 

0 

XK3V 

BL7 

0 

XK3V 

BLB 

0 

XK3  V 
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6L5 


1. 

SUBROUTINE  BL5 

BL5 

2 

C 

BL5 

3. 

COnnON/stOBAL/ 

GLOBAL 

9 . 

*GR 

,ER 

,OrtSZ 

XLAHRF 

, VrtURF 

. LUH 

global 

5 

»,JJOP( 10)  1 FATAL 

.NARC 

, NBR  AN 

,RF  ARC 

,1019) 

GLOBAL 

6. 

*,KT#B<  20 ) . IT AB( 20 ) 

.SIS  .rtAXTAB 

global 

7 

*,GI1 

. PSlRf , IPFtGl , 1PFL62, 1 PFLG3 

, 1 PFLG9 . INEQFLt  20 ) 

global 

6. 

9. 

*,lTPSO  .K50L  ,K6L0BU8> 

COrtHON/ARCDAT/ 

RETAP 

ARCDAT 

10. 

*S8EF 

,EJ 

.XISP 

.TttULT 

t OTNC 

, DTP  I 

r 

ARCDAT 

11. 

♦iftTrt 

, I ROOF 

,JAEfi 

,JPRQ 

. QrlAX 

,GMAX 

t 

ARCDAT 

12. 

♦XLfiAX 

.turn  ax 

, BHDOT 

, ALFrtAX 

, PHUAX 

, (IAEA 

t 

Afi  CO  AT 

13. 

**AEB 

.P1AEC 

,flAEO 

,flAEE 

, MAEF 

,HAEG 

t 

ARCDAT 

19. 

,ni5P 

, HXC6 

.ftlCG 

.nitQA 

, HUDB 

t 

ARCDAT 

15. 

**0B 

,XCGR 

ZCGR 

,XE 

/7.E 

,XT 

t 

ARCDAT 

16 

•OHEF 

.MONO 

,RHOB 

/QP1ULT 

/REF1AX 

ARCDAT 

17. 

* .FRATE  . ARCD( 9 ) 

RETAP 

18. 

DinENSXON  ARCOAC  90 ) 

ARCDAT 

19. 

EQUIVALENCE! SREF.AfiCDA) 

ARCDAT 

20. 

CQnnUN/ AEC03/ 

AEC03 

21 

*APHO 

APHR 

.ALPHA 

, VOA 

, GOA 

.PDA 

t 

AEC03 

22 

»SINA 

, COSA 

.PHIO 

.PH1D 

.PHI 

SI  NPHJ 

9 

AEC03 

23. 

•COSPHI 

, GBPH 

f POPH 

, XLAflAl 9 > 

. XI Aflp( 9 ) 

, COD 

AEC03 

29. 

»COOB 

, CLO 

j FK 

,XCG* 

,2C6n 

.CLOrt 

r 

A ECU  3 

25. 

*C« 

,CflA 

.ciiAn  .cflrt 

,cno 

, cno« 

,fkh 

t 

AEC03 

26 

»CLAB 

> CL 

, CLA 

,CL* 

t 

AEC03 

27. 

»co 

. CDA 

jCDrt 

AEC03 

28. 

COfiHGN/  GEWF7 

66NF 

29. 

*uflg<  20 ) . OnOP<  20,2>,VAR0(9) 

,TOL(  9 > 

.SVARt 10) 

UOC( 20 ) 

G£MF 

30. 

*A(  9.9) 

. ACON<  9 ) 

BCQNt  9 ) 

, COT  1 1 9,9) 

/OCONt  9> 

.DTP 

GEMF 

31. 

♦DT$ 

t OT 

, 6 

,DP$Q 

.Q 

'os 

6ENF 

32. 

*R 

,RE 

.nACH 

/PA 

,R0 

/CS 

6ENF 

33. 

*YKJ 

.PAR 

,RGR 

, DSR 

. VNR 

,SUNSQ 

GENF 

39 

*svso 

.TIHEPH 

.TIRES 

/TOP 

,TOS 

.TRl 9 ) 

GEHF 

35 

*TST<20)  ,TPH  (20),DIS<*0) 

,01P<  20) 

,T 

SEHF 

36. 

»TlP1(20)  .TLSl  ( 20 ) , DIP  U 20) 

,DI$1(20> 

/TIME 

,onp 

GENF 

37. 

»TI«PR 

.LIFT 

.drag 

.TAX 

.TBURN 

,T8U( 20 ) 

GENF 

38. 

*A£ 

,FP 

.fpolo 

. fpd 

t flACHR 

, HACHV 

6ENF 

39. 

»QR 

,QV 

,FVAC 

, LIFTV 

GENF 

90. 

♦LIFTR 

.LIFTA 

OR  AGV 

^DRAGR 

0RA6A 

GENF 

91. 

s 

LIFTW 

. DBR 

,DB 

,I5P 

. ISPF 

GENF 

92. 

. 

ULFT 

,ULFT V 

. ULFTR 

, ULFT A 

GENF 

93. 

• xncs 

,x«cev 

,XPICSR 

, XNC6A 

XNCGft 

. CDDAE 

GENF 

99. 

*culft 

,CT 

,CALPHA 

, COE 

.DELTAS 

, SID 

GENF 

95. 

»COD 

.SIDAE 

,XCG 

/ZCG 

,XJ 

GENF 

96 

connoN 

/ GENF  / 

GENF 

97 

»XJV 

. XJR 

,SH 

, SAnnAD 

,XX6 

,XICP 

GENF 

98. 

»FRATEO 

.IRATED 

GENF 

99. 

«pi 

,P2 

'•*3 

XICl 

. XX2 

,XK3 

GENF 

50. 

»XK1T 

, XX  2T 

,XK3T 

, XK1D 

. XX20 

, XK3D 

GENF 

51 

»XK)A 

. XK2A 

,XK3A 

,XX1V 

.XK2V 

, XK3V 

GENF 

52. 

»XK1S 

, XK2G 

, XK36 

# XK1P 

. XK2P 

. XK3P 

GENF 

53. 

»XK1R 

, XK2R 

, XK3B 

, XK 10 

, XK20 

, XX30 

GENF 

59. 

»XXIU 

. XK2U 

, XK3U 

, XK1H 

, XK2H 

,XK3* 

GENF 

55 

*PV 

,PG 

>P 

-PA 

,P0 

y OPOYt  3,8) 

GENF 

56. 

REAL 

LIFTfl  . LIFT  . 

. LIFTA. LIFTB  . 

P»ACH, 

rachr , 

GENF 

57. 

♦ ISP. 

ISPF.  HACHV. LIFTV  . lRATEO 

FRAT 

58 

DIMENSION  TPHillOJ.TSTHiO) 

GENF 

59 

EQUIVALENCE!  TLPl.TPHD.tTLSl.TSTl) 

GENF 

60. 

ENTRY 

BL5010 

BL5 

61. 

XK3V  = 

LIFT*LIFTV  4 

drag*orasv 

BL5 

62 

XK3V  = 

XK3V  ♦ XX3V 

BL5 

63. 

XK3R  = 

LIFT*LIFTR  ♦ 

DRAfi*ORftGR 

BL5 

69. 

XK3R  = 

XK3R  4 XK3R 

BL5 

65 

XK3f1  = 

UFT*LIFT*  - 

SR*GNAX»*2*U 

BL5 

66 

XK3E1  = 

XK3H  4 XK3N 

BL5 

6T . 

ENTRY 

8L5001 

BL5 

68 

90  XK3A  = 

HFT^LIFTA  4 

DR AS*UR AG A 

BL5 

69 

XX3A  = 

XX3A  4 XK3A 

BL5 

70. 

ENTRY 

BL5000 

BL5 

71. 

50  TERI93 

= GDAX4N 

BL5 

72. 

XK3  = ! 

LlFt*42  4 0RAG**2  - TERrt3**2 

BL5 

73. 

0 

BL5 

79. 

RETURN 

BL5 

75. 

ENO 

BL5 

20  OCT  72  6.01-96 


SUBR0UT INE 
BLG 


332 


FORTRAN 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


COOAE 


COSA 


OB 


OBR 


LIFT 


LIFTA 


LIFTS 


LIFTR 


LiFTV 


S T.PRAQF 


BLOCK 


LOC 


SUBROUTINE  USAGE 
SUB"  LDOL  VAR 


o s(  o-  »y«bo  l 


C0S“  1 See  syabol 


D 


b 


Base  Brag 


I Partial  of  base  drag  art  altitude 


j_  I Aerodynaelc  lift 


I Partial  of  lift  art  ang I e- of  - at t ac k 


I Par-tlal  of  LIFT  art  aass 


I Partial  of  lift  art  attitude 


I Partial  of  lift  art  velocity 


/GENF 

/( 

5N9  ) 

ACCEL 

I 

CODAE 

BLN 

I 

COOAE 

BL6 

I 

CODAE 

BL7 

I 

COOAE 

BLB 

1 

CODAE 

FH3 

I 

CODAE 

SDER3 

I 

CODAE 

VT 

0 

CODAE 

/AEC03 

/( 

8) 

ACCEL 

I 

COSA 

BLN 

I 

COSA 

BL6 

I 

COSA 

BL7 

I 

COSA 

BL8 

I 

COSA 

FH3 

I 

COSA 

OUT 

I 

COSA 

VT 

(A 

COSA 

/GENF 

/< 

537  ) 

ACCEL 

I 

DB 

BLN 

I 

DB 

BL6 

I 

DB 

BL7 

I 

OB 

BLB 

I 

DB 

EOUA3 

I 

DB 

FH3 

I 

DB 

OUT 

I 

DB 

SDER3 

I 

DB 

VT 

I 

OB 

/ GENF 

/< 

536  > 

ACCEL 

I 

OBR 

BLN 

I 

OBR 

BL6 

I 

DBR 

BL7 

I 

OBR 

BLB 

I 

OBR 

E0UA3 

I 

DBR 

FH3 

I 

DBR 

VT 

I 

OBR 

/ GENF 

/( 

596) 

ACCEL 

I 

LIFT 

BLN 

I 

LIFT 

8L5 

I 

LIFT 

BLB 

I 

LIFT 

ENVPRS 

I 

LIFT 

FH3 

I 

LIFT 

OUT 

I 

LIFT 

PROPS 

0 

LIFT 

PR0P1N 

0 

LIFT 

VT 

0 

LIFT 

/GENF 

/( 

531  ) 

ACCEL 

I 

LIFTA 

BLN 

I 

LIFTA 

BL5 

I 

LIFTA 

BL6 

I 

LIFTA 

FH3 

I 

LIFTA 

VT 

0 

LIFTA 

/GENF 

/( 

535  ) 

ACCEL 

I 

LIFTS 

BLN 

I 

LIFT* 

BL5 

I 

LI  FT S 

BLB 

I 

LIFTS 

FH3 

I 

LIFTS 

VT 

0 

LIFTS 

/GENF 

/( 

530  ) 

ACCEL 

I 

LIFTR 

BLN 

1 

LIFTR 

6L5 

I 

LIFTR 

BL6 

1 

LIFTR 

FH3 

I 

LIFTR 

VT 

0 

LIFTR 

/GENF 

/( 

529  ) 

ACCEL 

I 

LIFTV 

BLN 

I 

LIFTV 

6L5 

I 

LIFTV 

BLB 

I 

LIFTV 

FH3 

I 

LIFTV 

VT 

0 

LIFTV 

30  OCT  72  G.0J-H6 


IUMIIAN  riAl  H 

SYnBOL  SYRBOL 


CODE 


DESCRIPTION 


STORAGE 
block  lol 


/ GENF  /{  557)  ACCEL  I 510AE 

BLR  I 5IOAE 

BL6  I SIOAE 

BL7  I SIOAE 

BLfl  I SIOAE 

FH3  I SIOAE 

VT  0 SIOAE 

S1NA  sln«  I Sec  sy»bol  /AEC03  /<  7)  ACCEL  I SINA 

BLR  I SIMA 

BL6  I SIMA 

BL7  I SINA 

BLB  ! SINA 

FH3  I SIMA 

GUI3A  n SIMA 

OUT  I SINA 

VT  R SINA 

T T I Thrust  (LBS)  /GENF  /(  Rll)  ACCEL  I T 

BLGC8N  R T 
BLR  I T 
BL6  I T 
BL7  I T 
BL8  I T 
EL2  I T 
EQUA3  0 T 
FH1  I T 
FH2  I T 
FH3  I T 
FUR  I T 
1PIPUL  I T 
OUT  IT 
PROP8  0 T 
PROPIN  0 T 
REU3  0 T 
SDER3  I T 

/GENF  /(  57R)  BL2  0 XK3 

BL3  0 XK3 

BLR  0 XK3 

BLB  0 XK3 

BLB  0 XK3 

BL7  0 XK3 

BLB  0 XK3 

ROOELA  I XK3 

OUT  I XK3 


XX3  A 

0 

Partial  of  governing 

equal i on 

»rl 

state 

or 

control 

/GENF 

/( 

583  ) 

BLGCON 

I 

XK3A 

vector  co np one nt 

BL2 

0 

XK3A 

BL3 

0 

XK3  A 

BLR 

0 

XK3  A 

BL5 

R 

XK3  A 

BLB 

D 

XK3  A 

BL7 

0 

XK3  A 

BL8 

0 

XK3  A 

XX3D 

0 

Partial  of  governing 

equat  t on 

wrl 

state 

or 

contr o 1 

/GENF 

/( 

580  ) 

BLGCSN 

I 

XK30 

vector  component 

BLR 

D 

XK3D 

BL6 

0 

XK  3D 

BL7 

0 

XK3D 

BLB 

Q 

XK3D 

XK3R 

0 

Partial  of  governing 

equal i o n 

*rt 

state 

or 

co  nt ro  i 

/GENF 

/( 

SOR) 

BLR 

0 

XK3R 

vector  component 

BLB 

PI 

XK3R 

BL6 

0 

XK3R 

BL7 

0 

XK3R 

BL8 

0 

XK3H 

XK3R 

0 

Partial  of  governing 

equation 

art 

st  ate 

or 

co  nt r o i 

/GENF 

/( 

595  ) 

BL3 

□ 

XK3R 

vector  cooponent 

BLR 

0 

XK3R 

BLB 

R 

XK3R 

BLB  0 XK3H 

BL7  0 XX3R 

BL8  0 XK3R 


XK3  0 Third  control  vector  governing  equation  value. 

Corresponds  to  error  in  algebraic  equation 
involving  a. 


SIOAE  sln(  b-5  ) I s«*  »)«bol 


30  OCT  72  G.01-R6 


FQliIflAN 

SV^BOL 


rtAT  H 
LVn BOL 


CODE 


DESCRIPTION 


5 T J R 05? 

R LOCK  L0C 


L’JRH  COOE 


X K3T 


XK3V 


D Partial  of  governing  equation  *rt  state  or  control 
vector  co»ponent 


D Partial  of  governing  equation  art  state  or  control 
vector  component 


/ GEWF  /( 


/ GENF  /( 


57  7 ) 

BLGCON 

I 

XK3T 

BLR 

0 

XK3T 

BLf> 

0 

XK3T 

BL7 

0 

XK3T 

BLB 

0 

XK3T 

586) 

BL3 

0 

XK3  V 

BLR 

0 

XK3V 

BL5 

n 

XK3V 

BLB 

0 

XK3V 

BL7 

0 

XX3  V 

BL8 

0 

XX3  V 
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33S 


BL6 


1 

SUBROUTINE  BL6 

BL6 

2. 

CQrtKON/GENF/ 

GENF 

3 

*QMG(  20 > ,0HGP<20,2) 

# VARQ( 9 ) 

, T 0 H 9 ) 

.5  V AR{  10) 

.UDCIZO) 

GENP 

9. 

*A(  9 9)  AC0tt(  9 > 

fBC0N(9) 

, COTK  9,9) 

, OCONt  9 ) 

.DTP 

GENF 

5. 

♦ DTS  ,0T 

,S 

,0P$O 

,0 

,as 

GENF 

6. 

*R  .RE 

, MACH 

, P A 

,R0 

,CS 

SENF 

7. 

* VNU  .PAR 

,ROR 

, CSR 

,VNR 

. SUNSQ 

GENF 

6 

*SV$Q  .TU1EPH 

,TIAES 

,TOP 

,TOS 

.Tfit  9 ) 

GENF 

9. 

•TSTI20)  TPH  {20) 

, D1  S{  20  > 

, OIP( 20  ) 

,T 

GENF 

10. 

*TLPH20)  ,TLS1  (20) 

, 01 Pl( 20  ) 

, DISH  20  ) 

.TIME 

,Q«P 

SENF 

11 

♦T IrtPR  .LIFT 

.0RA6 

,tax 

.TBURN 

f TBUl  20  ) 

GENF 

12. 

♦ AE  ,FF 

,FP0LD 

,FPO 

,MACHR 

,RAC«V 

6ENF 

13. 

•OR  ,QV 

, FVAC 

, LI  FTV 

GENF 

19. 

♦LIFTR  .LIFT* 

DRAGV 

, DRAGR 

.DRAGA 

GENF 

15. 

• LIFT* 

, DBR 

,0B 

,ISP 

,1SPF 

GENF 

16. 

* 

ULFT 

, ULFTV 

.{JLFTfi 

.ULFT A 

GENF 

17 

♦ XHC6  ,XflC6V 

,XMCGR 

, XflCGA 

. XI9CSM 

. COOAE 

GENF 

18. 

•CULFT  . CT 

.CALPHA 

,CDE 

, OELT  AE 

,SID 

GENF 

19. 

♦ COD  , $ IBAE 

,XCS 

, ZCG 

,XJ 

GENF 

20 

COMMON  / GENF  / 

GENF 

21 

♦ XIV  , XJR 

, GH 

/GAMMAD 

,XKG 

, XKP 

GENF 

22 

•PRATED  , IRATEO 

GENF 

23. 

♦Pi  .P2 

>3 

XKl 

, XK2 

, XK3 

GENF 

2*1. 

•XK1T  ,XK2T 

,XK3T 

,XX10 

, XK2D 

, XX30 

GENF 

25. 

♦XK1A  , XX2A 

,XK2A 

, XK IV 

,XK2V 

, XK3V 

GENF 

26. 

♦ XX16  . XK2G 

. XK3G 

. XK1P 

. XK2P 

. XK3P 

GENF 

27 

• XX1R  . XK2R 

,XK3R 

, XK10 

, XK20 

, XK3G 

GENF 

28. 

• XK1U  . XK2U 

, XK3U 

, XK  IM 

,XK2M 

. XA3fl 

GENF 

29. 

*PV  ,PG 

,PP 

.PR 

,P0 

,DPDV{  3#8 ) 

GENF 

30. 

REAL  UFTfi  . LIFT  . 

LIFTA.L1FTM  . 

MACH, 

MACHR( 

GENF 

31 

• ISP,  ISPF,  ItACHV.LlFTV  , 1RATED 

FRAT 

32 

DIMENSION  TPHlllOKTSTKlO) 

GENF 

33. 

EOUIVALENCEtTLPl.TPHl  mtlsi.tstu 

GENF 

39 

CQMPUJN/AEC03/ 

AECQ3 

35 

•APKO  , APHR 

.ALPHA 

,VQA 

, GOA 

.PDA 

AECQ3 

36. 

♦ SINA  , COS A 

,PH1D 

,PHIO 

.PHI 

SINPHI 

AECQ3 

37. 

•COSPHI  .SOPH 

. PDPH 

, XLAP1A<  9 ) 

. XLAMPl 9 ) 

, CDO 

9 

AEC03 

38. 

♦CDOfi  .CLO 

, XC6M 

, ZCGM 

. CLO  A 

t 

AEC03 

39 

♦CM  ,C«A 

.CMAM  CMM 

,CMO 

,CMOM 

,FXM 

t 

AECQ3 

90. 

♦CLAM  .CL 

'CLA 

, CLM 

* 

AEC03 

91 

♦CD  .CO A 

, CDH 

AEC03 

92. 

ENTRY  0L6O1O 

BL6 

93. 

ASSIGN  20  TO  I GO 

BL6 

99. 

GO  TO  5 

BL6 

5— 

95. 

ENTRY  BL60Q1 

BL6 

96 

ASSIGN  90  TO  1 GO 

BL6 

97 

60  TO  5 

BL6 

5 — 

98. 

ENTRY  BL6000 

BL6 

99. 

A5SIGN  50  TO  1 GO 

BL6 

50. 

5 TCOAE  = T^COOAE 

BL6 

4 

51. 

TSOAE  = T^SIDAE 

BL6 

52 

OBCA  - D8*COSO 

BL6 

53. 

DBS A = 0B*S1KA 

BL6 

59. 

GO  TO  ISO 

BL6 

55 

20  XK3V  = L1FTV 

BL6 

56 

XX3R  = UFTR  - D8R*SJN» 

BL6 

57 

XK3M  = LIFTft 

BL6 

58 

90  XK3T  - SI DAE 

BL6 

59 

XK30  - -TCOAE 

BL6 

60 

XK3A  =:  TCOAE  - OBCA  + 

lifta 

BL6 

61 

50  XK3  = TSOAE  ♦ LIFT  - 

DBS* 

BL6 

62. 

C 

BL6 

63. 

RETURN 

BL6 

69 

ENO 

BL6 

20  0C1  J 2 S.Ql-96 


SUBR0UT INE 
BL7 
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FORIRAN  MA1H 

'oYMAOL  SYMBOL 


CODE 


DESCRIPTION 


SilftfiOUHNE  USAGE 
SUBH  CODE  VAR 


COOAE  COs(a-bg)  I Set  lyeboi 


COSA  Cos“  I See  syebol 


COSPSI  cos(^)  I See  synbcr! 


COSRHO  cos(p)  1 See  jynbol 


C0S2R0  C0S(2p)  B See  symbol 


OB 


Base  drag 


DBR  I Partial  of  base  drag  art  altitude 


DRAG  0 1 Aerodynaeic  drag 


/GENE  /( 


/AEC03  /( 


/STATE3/1 


/STATE3/C 


/ST  ATE3/ 1 


(LBS)  /GENE  /( 


/GENE  /( 


(LBS)  /GENE  /( 


5A9  ) 

ACCEL 

I 

COOAE 

BLM 

I 

COO  AE 

BL6 

I 

COOAE 

BL7 

I 

COOAE 

BL8 

I 

COOAE 

FH3 

I 

COOAE 

SDER3 

1 

COOAE 

VT 

0 

COOAE 

8 ) 

ACCEL 

I 

COSA 

BL*i 

I 

COSA 

BL6 

I 

COSA 

BL7 

J 

COSA 

BLB 

I 

COSA 

FH3 

i 

COSA 

OUT 

I 

COSA 

VT 

M 

COSA 

705  ) 

BLR 

I 

COSPSI 

BL7 

I 

cospsi 

BL8 

I 

COSPSI 

0ER3A 

I 

COSPSI 

E0UA3 

0 

COSPSI 

MOOELA 

I 

COSPSI 

MODELS 

I 

COSPSI 

PDBC 

I 

COSPSI 

PDY3A 

I 

cospsi 

707  > 

BLR 

I 

COSRKO 

BL7 

I 

COSRHO 

BLB 

I 

COSRHO 

DER3A 

I 

COSRHO 

E0UA3 

M 

COSRHO 

MOOELA 

I 

COSRHO 

MOOELB 

I 

COSRHO 

OUT 

I 

COSRHO 

PDBC 

I 

COSRHO 

PDY3A 

I 

COSRHO 

756  ) 

BLR 

I 

COS2RO 

BL7 

n 

COS2RO 

BLB 

M 

COS2RO 

MOOELA 

0 

C0S2R0 

MODELS 

0 

C0S2R0 

5 3 7 ) 

ACCEL 

I 

OB 

BLR 

I 

OB 

BLB 

I 

DB 

BL7 

i 

OB 

BLB 

I 

OB 

E0UA3 

I 

OB 

FH3 

I 

OB 

OUT 

I 

DB 

SDER3 

I 

DB 

VT 

I 

OB 

536  > 

ACCEL 

I 

DBR 

BLR 

I 

DBR 

BLB 

I 

DBR 

BL7 

i 

OBR 

BL8 

I 

OBR 

EQUA3 

1 

DBR 

FH3 

I 

OBR 

VT 

i 

OBR 

A97  ) 

ACCEL 

I 

DRAG 

BL5 

I 

DRAG 

BL7 

I 

DRAG 

BLB 

I 

DRAG 

ENVPRM 

I 

DRAG 

FH3 

I 

DRAG 

OUT 

I 

DRAG 

PROPB 

0 

DRAG 

PROPIN 

0 

DRAG 

S0ER3 

I 

DRAG 

VT 

M 

DRAG 

30  OCT  72  G.01-A6 
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FQRIRAN 

SVN60L 


HATH 

SYNBOL 


CODE 


DESCRIPTION 


SUB*  CDOE  VAR 


ORAGA 

i 

Partial  of  dr»9  art  angle  of  attack 

/gene 

/< 

539  ) 

ACCEL 

I 

OBAGA 

915 

I 

ORAGA 

BL7 

I 

ORAGA 

8LB 

! 

ORAGA 

FH3 

I 

ORAGA 

VT 

PI 

ORAGA 

DRAGR 

I 

Partial  drag  mr t attitude 

/gene 

/< 

533  ) 

ACCEL 

I 

ORAGR 

BL5 

I 

ORAGR 

BL7 

1 

DRAGR 

BL8 

I 

DRAGR 

FH3 

l 

DRAGR 

VT 

n 

ORAGR 

DRAGV 

I 

Partial  of  drag  art  velocity 

/ GENE 

/( 

532) 

ACCEL 

l 

DRAGV 

BL5 

l 

ORAGV 

BL7 

l 

ORAGV 

BL8 

I 

DRAGV 

FH3 

I 

DRAGV 

VT 

N 

ORAGV 

G 

q 

I 

Gravitational  attraction 

{ FT/SEC»»2 ) /GENE 

/( 

301  ) 

BLR 

1 

G 

BL7  I e 
BL8  I 0 
DER3A  I 6 
EQUA3  N G 
NOOELA  I G 
flDDELB  I G 
POY3A  I G 
SOEK3  I 8 
SDINP  N G 


GH 

1 

Partial  of  gravity  »rt  attitude 

/GENE  /( 

563  ) 

BL7 

I 

GH 

BL8 

I 

BH 

E0UA3 

•o 

GH 

PDV3A 

1 

OGOH 

ONEGA 

CO 

1 

Earth  rotation  rate  (RAD/SEC) 

/$TATE3/( 

7.19  1 

BLR 

1 

ONEGA 

BL7 

I 

ONEGA 

TOPN 

0 

ONEGA 

ONE  GA2 

* 2 

I 

See  syebol 

/ST  AT£3/t 

720) 

BLR 

I 

0NEGA2 

CO 

BL7 

I 

ONEGA2 

BL8 

1 

QNEGA2 

TOP  N 

0 

0NEGA2 

R 

R 

1 

Radial  distance  from  earth  center  to  vehicle  (FT) 

/GENE  /( 

305) 

SLR 

I 

R 

8L7 

I 

R 

8L8 

1 

R 

BER3  A 

I 

R 

E00A3 

ft 

R 

AODELA 

I 

R 

NOOELB 

I 

R 

, 

POBC 

I 

ft 

P0Y3A 

I 

R 

TRTOSZ 

I 

R 

RO 

I 

Atmospheric  density  ( SLUGS/FT**3  ) 

/GENF  /( 

309  ) 

BL7 

I 

RO 

, H 3 

BL8 

I 

RO 

OER  3 A 

I 

RO 

E30A3 

I 

RO 

OUT 

1 

RO 

POBC 

2 

RO 

FDY3A 

I 

RO 

ROR 

I 

Oeriv  Of  density  art  alt. 

/GENE  /( 

313) 

BL7 

I 

ROR 

SL8 

I 

ROR 

E0UA3 

I 

ROR 

POBC 

I 

ROR 

P0V3A 

I 

ROR 

SIDAE 

$ 1 n{  ^ ^ 

I 

See  syabol 

/GENE  /( 

557  ) 

ACCEL 

1 

SIOAE 

BLR 

I 

SIDAE 

8L6 

I 

SIOAE 

BL7 

I 

SIOAE 

BL8 

I 

SIOAE 

FH3 

1 

SIDAE 

VT 

0 

SIDAE 

30  OCT  72  G 01-96 
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fobiran 

SYMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


SUBROUTINE  USAGE 
5U0H  CODE  VAR 


STORAGE 
BLOCK  LOC 


SINA 

s i n“ 

I 

See  tyabol 

/AEC03  /[ 

T > 

ACCEL 

I 

SINA 

BLB 

I 

SINA 

BLS 

1 

SINA 

BL7 

I 

SINA 

BL8 

I 

SINA 

FH3 

I 

SINA 

GUI3A 

n 

SINA 

our 

i 

SINA 

VT 

n 

SINA 

SINGAM 

sm(  7 ) 

1 

See  symbol 

/5TATE3/t 

688  ) 

BLB 

I 

SINGAfl 

BL7 

i 

SINGAM 

BL8 

i 

SINGAfl 

DEB3A 

i 

SINGAfl 

E3UA3 

0 

SINGAfl 

P100ELA 

i 

SINGAfl 

PIODELB 

l 

SINGAfl 

PDBC 

i 

SINGAIB 

PDY3A 

i 

SINGAfl 

S0ER3 

i 

SINGAfl 

SINP5I 

s i n<  'f') 

I 

See  symbol 

/ST  ATE3/I 

709  ) 

BLR 

i 

SINPSI 

BL7 

i 

SINPSI 

BLB 

i 

SINPSI 

DER3A 

i 

SINPSI 

E0JA3 

0 

SINPSI 

FIODELA 

I 

SINPSI 

no  DE  LB 

1 

SINPSI 

PDBC 

I 

SINPSI 

P0Y3A 

I 

SINPSI 

5 1 NR  HO 

s i n(  p > 

I 

See  sy ■ b o 1 

/STATE3/C 

706) 

BLB 

I 

SINRHO 

8L7 

I 

SINRHO 

BL8 

I 

SINRHO 

DEB3A 

I 

SINRHO 

E0UA3 

0 

SINRHO 

nODELA 

I 

SINRHO 

WODELB 

I 

SINRHO 

OUT 

I 

SINRHO 

PDBC 

1 

SINRHO 

P0Y3A 

I 

SINRHO 

51 N2RO 

s i n ( Zp  > 

a 

See  syabol 

/STATE3/C 

755  ) 

BLB 

I 

SIN2RQ 

BL7 

n 

SIN2R0 

BL8 

n 

S1N2R0 

PIODELA 

0 

S1N2R0 

P10  DELB 

0 

SIN2R0 

T 

T 

i 

Thrust 

(LBS)  / GENF  /( 

911  ) 

ACCEL 

I 

T 

BLGCON 

PI 

T 

BLB 

I 

T 

BLt 

1 

T 

BL7 

I 

T 

BLB 

I 

T 

EL2 

I 

T 

E0UA3 

0 

T 

FH1 

I 

T 

FH2 

I 

T 

FH3 

I 

T , 

FHB 

1 

T 

ItlPUL 

I 

T 

OUT 

I 

T 

PROPS 

0 

T 

PROPIN 

0 

T 

REU3 

0 

T 

SDER3 

I 

T 

30  OCT  n 

G. 01-R6 

34:0 

PORTRAN  oath 

SYMBOL  SYP1BGL 


XK3 

XK3A 

XK3D 

XK3S 

XK3H 

XK30 

XK3P 

XX3R 


‘ooe  DESCRIPTION 


l Relative  velocity  (FT/SEC) 


0 Third  control  vector  governing  equation  value 
Corresponds  to  error  in  algebraic  equation 
i nvo  i vi  ng  a. 


0 Partial  of  governing  equation  art  state  or  control 
vector  component 


0 Partial  of  governing  equation  prt  state  or  control 
vector  component 


D Partial  of  governing  equation  prt  state  or  control 
vector  component 

0 Partial  of  governing  equation  prt  state  or  control 
vector  coeponent 


0 Partial  of  governing  equation  «rt  state  or  control 
vector  component 

0 Partial  of  governing  equation  prt  state  or  control 
vector  component 

0 Partial  of  governing  equation  prt  state  or  control 
vector  component 


STORAGE  SlHBQUlIWE  USftSI 
0LOuK  LOL  SUttn  lode  var 


/ST ATE3/( 

1 ) ACCEL 

I 

V 

ADI CB3 

0 

VAR 

ADJUST 

m 

VAR 

AGETB3 

0 

VAR 

AST  3 

l 

VAR 

BLN 

1 

V 

BLT 

I 

V 

BL8 

I 

V 

CDN3 

I 

VAR 

DER3A 

I 

V 

DTF3 

I 

¥ 

ENVPRrt 

I 

VAR 

E0UA3 

I 

V 

PIODELA 

I 

V 

PIODELA 

I 

VAR 

PIOPELB 

I 

V 

PIT  X3A 

I 

VAR 

OUT 

I 

V 

OUT 

I 

VAR 

PD8C 

I 

V 

PDY3A 

I 

V 

REU3 

n 

VAR 

RKTA3A 

A 

Y 

STP3 

i 

VAR 

TOPPI 

0 

KUDU 

YREF3 

11 

V 

/ 6ENF 

/{ 

57R)  BL2 

Q 

XK3 

BL3 

0 

XK3 

BLR 

0 

XK3 

BL5 

0 

XK3 

BL6 

0 

XK3 

BLT 

0 

XK3 

BL8 

0 

XX3 

MODELA 

I 

XK3 

OUT 

I 

XK3 

/GENE 

n 

583)  BLGCON 

I 

XK3  A 

BL2 

0 

XK3  A 

BL3 

0 

XK3  A 

BLR 

0 

XK3A 

BLS 

n 

XK3A 

BL6 

0 

X K 3 A 

BL7 

0 

XK3  A 

BL6 

0 

XK3A 

/ GENF 

580  ) BLGCON 

I 

XK3D 

BLR 

0 

XK30 

BLfc 

0 

XX3D 

BL7 

0 

XK30 

BL6 

0 

XK30 

/GENE 

/( 

589 ) BLR 

0 

XK3G 

BL7 

0 

XK3G 

BLS 

0 

XK3G 

/GENE 

n 

BOR  ) BLR 

0 

XK3PI 

BLS 

XK3PI 

BL£> 

0 

XK3D 

BL7 

0 

XK3PI 

BL8 

0 

XK3PI 

/GENE 

/( 

598  ) BLR 

0 

XK30 

BL7 

0 

XK30 

BL8 

0 

XK30 

/GENE 

/( 

592)  BLR 

0 

XX3P 

BL7 

0 

XK3P 

BL8 

0 

XK3P 

/GENE 

n 

595)  BL3 

0 

XK3R 

BLR 

0 

XK3R 

BL5 

n 

XK3R 

BL6 

0 

XK3R 

BLT 

0 

XK3R 

BL8 

0 

XK3R 

30  OCT  72  G 01-RG 


FOHIRAN  HATH 

ovnaoi  GvnoOL 


CODE 


DESCRIPTION 


STORAGE  subroutine  usage 

BlOU  LOL  SUBR  CODE  VAR 


XK3T 

0 Partial 

of  governing  equation 

*rt 

* t e or  control 

/GENF  /( 

5 77  ) 

BlGCON 

I 

XK3T 

vector 

component 

BLR 

0 

XK3T 

Bt-6 

0 

XK3T 

BL7 

0 

XK3T 

BLB 

0 

XK3T 

XK3  V 

0 Parti  a i 

of  governing  equation 

■ r t 

st  or  co  n't r o \ 

/GENF  /( 

586) 

BL3 

0 

XX3V 

vector 

component 

BLR 

0 

XK3V 

BL5 

n 

XK3V 

BL6 

0 

XK3V 

BL7 

0 

XK3  V 

BL8 

0 

XK3V 

30  OCT  72  G 01-S6 


342 


6L7 


1 

SUBROUTINE  BL7 

BL7 

2. 

COUPON/ SENF/ 

SENF 

3. 

♦ QMGt  20 1 

,0«SP!20, 

2), VARQ!  9 ) 

,TDL! 9 ) 

,SVARC 10) 

,U0C(2G> 

6ENF 

*1 

♦ fit  4,9) 

,ACON! 9 ) 

,BC0N(9> 

, COT I ( 9,9  ) 

,OCON( 9) 

.DTP 

, 

SENF 

5. 

♦DTS 

OT 

,6 

,0PS8 

,GS 

/ 

SENF 

6. 

♦R 

,RE 

.MACH 

,PA 

,R0 

,C5 

GENF 

7, 

♦VNU 

.PAR 

,ROR 

, CSR 

, VNfi 

,SUMSO 

SENF 

8. 

♦svso 

.TIMEPH 

.TIMES 

,TOP 

,TOS 

,TR( 9 ) 

6ENF 

9 

♦ TST( 20) 

,TPH  { 20 ),BI5! 20  ) 

.OIP120) 

,T 

GENF 

10 

♦TLPU20)  ,TLS1  ( 20  ),  01  P It  20  ) 

. D1SU20) 

,TI  ME 

,OMP 

SENF 

11. 

♦T I APR 

.LIFT 

, DRAG 

-TAX 

,TBURN 

.TBU(ZD) 

> 

BENF 

12. 

♦A£ 

,FP 

,FPQLO 

,FPO 

,MACHR 

rMACHV 

GENF 

13 

*QR 

,8V 

,F¥AC 

-LIFTV 

SENF 

14 

♦LIF7R 

, L1FTA 

0RA6V 

,ORAGR 

.DRAG* 

9 

GENF 

15. 

* 

LIFTM 

,OBR 

,0B 

,1SP 

, ISPF 

SENF 

16. 

*■ 

ULFT 

, ULFTV 

,ULFTR 

, ULFT A 

SENF 

17 

• XMCG 

, XMCGV 

, XMCGR 

,XMCGA 

,XMC6M 

, COD AE 

6ENF  1 

18. 

♦CULFT 

,CT 

,CALPHA 

,COE 

.OELTAE 

,SID 

6ENF 

19 

♦ COD 

.5I0AE 

^XCG 

,zcs 

SENF 

20 

common 

/ GENF  / 

GENF 

21. 

♦XJV 

- X JR 

,6H 

,GAMNAD 

,XKG 

,XXP 

t 

GENF 

22. 

♦FRATED 

RATED 

GENF 

23 

♦PI 

,P2 

>3 

XXI 

, XX2 

,X<3 

t 

SENF 

24 

♦ XX1T 

XX2T 

,XX3T 

XK1B 

, XX2D 

, XX3D 

GENF 

25 

♦ XX  1ft 

-XX2A 

, XK3A 

.XXIV 

, xxzv 

. XX3V 

f 

GENF 

26. 

♦XKie 

, XX26 

, XK36 

,XXIP 

, XX2P 

. XX3P 

GENF 

27. 

♦XK1R 

, XK2R 

, XK3R 

,xxio 

,XX20 

, XX30 

* 

SENF 

28 

♦ XK1U 

, XX2U 

,XK3U 

.XK1« 

-XX2M 

, XK3M 

GENF 

29. 

*PV 

,PG 

.PP 

.PR 

,P0 

,0P0Y<3,8) 

GENF 

30. 

REAL  LIFTR  . LIFT 

. LlFTd.LlFTB  . 

MACU. 

MACHR 

GENF 

31 

♦ ISP.  ISPF.  MACUV.LTFTV  . I RftTEO 

FRAT 

32 

DIMENSION  TPHIC  lOl.TSTK  10) 

GENF 

33. 

EQUIVALENCE! TLP1 .TPH1 >.<  TLS1.T5T1 ) 

GENF 

34. 

COMMON/ AEC03/ 

AECQ3 

35. 

♦ftPHO 

APHR 

, ALPHA 

. VO  A 

, SD  A 

.PDA 

AECQ3 

36 

♦SINft 

, COSA 

,PHXD 

, PHIO 

,PHI 

.SINPHI 

AEC03 

37. 

♦COSPHI 

, GDPH 

, POPH 

, XLAMA!  9 ) 

-XLAMPC  9 ) 

,CDO 

AEC03 

38. 

♦CDOB 

t CLO 

,FK 

, XCSH 

-ZCSM 

,CLO« 

AEC03 

39. 

♦ CM 

,cha 

, CHAM  ,C MM 

,CMO 

,CMOM 

,fxm 

AEC03 

40. 

♦CLAM 

!ct 

, CLA 

, CLM 

AEC03 

41 

42 

♦CD  -COA 

C0«M0N/STATE3/ 

,COM 

AEC03 

STATE3D 

43- 

♦VAR! 14) 

,OVAR  ( 14), VARL  (99) 

, OVARL! 99  ) 

, Y0(  9 ) 

,SVY( 10) 

STATE3D 

44. 

*XL(  9 9) 

, YDP(  20,9 ), YDS  (20,9). 

COSGAM 

-SI  NS AM 

,SAVBP(  15) 

STATE3D 

45. 

♦S1NPSI 

-C0SPS1 

, SI NRHQ 

, COSKHO 

,0 COR HO 

,0C0R02 

STATE30 

46 

*SVBV 

(9), OMEGA 

,0ME6A2 

STATE3D 

47. 

♦vov 

.GOV 

,RDV 

'mdv 

,PDV 

-DDV 

5TATE3D 

48 

♦ UDV 

, VOG 

, GOG 

,RDG 

,PDS 

,DOG 

STATE30 

49 

*UD6 

, VDR 

,60R 

,MDR 

,PDR 

5TATE30 

50 

♦ UDR 

,VDM 

,GDM 

-MDM 

-POM 

, VDP 

STATE30 

51 

♦ GOP 

,PDP 

,ODP 

,UOP 

, VDO 

, GDO 

STATE3D1 

52 

♦POO 

,U00 

,HTDV 

,HTDR 

ST  ATE  3D- 

53 

REAL  MOM  , MDV,  MOB 

STATE30 

54 

COIlflON/STATE3/ 

STATE3D 

55- 

♦S1N2R0 

-C0S2R0 

,C0S2GM 

STATE3D 

56 

EQUIVALENCE  ( V ATU  1 ) 

.V)  .(  VAR(  2) . 

SAM)  ,(  VAR(  3>,  ALT)  , 

( VARl  4 ),M)  , 

EDUV3 

57 

*(  VAR( 5 ) 

,PSI >,( VAR(6),RHd ),( V4R< 1 

>.NU).{  VAR( 8), HT  ) . 

( VAfi(  9 ),SQ2 ) 

EQUV3 

58 

♦(DVARt  1 ).VD).(DVAR( 

2),G0  ),(  DVARt  3 ).H0).<  OVAR!  4). MO). 

( DVAR( 5 ).P0 ) 

EQUV3 

59 

*(DYAR!6>,0D>,(DVAR(  7 ),U0  >,(  OVAR!  8 >,  HTO 1 . ( B VAR! 97,5020 > 

E0UV3 

60. 

REAL  M, 

MU,  MO 

E9UV3 

61 

COMMON/SPECO  / UMU2 

, RORR 

BL7 

62 

C 

FLIGHT  MODE  CONSTRAINT 

BL7  1 

63. 

c 

BL7  1 

64. 

ENTRY  BL7010 

BL7 

65 

ASSIGN 

401  TO  ISO 

BL7 

66. 

ASSIGN 

30  TO  I AM 

BL7 

67. 

GO  TO  301 

BL7  | 

301 — | 

68 

ENTRY  BL7001 

BL7  i 

69 

ASSIGN 

50  TO  IGO 

BL7 

70. 

GO  TO 

301 

BL7  | 

301  — 

71 

ENTRY  6L7000 

BL7 

72. 

ASSIGN 

60  TO  IGO 

BL7 

73. 

c 

blt 

74 

301  RDOT  = 

V*  51NGAM 

BL7 

75- 

V03T  = 

fi»OMEGA2^COSfiHO*(  C0SRH0»SING6M  - SI NRH0*C0SPSI ♦CBSSAM) 

BL7 
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76. 

* - 6*S1 NGAfl  + (T*C0DAE  - DB*COSA  - DRAG)/* 

77 

C 

78. 

C 

PRELIMINARY  CALC  ENTRY  SO  ,90  , 10,  20 

79. 

C 

60. 

501 

ROVRB  = RO/N 

81. 

TORO  = 2.*  RO 

82. 

TOROR  = 2.*  ROR 

83. 

TORORR=  2.*  RORft 

89. 

GO  TO  160 

85. 

C 

86. 

C 

PRELIMINARY  CALC  ENTRY  30  ,10 

67. 

C 

88. 

901 

CONTINUE 

89 

SIN2RQ  = 2.  *S! NR HQ* CO SR HO 

90. 

C0S2R0  =<  COSRHO-SINBHO )*<  C0SRHQ+SINRH0> 

91. 

CSRHO  = SIN2R0/2. 

92. 

CP5GAR=  CQSPSI*  COSSAB 

93. 

CPSS6A=  C05P5I*  S INGAM 

99 

SRH02  =$INRH0*5INRH0 

9 5. 

CRH02  = COSRHO*  COSRHO 

96. 

ROMES  = R*  OMEGA 

97. 

R0MEG2=  R*  DRESA2 

98 

CR06AB=  COSRHO*  COSSAB 

99 

VOOTR  = 0MEGA2*  COSRHO*  l CQ5RH0*  SIN6AM-  SINRHO*  CPSSAft) 

100. 

* - GH*  SIN6AB  - < DBR*  COSA*  ORASR  )/  B 

101. 

VOOTV  = -ORAfiV/  B 

102 

ROOTY  = SINGAB 

103. 

ROOTG  = V*  GOSSAN 

1109. 

VOOTG  = R0BEG2*  COSRHO*  C CRQSAR  + SINRHO*  CFSS6A 

105. 

* - S*  C0S6AB 

106 

VDOTP  = R0BEG2*  CSRHO*  COSSAB*  SINP51 

107. 

VOOTO  = -R0BEG2*  t SIN2R0*SI NSAN  * C0S2R0*CPSSAB) 

108 

VDOTB  = -l  T*  COD AE-*  DB*  COSA-  0RA6  >/  B/  B 

109. 

60  TO  IAN 

110. 

c 

ill. 

c 

1112 

30 

XK3R=V*RDOT*RORR+TGRDR*VOOT  +TORO*VDOTR 

113. 

XK3V  = TOROR*  ROOT-  TORO/  fl*  DRA6V 

119 

XK36  = V*  ROR*  ROOTS*  TORO*  VOOTG 

115. 

XK3P  = TORD*  VDOTP 

! 1 1 6 

XK30  = TORO*VOOTO 

117. 

XK3B  = TORO*  VDOTB 

118 

c 

119 

c 

jlZO. 

50 

XK3T  = 2.*  ROVRB*  CODAE 

121 

XK3D  - Z * ROVRB*  T*  SIDAE 

122 

XK3A  = 2 * ROVRB*  ( OB*  SINA-  T*  SIDAE-  DRA6A  7 

1 123. 

c 

129. 

c 

CONSTRAINT  EVALUATION 

125 

c 

126. 

60 

XK3  = V*  ROOT*  ROR*  2.*  RO*  VDOT 

127  . 

RETURN 

128. 

END 

BL7 
BL 7 
BLI 
BL7 
BL7 
BLI 
BL7 
BL7 

&LT 

BLT 

BL7 

BLT 

BL7 

BL7 

BL7 

BL7 

BL7 

BL7 

BL7 

BL7 

BU 

BL7 

BL7 

BL7 

BL7 

BL7 

BLI 

BL7 

BL7 

BLI 

BLT 

BLT 

BL7 

BLI 

BLJ 

BLI 

BL7 

BLI 

BLT 

BL7 

BLI 

BL7 

BL7 

BL7 

BLI 

BLI 

BL7 

BLI 

BL7 

BL7 

BL7 

BLT 

BL7 
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SUBR0UT INE 
BL8 


FIAT  H 
SYFIBOL 


DESCRIPTION 


5 tor  a-; 

8ior* 


vibbputurf  usage 
SUBR  COPE  VAR 


COOAE  cost  a-4£  > I See  ayobol 


COSA  COS“  ^ See  syabol 


COSGAn  Cost?)  I See  synbot 


COSPSI  cost  V' ) I See  synbol 


COSRHO  cost/))  I See  syabol 


COSZRO  cost  Zp  ) 11  See  syebol 


DB  n I Base  drag 

b 


DBR  I Partial  of  base  drag  art  altitude 


/ GENF  /( 


/AEC03  /( 


/STATE3/1 


/STATE3/1 


/STATE3/1 


/STATE3/1 


(LBS)  / GENF  /[ 


/ GENF  /( 


5H 9 ) 

ACCEL 

] 

COOAE 

BLR 

1 

COOAE 

BLi 

I 

CODAE 

BL7 

] 

COOAE 

BL8 

I 

CODAE 

FH3 

I 

CODAE 

50ER3 

1 

COOAE 

VT 

0 

COOAE 

8 ) 

ACCEL 

1 

COSA 

BLR 

I 

COSA 

BLi 

] 

COSA 

BL7 

1 

COSA 

BL8 

1 

COSA 

FH3 

1 

COSA 

OUT 

] 

COSA 

VT 

(1 

COSA 

68T  ) 

ACCEL 

1 

COSGAiR 

BLR 

I 

cos  o An 

BL8 

1 

COSGAn 

DER3A 

] 

COSGAIR 

EQUA3 

0 

COSGAn 

MOOELA 

I 

COSGAIR 

MOOELB 

1 

COSGAn 

OUT 

1 

CD5  GAn 

POBC 

J 

COSGAn 

P0V3A 

1 

COSGAIR 

705  ) 

BLR 

1 

COSPSI 

BL7 

I 

COSPSI 

BL8 

I 

COSPSI 

0ER3A 

J 

COSPSI 

EQUA3 

0 

COSPSI 

F10DELA 

1 

COSPSI 

F10DELB 

I 

COSPSI 

PDBC 

1 

COSPSI 

P0V3A 

] 

COSPSI 

707  ) 

BLR 

I 

COSRHO 

BL7 

1 

COSRHO 

BL8 

I 

COSRHO 

0ER3A 

1 

COSRHO 

EQUA3 

n 

COSRHO 

rtOBELA 

1 

COSRHO 

F10  DELB 

1 

COSRHO 

OUT 

I 

COSRHO 

POBC 

! 

COSRHO 

POY  3 A 

I 

COSRHO 

754  ) 

BLR 

I 

COS2RO 

BLI 

n 

COS2RO 

BL8 

n 

C0S2R0 

nODELA 

0 

C0S2R0 

F100ELB 

0 

C0S2R0 

537  ) 

ACCEL 

I 

OB 

BLR 

: 

OB 

BL4 

I 

DB 

BL7 

1 

OB 

BL8 

l 

DB 

E0UA3 

! 

DB 

FH3 

1 

DB 

OUT 

I 

OB 

SDER3 

I 

OB 

VT 

I 

DB 

534  > 

ACCEL 

I 

DBR 

BLR 

I 

OBR 

BL4 

I 

OBR 

BL7 

I 

DBR 

8L6 

I 

OBR 

EQJA3 

I 

DBR 

FH3 

I 

DBF 

VT 

I 

OBR 
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FORTRAN 

SVrmOL 


iTATH 

SY«B0L 


CODE 


DESCRIPTION 


S tQfiftCE  SUBROUTINE  USAGE 

8 LOOK  LCfE  SU8R  LODE  VAR 


DRAG 

D 

i 

Aerodynamic  drag 

< LBS  > 

/ GENF  /{ 

N97  ) 

ACCEL 

1 

DRAG 

BLS 

I 

DBAS 

BL7 

I 

DRAG 

BLS 

I 

DRAG 

ENVPRIT 

I 

DRAG 

FH3 

I 

DRAG 

OUT 

I 

□ RAG 

PROPB 

0 

□ RAG 

PROPIN 

0 

DRAG 

SDER3 

I 

DRAG 

VT 

it 

drag 

DRAGA 

i 

Partial  of  drag  *rt  angle  of  attack 

/ GENF  /< 

53h  ) 

ACCEL 

I 

ORASA 

BLS 

I 

oraga 

BL7 

I 

DRAGA 

BLS 

1 

ORASA 

FH3 

I 

ORAGA 

VT 

IT 

DRAGA 

DRAGR 

i 

Partial  drag  art  altitude 

/GENF  /( 

533) 

ACCEL 

I 

DRAGR 

BL5 

I 

DRAGR 

BL7 

I 

DRAGR 

BL8 

I 

DRAGR 

FH3 

I 

DRAGR 

VT 

n 

DRAGR 

DRAGV 

i 

Partial  of  drag  prt  velocity 

/GENF  /( 

53Z  > 

ACCEL 

I 

DRAGV 

BL5 

I 

DRAGV 

BL7 

I 

DRAGV 

BLS 

I 

DRAGV 

FK3 

I 

DRAGV 

VT 

IT 

DRAGV 

6 

Q 

i 

Gravitational  attraction 

( FT/$EC**2) 

/GENF  /( 

301  > 

BLN 

I 

G 

y 

BL7 

I 

G 

BL8 

I 

G 

DER3A 

I 

G 

EOUA3 

IT 

G 

ITQDELA 

I 

G 

ITODELB 

I 

G 

, 

PDV3A 

I 

G 

SDER3 

I 

S 

SDINP 

IT 

G 

GH 

j 

Partial  of  gravity  prt  altitude 

/GENF  /( 

563  ) 

BL7 

I 

GH 

BL8 

1 

GH 

ESUA3 

0 

GH 

PDY3A 

I 

DGOH 

n 

a 

i 

Class 

/ST  ATE3/I 

N) 

ACCEL 

I 

IT 

B1_N 

I 

IT 

BLS 

I 

n 

E3UA3 

I 

n 

OUT 

I 

n 

SDER3 

I 

IT 

omegaz 

,,Z 

i 

See  symbol 

/STATE3/( 

720  ) 

BLN 

! 

OITEGA2 

cj 

BL7 

I 

OITEGA2 

BL8 

I 

0DEGA2 

TOPHI 

0 

DITEGA2 

R 

R 

i 

Radial  distance  frop  earth  center  to 

vehicle  ( FT ) 

/GENF  /( 

305  ) 

BLN 

I 

R 

BL7 

I 

R 

BL8 

I 

R 

DER3A 

I 

R 

EQUA3 

IT 

R 

P10BELB 

1 

R 

M0DELB 

I 

R 

PDBC 

I 

R 

PDY3A 

I 

R 

TRTOSZ 

I 

R 
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1-0R1HAN  <RATH 

SYP1R0L  SYPIBQt 


COOE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 
BLOCK  LOC  SUBR  LDOE  VAR 


RO 

0 

i 

Atmospher 1 c denelty 

( SLUGS/FT  »*3 ) / GENF  /( 

309)  BL7 

1 

RO 

H % 

BL8 

I 

RO 

DER3A 

I 

RO 

EBUA3 

I 

RO 

OUT 

I 

RO 

PDBC 

I 

RO 

PDY3A 

I 

RO 

ROR 

i 

Oerlv  Of  density  art  »lt. 

/GENF  /( 

313)  BL7 

I 

ROR 

BL6 

I 

ROR 

E0UA3 

J 

ROR 

POBC 

1 

ROR 

PDY3A 

I 

ROR 

SIDAE 

si  n ( cx~s^) 

i 

See  syabot 

/GENF  /( 

557)  ACCEL 

I 

S10AE 

BLR 

I 

SIDAE 

Bit 

I 

SIDAE 

BL7 

I 

SIDAE 

BL8 

I 

510AE 

FH3 

I 

SIDAE 

VT 

0 

SIDAE 

SINA 

s i n« 

i 

See  syabc  1 

/AEC03  /[ 

7)  ACCEL 

I 

SINA 

BLR 

I 

SINA 

BL6 

I 

SINA 

BL7 

I 

SINA 

BL8 

I 

SINA 

FH3 

I 

SINA 

GUI3A 

PI 

SINA 

OUT 

I 

SINA 

VT 

PI 

SINA 

S INGAPI 

s i n(  7 ) 

i 

See  syabol 

/ST  ATE3/< 

688)  BLR 

I 

5INGAPI 

BL7 

I 

SINGAPI 

BL8 

1 

SINGAN 

DER3A 

I 

SINSAIR 

EQUA3 

0 

SINGAPt 

piodela 

I 

SINGAPI 

PIODELB 

I 

SINGAPI 

POBC 

I 

SINGAPI 

PQY3A 

1 

SINGAPI 

S0ER3 

1 

SINGAPI 

SINPSI 

s i n( 

i 

See  syabol 

/STATE3/I 

704  ) BLR 

I 

SINPSI 

BL7 

I 

SINPSI 

BL8 

1 

SINPSI 

0ER3A 

I 

SINPSI 

E0UA3 

0 

SINPSI 

PIODELA 

I 

SINPSI 

PIODELB 

I 

SINPSI 

POBC 

I 

SINPSI 

PDY3A 

I 

SINPSI 

S 1 NR HO 

sin(p  ) 

i 

See  syabol 

/ST  ATE3/f 

706)  BLR 

I 

SINRHO 

BL7 

I 

SINRHO 

BL8 

I 

S I NRHO 

0ER3A 

I 

SINRHO 

E0UA3 

0 

SINRHO 

PIODELA 

I 

SINRHO 

PIODELB 

I 

SINRHO 

OUT 

1 

SINRHO 

POBC 

I 

SINRHO 

PQY3A 

I 

SINRHO 

S I N2R0 

s J n ( Zp  ) 

Set  syabol 

/ST  AT£3/( 

755  ) BLR 

I 

SIN2R0 

BL7 

PI 

SIN2R0 

BL8 

PI 

SIN2R0 

P100ELA 

0 

SIN2R0 

PIODELB 

0 

SIN2R0 

30  OCT  72  G 01-R6 


348 


FORTRAN  HAIH 

5 Y H60 L SYMBOL 


DESCRIPTION 


STQRATE  SUBROUTINE  USAGE 

block  loc  subr  root  var 


I Thruit 


I Relative  velocity 


/ ST  ATE3/1 


0 Thtrd  control  vector  governing  equation  value. 
Corresponds  to  error  in  algebraic  equation 
involving  et . 


0 Partial  of  governing  equation  art  state  or  control 
vector  component 


0 Partial  at  governing  equation  »rt  state  or  control 
vector  component 


0 Partial  of  governing  equation  »rt  state  or  control 
vector  component 


HU  ) 

ACCEL 

I 

T 

BLGCON 

PI 

T 

BLR 

I 

T 

BL6 

I 

T 

BL7 

I 

T 

BLS 

T 

EL2 

I 

T 

ES  UA3 

0 

T 

F H 1 

I 

T 

FH2 

I 

T 

FH3 

I 

T 

FH*i 

I 

T 

I nPUL 

I 

T 

OUT 

I 

T 

PROPB 

0 

T 

PROF  I *1 

0 

T 

REU3 

0 

T 

SBER3 

1 

T 

1 } 

ACCEL 

1 

Y 

ADICB3 

0 

VAR 

ADJUST 

PI 

VAR 

ASETB3 

0 

VAR 

A5T3 

I 

VAR 

BLR 

I 

V 

BL7 

I 

V 

BLS 

I 

V 

C0N3 

I 

VAR 

DER3A 

i 

V 

0TF3 

I 

V 

ENVPBPI 

I 

VAR 

E3UA3 

I 

V 

flODELA 

I 

V 

MDOELA 

I 

VAR 

NDQELB 

I 

V 

IRTX3A 

I 

VAR 

0*UT 

I 

V 

OUT 

I 

VAR 

PDBC 

I 

V 

P0Y3A 

I 

V 

RtU3 

PI 

VAR 

RKTA3A 

P! 

Y 

STP  3 

I 

VAR 

TOPPt 

D 

KUDU 

YREF3 

n 

V 

57R  ) 

BL2 

0 

XK3 

SL3 

0 

XK3 

3LR 

a 

XK3 

BL5 

0 

XK3 

BL6 

0 

XK3 

BL7 

0 

XK3 

BLS 

0 

XK3 

flDOELA 

i 

XK  3 

OUT 

i 

XK3 

583  > 

BLGCON 

i 

XK3A 

BL2 

0 

XK3A 

BL3 

0 

XK3A 

BLR 

0 

XK3A 

BLS 

PI 

XK3A 

BL6 

0 

XK3A 

BL7 

0 

XK3A 

BL8 

0 

XK3  A 

580  ) 

BLGCON 

I 

XK30 

BLR 

0 

XK3D 

BLS 

0 

XK3D 

BL7 

0 

XK3D 

BLS 

0 

XK3D 

585  ) 

BLR 

0 

XK3G 

BL  7 

0 

XK3G 

BLS 

0 

XK3G 
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I-ORIRRN  ORTH 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


1'UBSpJTI'Yf  u;-«.E 
SUB"  CODE  VSR 


XK3ro 

0 

Partial  of  governing 
vector  component 

equation 

XK  30 

0 

Partial  of  governing 
vector  component 

equation 

XK3P 

0 

Partial  of  governing 
vector  component 

equation 

XK3R 

0 

Partial  of  governing 
vector  component 

equation 

XK3T 

0 

Partial  of  governing 
vector  component 

equation 

XK3V 

0 

Partial  of  governing 
vector  component 

equation 

art 

jt«t* 

or 

cont  ro 1 

/GENE 

/t 

60H  ) 

BUM 

0 

XK3* 

BL5 

n 

XK3M 

BL6 

0 

XK3d 

6L7 

0 

XK3IR 

BL8 

0 

XK3N 

air  t 

state 

or 

co  nt ro  1 

/GENE 

/( 

598) 

BLR 

0 

XK30 

B L7 

D 

XK30 

BL8 

0 

XK  3D 

mrt 

state 

or 

co  nt ro  1 

/gene 

/( 

592) 

BLR 

0 

XK3P 

BL7 

0 

XK3P 

BL8 

0 

XK3P 

»r  t 

state 

or 

co  ntr o 1 

/genf 

/< 

595  ) 

BL3 

0 

XK3R 

BLR 

0 

XK3R 

BL5 

n 

XK3R 

BL6 

0 

XK3R 

BL7 

0 

XK3R 

BL8 

0 

XK3R 

• rt 

st  at  e 

or 

co  nt ro  1 

/GENF 

/( 

577  ) 

BLGGQN 

i 

XK3T 

BLR 

0 

XK3T 

BL6 

0 

XK3T 

BL7 

0 

XK3T 

BL8 

a 

XK3T 

mrt 

state 

o r 

contro  1 

/GENF 

/( 

586) 

BL3 

0 

XK  3 V 

BLR 

0 

XK3V 

BL5 

n 

XK3V 

BL6 

a 

XK3V 

BL7 

a 

XK3V 

BL8 

0 

XK3V 
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&L8 


1.  bUBHODT 1NE  BLB  BLB 

Z CDMN0N/6EHF/  GENF 


3. 

• 0*6(20) 

.ORGPt  20,2 ), VARO(  9 ) 

/ TOL(  9 ) 

SVftRC  10) 

.UOC120) 

GENF 

9 

•AC  9 9) 

, ACONt 9 > 

,6C0N<9> 

, C0TI(9,9) 

0C0N1  9 ) 

f OTP 

GENF 

5. 

•0T5 

,0T 

.6 

,DP5Q 

'a 

,05 

GENF 

6. 

•H 

f RE 

,«ACH 

,PA 

,H0 

,cs 

GENF 

7. 

• VNU 

.PAR 

,R0R 

,CSR 

,VNR 

.SURSfl 

GENF 

ft. 

•SVSO 

.TIREPH 

.TIRES 

.TOP 

TOS 

.TR(9>  , 

GENF 

9. 

•T$T( 20) 

, T PH  ( 20 ) . OlSl  20  ) 

,DIP(20 ) 

,T 

,u 

6ENF 

10 

• TLP It  ?0 ) ,TL5 1 ( 20 ) . 01 Pl( 20  ) 

.0151(20) 

,TIflE 

^ OnP 

GENF 

11. 

•TlriPR 

.LIFT 

.DRAG 

.TAX 

. T BUHN 

,TBU<20)  , 

GENF 

12. 

•AE 

,FP 

.FPGLO 

/FPO 

,P)ACHR 

, RACHV 

GENF 

1ft. 

*QR 

,0V 

, FVAC 

, LI FTV 

SENF 

19. 

•LI FTP 

, LIFTA 

ORAGV 

.DRAGR 

. ORAGA 

GENF 

15 

* 

LIFT* 

'OBR 

,DB 

,ISP 

, isPF 

GENF 

16. 

* 

ULFT 

.ULFTV 

. ULfTR 

,ULFT A . 

SENF 

17. 

•xrcg 

,xnc ev 

.XRCSR 

XRCGA 

, XRCSR 

/COBAE  , 

GENF 

1ft. 

•CULFT 

#CT 

CALP  HA 

/ CDS 

z OELTAE 

/SID 

GENF 

IS. 

• COD 

, SI  DAE 

, XCG 

/ZCG 

,U 

GENF 

20. 

COR RON 

/ 6ENF  / 

GENF 

21. 

• XJV 

, X JR 

, GH 

z 6AcmA0 

,XKG 

,XAP 

GENF 

22 

•PRATED 

, 1 RAT ED 

GENF 

23 

•PI 

,P2 

>3 

XK1 

z XK2 

,XK3 

GENF 

2H . 

•XK1T 

, XK2T 

, XK3T 

XX1D 

z XK20 

z XK30  , 

GENF 

25. 

• XK1A 

, XK2A 

XK3  A 

,XX1V 

z XK2V 

z XX3V  , 

GENF 

26. 

•XK1G 

,XK26 

. XK3G 

, XK1P 

, XX2P 

, XK3P 

GENF 

27. 

• XK1R 

,XK2R 

, XK3R 

. XK10 

, XK20 

, XK30  z 

GENF 

28. 

• XK1U 

, XK2U 

. XK3U 

,xxi« 

,XK2* 

z XK3R  / 

GENF 

29. 

*PV 

,PG 

.PP 

.PR 

,P0 

,OPOY(3,e) 

SENF 

30. 

REAL  LIFTR  . LIFT  , 

LIFTA. LIFT*  , 

RACH, 

rtAQHR , 

GENF 

31. 

• ISP.  ISPF . RACHV.LI 

FTV  . IRATED 

FRAT 

32. 

OIPIENSION  TPH1C  10  ).  TSTK  1 0 ) 

GENF 

33. 

GQUlVALENCEdLPl  .TPK1  ).<TLS1,T5T1 ) 

GENF 

39. 

C0nRQN/STATE3/ 

STATE3D 

35. 

♦ VAR( 19) 

. DVAR  ( m.VARL  (99) 

DVARL( 99) 

, Y0( 9 > 

, $VY( 10 ) , 

STATE30 

36. 

*XL< 9,9) 

, YOPt  20,9  ) 

,YDS  (20/9) 

COSGArt 

z SI  NGAI9 

, S AVBP( 15  1 / 

STATE3D 

37. 

•SJHPS1 

, COSPSI 

. 5INRH0 

# COSRHO 

/OCORHD 

/OCORD2 

STATE3D 

36 

•SVBV 

{ 9 ),0R£GA 

DREG A2 

STATE30 

39. 

• VDV 

,GDV 

,ROV 

'«DV 

,PDV 

,00V 

5TATE3D 

90. 

•UDV 

, VDG 

z GD6 

.ROG 

/POG 

,ODG 

STATE3D 

91. 

•UDG 

,VDR 

, SDR 

z ADR 

,PDR 

odr  ; 

STATE30 

92. 

•UDR 

,VDR 

,6DB 

,RDR 

,PDR 

,VDP 

STATE3D 

93. 

•GOP 

,PDP 

/ODP 

,UDP 

,voo 

,G00 

STATE3D 

99. 

•PDO 

, UDO 

,HTDV 

, HTDR 

STATE30 

95. 

REAL  HD«  , RDV,  UDR 

STATE3D 

96. 

C0rtrt0N/STATE3^ 

STATE3D 

97 

•SIN2R0 

. COS2RO 

C0S2GH 

STATE3D 

98 

EQUIVALENCE  (VARU), 

V > ,(  VAR(  2 ) 

GAR)  ,( VAR(3),ALT)  , 

( VAR{  9 ),R  ) , 

EQUV3 

99 

•<  V AR(  S 

.PSI  ).<  VAR(  6 ) 

, AHu  ).  t VAR( 

).PIU).(  VAR(  8).HT  ) . 

( VAR( 91,5021. 

E0UV3 

50. 

•IDVARtl  ).VD).(DVAR(2).G0).(0VAR(  3 ) . HD ) , ( DVAfi( 9 ) ,flD  ), 

( DVARl  5 ),P0 ). 

EQUV3 

51. 

• (DVAR(6),0D),(DVAR(7).UD),(  OVAR{  6).HT0),(  OVARt  9 ).SQ2D> 

EQUV3 

52. 

REAL  A. 

RU,WD 

EQUV3 

53 

COP1R0N/AECO3/ 

6EC03 

59. 

• APHO 

, APHR 

,ALPHA 

. VOA 

.GO  A 

.PDA  , 

AEC03 

55. 

•SINA 

.COS  A 

/PHIO 

, P HI  D 

/PHI 

.S1NPH1  , 

AEC03 

56 

•COSPHI 

, GOPH 

,POPH 

z XLAflA(  9 ) 

. XLAflPt  9 

f coo 

AEC03 

57. 

•COOrt 

'CLO 

FK 

.XCGrt 

,zcGn 

'clou 

AEC03 

58. 

•Cfi 

,CRA 

,crah  ,c«n 

,CRO 

/CROn 

,FKH 

AEC03 

59. 

• CLAP) 

,CL 

.CLA 

. CLH 

t 

AEC03 

60 

•CD 

, CDA 

/CON 

AEC03 

61. 

CORRON 

/SPECO/  L)KU2, 

r6rr 

BL8 

62 

ENTRY  BL8010 

BL8 

63. 

ASSIGN 

301  TO  1AH 

BL8 

69. 

ASSIGN 

30  TO  IGO 

BLB 

65. 

GQ  TO  601 

BL8 

66. 

ENTRY  BL8001 

6L8 

67 

ASSIGN 

501  TO  I AVI 

BL8 

68. 

ASSIGN 

50  TO  IGO 

6L8 

69. 

GO  TO 

601 

BL8 

70. 

ENTRY  BL6000 

BL8 

71. 

ASSIGN 

60  TO  lAfl 

BL8 

72 

C 

BL0 

73 

601  ROOT 

- V#  5IHGAH 

BL8 

79. 

R6R 

= ROR/6.3 

BL8 

75. 

R6RR 

= RQRR/6. 3 

BL8 

351 


601—1 
601  — 
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76. 

VI 1 5 = v»»1.15 

BL8 

7T 

sin2rg  = z »sinrho«coshho 

BL8 

78 

COS2RO  = ( CO  SR HO  -SINRHG >»(  CDSRHO  +51 NRHO ) 

BL8 

79 

CSRHO  - 51 N2RQ  /2. 

8L8 

80 

CPSSAn=C0SPSt*C05SAR 

Bl8 

81 . 

CP 55 6 A = C0SP5I»  SIMGAN 

6L8 

82. 

R0PIEG2  = R+  0REGA2 

BL8 

83. 

CROGAN  = COSRHQ+  COSGAN 

BL8 

8H. 

CROSGA  = CDSRHO*  S1NSAN 

BL8 

85. 

VDOT  = R0HEG2  » CO5RH0+4  CROSBA-  SIHRHO*  CPSSAHJ 

BL8 

86 

1 - S*  S1NGAH+  <T»  COOAE-  OB*  CDSA-  ORAS)/  H 

BL8 

87 

SO  TO  IAS 

6LB 

88. 

Z 

BL8 

89. 

c 

PRELIP11NARV  CALCULATIONS  FOR  ENTRV  20 

BL8 

90. 

c 

BL8 

91 

301 

VOOTR=OnEGA2*COSRHO*(CROSGA-SlNRHD»CPSGAPO-SH»SlNSAN-(  DBfi.COSA 

BL8 

92 

> +ORAGR)/n 

BL8 

93. 

ROOT  V = S1N6AN 

BL8 

99. 

VDQTV  =-DRA6V/  N 

BL8 

95. 

ROOTS  = V*  COSS AN  ' 

BL8 

96 

VDOTG  = R0NEG2*  COSRHO*<  CROGAR+  SINRHO*  CP5SGA)'  S*  C05GAH 

BLB 

97 

VOOTR  = ROnEGE*  C5RH0  * SINPSI*  COSGAN 

BL8 

98 

VOOTO  i'RODEGE*{  2 *CSHHO  * S1N6AN  + COS2RO.  CPSGAN) 

BL8 

99. 

VOOTN  =-(T»CODAE  - DB*  COS  A - DRAG )/N/fl 

BLB 

100. 

c 

BLB 

101 

c 

PREUN1NARV  CALCULATIONS  FOR  ENTRV  NO 

BL8 

102. 

c 

BLB 

103. 

501 

voott-codae/n 

BL8 

1 OH . 

VDOT  D=T*5 1 DAE/N 

BL8 

L 05 . 

VCOTA=-VDOTD+<  DB*SI NA-0RA6A )/N 

BL8 

106. 

00  TO  160 

BLB 

107 

30 

XK3R=RGR.VDOT+RO*VDOTR  + V115.R6RR.RDDT 

BLB 

108 

XK3V  = V115*R6R*2.15»5IHSAN+RO*VOQTV 

8L8 

109 

XX3G  = V1I5.R6R.RDQT6  + RO»VDOTG 

BL8 

110 

XK3P  = RO*  VOOTP 

BLB 

111 

XK30  = RO.  VOOTO 

BLB 

UZ 

XK3IR  = RO*  VDOTH 

BLB 

113. 

c 

BLB 

11H 

c 

BLB 

115 

50 

XR3T=RC*VD0IT 

BLB 

116. 

XK30  = RO.  VOOTO 

BLB 

117. 

XK3A  = RO.  VDDTA 

BLB 

118. 

c 

BIB 

119. 

c 

CALCULATE  CONSTRAINT 

BL8 

120. 

c 

BLB 

1Z1 

60 

XK3  = V115.R00T.R6R  ♦ RD.VBOT 

BLB 

122 

RETURN 

BLB 

123 

END 

BL8 
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SUBR0UTINE 

BNTG 


BNTG 


Par pose 

BNTG  is  an  executive  routine  that  controls  integration  of  adjoint  system. 

On  the  CDC  computer  overlay  software,  it  is  a program  that  heads  up  an 
overlay,  whereas  on  the  UNIVAC  system  it  is  a subroutine. 

Description 

The  key  aspect  of  the  backward  adjoint  integration  logic  is  that  the  compute 
intervals  are  precisely  matched  to  the  previous  nominal  forward  trajectory 
compute  intervals.  The  integration  is  started  at  the  end  of  each  arc  using  a 
saved  truncated  time  interval  (the  same  truncated  interval  required  to  satisfy 
the  arc  cut-off  on  the  nominal  trajectory).  After  completing  the  interval,  the 
integration  is  restarted  with  the  full  step  size  and  continues  until  the  beginning 
of  the  arc.  This  process  continues  until  the  beginning  of  the  first  arc  where 
the  logic  recognizes  (VII)  that  initial  time  has  been  reached  and  proceeds  to 
terminate  storage  of  adjoint  data  (X). 


I 


FORTRAN 

SVnBOL 


MATH 

SvnBOl 


DESCRIPTION 


S lOflftGg 
BLOLR  LOC 


>UHRiUniNE  USftGE 
bUBR  CODE  VftR 


I Control  Integral  matrix 


* Aerodynamic  reference  area 


trajectory 

I Array  of  arc  end  integration  intervals  for  trial 
trajectory 

PI  Integration  Interval  < £E 


I Integration  interval 


M Arc  number 


I Branching  and  intermediate  constraint  flag 


tl  Phase  n umber 


Id  Phase  number  at  last  derivative  evaluation 


/GENF  /( 

109  ) 

A0E03A 

0 

A 

A01 CB3 

(1 

A 

B GET  3 

0 

A 

BNTG 

I 

A 

BST03 

I 

A 

F1TX3A 

I 

A 

PAV02 

I 

A 

5DINP 

I 

A 

TRAN3 

I 

A 

/ ARCDAT/I 

1 1 

BNTG 

1 

ARCDA 

E0UA3 

I 

5REF 

FNTG 

I 

ARCDA 

FXDAT 

I 

ARCDA 

FXOAT 

0 

I ARCDA 

GEINP 

n 

ARCDA 

S B 1 NP 

I 

ARCDA 

SIZIN 

I 

ARCDA 

S1Z1N 

B 

SREF 

TKRU5T 

I 

SREF 

VT 

I 

SREF 

/GENF  /( 

391) 

BNTG 

I 

DIP 

FNTG 

0 

DIP 

/GENF  /( 

371  ) 

BNTG 

1 

DIS 

FNTG 

0 

DIS 

/GENF  /( 

300  ) 

BNTG 

n 

DT 

FNTG 

n 

DT 

REU3 

I 

DT 

RXT  A3  A 

i 

P 

RKTB3A 

i 

P 

STP3 

i 

DT 

YREF3 

0 

DT 

/ AR  CQAT/< 

5) 

BNTG 

i 

DTNC 

FNTG 

i 

OTNC 

GEINP 

n 

DTNC 

PROP  I N 

I 

DTNC 

/XCODES/I 

196) 

AD1CB3 

I 

1 ARC 

ADI  03 A 

i 

1 ARC 

ADJUST 

i 

I ARC 

A5T3 

i 

I ARC  , 

BNTG 

n 

I ARC 

ENYPRfl 

i 

I ARC 

FNTG 

n 

I ARC 

GETIT 

I 

I ARC 

mOOELA 

I 

I ARC 

PRDPB 

I 

I ARC 

PROPIN 

1 

I ARC 

REU3 

I 

I ARC 

SDINP 

n 

I ARC 

STAU 

I 

I ARC 

S TP  3 

1 

I ARC 

TRTOSZ 

I 

I ARC 

/XC00E5/I 

31  ) 

ADI C3  A 

I 

I NTB 

BNTG 

l 

INTO 

ENVPRfl 

I 

I NTB 

FNTG 

I 

I NTB 

SDINP 

n 

I NTB 

TEST 

i 

I NTB 

TRAN3 

i 

I NTB 

TRTOSZ 

i 

I NTB 

/XCODES/C 

193) 

ADID3A 

i 

1PH 

ADJUST 

i 

IPH 

AST3 

i 

IPH 

BNTG 

n 

IPH 

FNTG 

n 

IPH 

GETIT 

i 

IPH 

GUI3A 

i 

IPH 

SOI  NP 

M 

IPH 

/BNTG  /(* 

) 

BNTG 

u 

IPP 

r?alF>7 
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F0R1NAN  DAIH 

SYilftOL  SYP1BOL 


DESCRIPTION 


5 I DKA6F 
8LQLIC  LOC 


iter 

I 

Iteration  counter 

/XCOOES/C 

148) 

BNTG 

I 

ITCT 

OUT 

I 

ITCT 

TEST 

M 

ITCT 

T DP  n 

PI 

ITCT 

ITT 

U 

Arc  number  at  last  derivative  evaluation 

/BNTG  /(* 

) 

BNTG 

U 

ITT 

JGJO 

I 

Control  option  flag  array 

/XC00E5/< 

33  ) 

BNTG 

I 

JGIO 

FNTG 

I 

J SI  D 

SD1NP 

PI 

JGID 

JG1I 

0 

Co  nt r o 1 opt  I o n 

/XCOOES/C 

195  ) 

ACCEL 

I 

JGII 

BNTG 

0 

JGI  I 

DER3A 

I 

JGII 

FNTG 

PI 

JGII 

GUI  3 A 

I 

JGII 

C10DELA 

I 

JGII 

PIGOELB 

I 

JGII 

P1TX3A 

I 

JGII 

P0Y3A 

1 

JGII 

JK 

1 

Integration  routine  flag  tells  ahich  derivative 

/XCODES/C 

151  ) 

ADI  C3A 

n 

JK 

evaluation  In  Runge-Kutta  cycle 

BNTG 

l 

JK 

PIOOELA 

i 

JK 

PAY02 

m 

JK 

RKTA3A 

pi 

J 

RKTB3A 

n 

J 

JPH 

1 

Phase  cut-off  option  flag 

/ X CO  DES / ( 

72  ) 

BNTG 

i 

JPH 

FNTG 

n 

JPH 

SDINP 

m 

JPH 

JPS 

n 

Absolute  value  of  phase  cut-off  option  code 

/XCODES/C 

152) 

ADID3A 

i 

JPS 

BNTG 

pi 

JPS 

FNTG 

a 

JPS 

STP3 

I 

JPS 

T0L3 

i 

JPS 

JS 

13 

Absolute  value  of  arc  cut-off  option  code 

/XCOOES/C 

153  ) 

ADICB3 

n 

JS 

AOIC3A 

i 

JS 

AOI D3  A 

i 

JS 

BNTG 

pi 

JS 

FNTG 

n 

JS 

PRQPB 

1 

, JS 

PROPIN 

I 

JS 

STP3 

I 

JS 

TOL3 

I 

JS 

JST 

I 

Arc  cut-off  option  flag 

/XCOOES/C 

112) 

ADI CB3 

I 

JST 

BNTG 

I 

JST 

FNTG 

I 

JST 

SDINP 

n 

JST 

KPST 

n 

Controls  logic  for  co»pute  i nte-r  va  1 during  adjoint 

/XCODES/C 

155  ) 

BNTG 

p) 

KPST 

1 nt  e gr  at  I o n 

FNTG 

pi 

KPST 

L 

pi 

Integration  traffic  control  flag 

/XCODES/C 

177) 

BNTG 

n 

L 

L = 1 neans  evaluate  derivatives 

FNTG 

pi 

L 

- 2 check  cut-off 

OUT 

I 

L 

= 3 print  or  cut-off  detected 

RKTA3A 

pi 

L 

RKT83A 

pi 

L 

SDINP 

n 

L 

NS 

0 

Extent  of  integration  set  during  adjoints  on  branch 

/ XCODES/C 

175  ) 

ADE83A 

I 

NB 

pr  o b ! ea 

ADICB3 

pi 

NB 

ADIC3A 

pi 

NB 

BNTG 

a 

NB 

RKTB3A 

i 

NB 

STVRL3 

l 

NB 
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I oh  I fi  an  rn a t h 

SYMBOL  SYMBOL 


DESCRIPTION 


s tqrage  subroutine  usage 

8LO«.k  LOG  SUdn  CODE  VAR 


NCN 

1 

Number  of 

elements  In  d* 

/XC0DE$/< 

160  ) 

ADEQ3A 

1 

NCN 

ADIC83 

1 

NCN 

. 

AD1C3A 

I 

NCN 

A0I03A 

I 

NCN 

ADJU5T 

I 

NCN 

A5T3 

M 

NCN 

BNTG 

I 

NCN 

BST03 

I 

NCN 

MTX3A 

I 

NCN 

OUT 

I 

NCN 

PAYQ2 

n 

NCN 

TEST 

n 

NCN 

TOP  M 

i 

NCN 

TRAN3 

i 

NCN 

TRTOSZ 

l 

NCN 

NICNB 

I 

Number  of 

constraints  at  intermediate  constraint 

/XCDDES/< 

135  ) 

ADI CB3 

i 

NICNB 

point  or 

at  end  of  first  branch 

ADI C3A 

i 

NICNB 

BUT  G 

i 

NICNB 

REU3 

i 

NICNB 

SDlNP 

M 

NICNB 

TEST 

I 

NICNB 

TRAN3 

I 

NICNB 

NPARA 

I 

Number  of 

adjustable  parameters  in  trajectory 

/PAR  AM  /( 

13  > 

ADJUST 

I 

NPARA 

prob I e*. 

BNTG 

I 

NPARA 

FNTG 

1 

NPARA 

MTX3A 

1 

NPARA 

PAY02 

l 

NPARA 

PRMSET 

I 

NPARA 

SOI  NP 

n 

NPARA 

STAU 

I 

NPARA 

TEST 

i 

NPARA 

TOPM 

D 

NPARA 

NPH 

I 

Number  of 

phases  In  tr  aje  ct  or y 

/XCODES/t 

164) 

BNTG 

I 

NPH 

FNTG 

0 

NPH 

PRMSET 

I 

NPH 

SDlNP 

N 

NPH 

TEST 

1 

NPH 

TOPM 

I 

NPH 

NSAB 

I 

Number  of 

arcs  on  first  branch 

/XCOO£5/t 

134) 

AD! CB3 

1 

nsab 

BNTG 

I 

NSAB 

ENVPfiM 

I 

NSAB 

FNTG 

1 

NSAB 

S 01  NP 

n 

NSAB 

TEST 

i 

NSAB 

TRAN3 

i 

NSAB 

TRTOSZ 

i 

NSAB 

NSB 

i 

Number  of 

arcs  prior  to  branch  point  or 

/XCOOES/t 

133  > 

ADI CB3 

i 

NSB 

i ntemedi 

ate  constraint 

BNTG 

i 

NSB 

ENVPfiM 

i 

NSB 

FNTG 

i 

NSB 

REUS 

i 

NSB 

SOI  NP 

n 

NSB 

TEST 

I 

NSB 

TRAN3 

I 

NSB 

TRTOSZ 

1 

NSB 

NST 

I 

Number  of 

arcs  in  tr  aj  ect  ory 

/XC0DES/( 

166  ) 

BNTG 

I 

NST 

FNTG 

0 

N5T 

PFOPB 

i 

NST 

SDlNP 

i 

NS 

SOINP 

n 

NST 

TEST 

I 

NST 

TOPM 

I 

NST 

TRAN3 

I 

NST 
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FORTRAN  NATH 

SYMBOL  SYMBOL 


SVAR 


* U^O 


TIME  X 


TIMPR 

TOP 

TOS 

TPH1 

T ST 
TST1 


TSV 

uoc 


DESCRIPTION 


1 Array  of  state  values  at  initial  problem  tine  Lsd] 


M Time  (elapsed) 


0 Trajectory  print  time 

H Elasped  time  at  phase  initiation 
Elasped  time  at  arc  initiation 

1 Phase  end  times  for  nominal  trajectory 

I Array  of  arc  end  times  on  trial  trajectory  [$d3 
I Arc  end  times  for  nominal  trajectory 


U Time  at  last  derivative  evaluation 

I Array  of  drop  meight  per  arcLsdl  (LBS) 


STORAGE  SUHRQilTlAlg  USAGE 

BlQLK  LOC  SUBR  LODt  VAR 


/GENF 

/( 

7?) 

ADJUST 

0 

SVAR 

BNTG 

I 

SVAR 

FNTG 

I 

SVAR 

PRMSET 

FI 

SVAR 

REU3 

I 

SVAR 

SDINP 

n 

SVAR 

TEST 

I 

5 VAR 

TOPM 

i 

SVAR 

TRTOSI 

i 

SVAR 

/genf 

/{ 

N93  ) 

ADICB3 

0 

T I FIE 

AST3 

i 

Tine 

BNTG 

m 

TI  HE 

C0N3 

i 

TIME 

DTF3 

i 

TIME 

ENVPRM 

i 

TIME 

EO  UA3 

i 

TIME 

FNTG 

s 

TIME 

PIODELA 

i 

TIME 

OUT 

i 

TIME 

PDBC 

i 

TIME 

PROPIN 

i 

TIME 

REU3 

n 

TIME 

KKTA3A 

n 

TT 

RKT83A 

n 

TT 

YREF3 

n 

TIME 

/ GENF 

/{ 

H95) 

BNTG 

0 

TIMPR 

FNTG 

m 

TIMPR 

RXTA3A 

I 

TP 

RKTB3A 

I 

TP 

/GENF 

/( 

320 ) 

BNTG 

n 

TOP 

E9UA3 

i 

TOP 

FNTG 

n 

TOP 

/GENF 

/( 

321) 

BNTG 

n 

TOS 

E9UA3 

I 

TOS 

FNTG 

n 

TOS 

/GENF 

/( 

A13) 

BNTG 

I 

TPH1 

GET1T 

I 

TPH1 

5 D I NP 

0 

TPH1 

TEST 

0 

TP  HI 

TOPM 

I 

TPH1 

/GENF 

/( 

331 ) 

ADICB3 

I 

TST 

BNTG 

I 

TST 

FNTG 

0 

TST 

TEST 

I 

TST 

/GENF 

/( 

H33  > 

BNTG 

I 

TST  1 

GET  J T 

I 

TST1 

PROP  1 N 

I 

TST1 

SDINP 

0 

TST  I 

TEST 

0 

TST  1 

TOPD 

I 

TST  l 

TRAN3 

I 

TST  1 

TRTOSI 

I 

TST  1 

/ BNTG 

/(  * 

) 

BNTG 

u 

TSV 

/GENF 

/( 

30  ) 

BNTG 

I 

UDC 

REU3 

I 

HOC 

SDINP 

n 

WDC 
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1. 

PROGRAM  BNTG 

8NTG 

2- 

C 

COMN 

3 

C 

CONTROLS  INTEGRATION  OF 

ADJOINT  DIFFERENTIAL  1 

EQUATIONS 

CO  MN 

4. 

C 

USES 

TRAFFIC 

FLAG  L FOR 

THE  RUN6E- 

KUTTA  INTEGRATIONS RKUTTB 

COMN 

5. 

c 

WHERE 

L=1  PIEAN5  COMPUTE  DERIVATIVES 

CORN 

6, 

C’ 

L=2 

TEST 

STOPPING  CONDITION 

CORN 

7. 

c 

L=3 

PRINT 

OR  CORNER 

POINT 

CORN 

B 

c 

L=4 

RESTART  INTEGRATION 

COMN 

9. 

c 

XPST  IS 

THE  ARC 

INITIATION 

AND  5TA6ING 

FLAG 

COMN 

10 

c 

=1  FOR  STARTING  ARC 

AT  TRUNCATED 

COMPUTE  INERVAL 

COMN 

11 

common  / xcodes/ 

XCODES 

12 

MTfl  <9] 

l , I COR  l 

2Q),IT1 

, 1NTB 

. JGI  D<  20 

,2),JPH  <20 

r^>. 

XCOOES 

13. 

♦JST  (20) 

.NCNST 

,NSB 

, NSAB 

.NICNB 

t 

XCODES 

14. 

♦ 120P 

,ICOP 

, IFAW 

, 1FAR 

,1FB 

,ind 

XCOOES 

15. 

♦IOPEN 

, IPH 

, ISPH 

, ISST 

,1  ARC 

,ISTART 

XCODES 

16 

• ITCT 

, ITER 

, I VAR 

,JK 

,JPS 

,JS 

XCODES 

17. 

♦ KOP 

,KP$T 

,K 

,*ST 

,NAO 

, NCASE 

XCOOES 

18 

*NCN 

, NECB 

, NEO 

, NOP 

, NPH 

,N 

XCODES 

19 

♦ NST 

, IPST 

, I PR  I NT 

/ISTN 

, I PHN 

,ISTNB 

f 

XCOOES 

20. 

♦IPHHB 

, I BLK 1 

, I BLK2 

,ISTGP 

, I STPP 

,L 

XCOOES 

21. 

* I FOB 

,NB 

,LB 

.P1B 

. NP  HP 

, NPHB 

XCOOES 

22 

♦ NCT  I N 

. NEQF  .1 

LAB!  8 )#  JPRP, 

JGII.MTT.MPIN<20).JPl 

, JP2, JP3 

XCODES 

23. 

COmmon/STS/ 

STS 

24 

♦OP  AY 

, PPIIN 

.WORK  <20  KNUDS 

,IPC 

1 7 ). NITER 

t 

STS 

25. 

♦MNGA(20,2) 

>,MNGP< 20 

,2)  , AR<  200 ) 

. I AD<  20  ) . 1 NP(  20  ),  I SV(  20 ) 

STS 

26. 

COMMON/ ARCDAT/ 

AACDAT 

27 

♦SREF 

,EJ 

,XISP 

,TMULT 

,DTNC 

, DTP  I 

t 

ARCOAT 

28 

♦ I AT  PI 

•inODE 

, J AER 

, JPRO 

,OMAX 

,gmax 

9 

ARCDAT 

29 

♦XLMAX 

HDfiAX 

.GNDOT 

, ALFMAX 

,PHMAX 

,MAEA 

ARCOAT 

30. 

♦MAEB 

,MAEC 

,MAED 

j MAEE 

,MAEF 

,MAEG 

ARCDAT 

31. 

♦ Ml 

,misp 

,MXCG 

,nzc6 

,nUDA 

.MUlDB 

t 

ARCDAT 

32 

♦MDB 

, XC6R 

, ZCGR 

,XE 

,XT 

r 

ARCDAT 

33 

♦DREF 

,F)CNO 

,R«OB 

.finuLT 

#RE«AX 

ARCOAT 

34. 

♦ .FRATE  , 

ARCD<  9) 

RETAP 

35. 

dimension 

ARCDAC40) 

ARCDAT 

36 

EOUlVALENCEt  SHEF  * ARCDA ) 

ARCDAT 

37 

cannoM/SLOBAL/ 

. 

GLOBAL 

38 

*GR 

,ER 

,ORGZ 

, XLAMRF 

.VMURF 

.LOB 

GLOBAL 

39 

♦,JJOP( 10) 

, I FATAL 

, NARC 

. NBR AN 

, NF  ARC 

,1014) 

GLOBAL 

40. 

♦ , KT ABl  20), 

I T AM  20  ) 

.SI  8 ,MA 

XT  Ad 

GLOBAL 

41 

♦ ,6M 

.PSIRF, ! PFLG1 , IPFLCE. IPFLG3 

. IPFLG4  . INEOFL<  20) 

GLOBAL 

42 

* , 1TPS0  . KSOL  . KGLQBU 8 ) 

RETAP 

43- 

COflMON/SEKF/ 

GENF 

44 

♦QMS(  20  ) 

,0MSP<20 

,2),  VAR0(9) 

# TOL(  9 ) 

.SVAR(IO)  ,UDC(ZO) 

GENF 

45. 

♦ A(  9,9) 

ACO N(  9 ) 

,BCON{  9 ) 

,C0TI19,9> 

, OCONt  9 ) 

-DTP 

GENF 

46 

*DTS 

, DT 

,6 

,0P5fl 

fa 

,0S 

GENF 

47. 

♦R 

,RE 

, MUCH 

,PA 

,R0 

,CS 

GENF 

48 

*VNO 

.PAR 

,RQR 

, CSR 

. VNR 

, S UM5Q 

GENF 

49. 

♦ SVSO 

,TIMEP«. 

.TIMES 

, TOP 

, TOS 

, TR<  9 ) 

6ENF 

50 

*TST{ 20 ) 

,TPH  ( 20  ), DIS! 20 ) 

, DI P£  20  ) 

,T 

6ENF 

51 

♦TLPl<  20) 

, TLS1  <20>,DIP1(20) 

, DISK  20  ) 

.TIME 

,'OMP 

GENF 

52 

♦TinPR 

,LIFT 

.DRAG 

,TAX 

.TBURN 

,TBU<  20) 

GENF 

53. 

* AE 

,FP 

, FPOLD 

, FPO 

, MACHR 

,MACHV 

GENF 

54. 

♦ OR 

,0V 

, F VAC 

, LIFTV 

GENF 

55 

♦LI FTR 

,LIFTA 

DRAGV 

, DR AGR 

.DRAGA 

GENF 

56 

♦ 

L1FTP1 

,DBR 

,0B 

,ISP 

, 1 SPF 

GENF 

57. 

♦ 

ULFT 

,ULFT V 

ULFTR 

, ULFT  A 

GENF 

58. 

♦ XMCG 

, XflCGV 

, XMCGR 

,XMCGA 

XMCGM 

.CODAE 

GENF 

59. 

♦CULFT 

,CT 

, CALPHA 

,CDE 

, DELTAS 

,510 

GENF 

60. 

♦ COD 

.SIDAE 

, XCG 

,zcs 

r X J 

GENF 

61. 

COMMON  / GfcNF  / 

GENF 

62 

♦ XJV 

, XJR 

,GH 

, GAMMAD 

t XKG 

, XKP 

GENF 

63. 

•frated 

IRftTEO 

GENF 

64 

*P1 

,P2 

>3 

, XKl 

, XK2 

, XK3 

GENF 

65 

♦ XKIT 

, XK2T 

, XK3T 

,XK1D 

. XK2D 

,XK3D 

GENF 

66 

♦ XK1A 

, XK2A 

, XK3  A 

,XK  1 V 

, XK2V 

, XK3V 

GENF 

67 

♦ XX1G 

,XK2G 

, XK3G 

, XK  IP 

, XK2P 

, XX3P 

GENF 

6 8 

♦ XKlfl 

, XK2R 

, XK3R 

, XK  10 

, XK20 

, XK30 

GENF 

69 

♦ XK1U 

, XK20 

, XK3U 

,XKin 

XK2M 

,XK3M 

GENF 

70 

♦ PV 

>6 

,PP 

.PR 

,P0 

,0P0V<3 J 

8)  ' 

GENF 

71. 

real  LIFTR  , LIFT 

, LIFT  A LIFTH  , 

MACH 

, MACHR, 

GENF 

72. 

♦ ISP.  I5PF 

. rtACHV . 

LIFTV  . IRATED 

FRAT 

73 

DIMENSION  TPHK 10) 

.TSTKiO) 

GENF 

74 

£0  JI  VALENCE!  TLP 1. TPH1  MTLS1.TST1) 

GENF 

75- 

COnPJDN/DATA/ 

DATA 
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76. 

♦PI  ,RAD  t RD1  ,SC  #UrtF 

, DATA 

77 

♦ FTNM  , CAR  ,J0P1  fJ0P2  ,J0P3  ,J0P9 

DATA 

7 8 

CO  PinO  N /PAR  AH/ 

PARAM 

79. 

♦lPOINlt 12).NPARA,NPA  .5PARA(9, 12),UTP0  (9>,UTP  (12), 

PAR  Aft 

80 

♦ $P  ARB(  9.12)  , PARAU2).DPARl  12)  ,$2INV(9,9) 

PAR  AM 

81  . 

*,0ELP(9l 

PAR  Afl 

82 

EQUIVAUNCEl  1KEQFL<  20).  IKOF) 

NOS 

83. 

EQUIVALENCE  ( I NEDS, I LA&( 2 )> 

APR2T 

89. 

C 

THIS  PROGRAM  DOES  THE  INTEGRATION  OF  THE  ADJOINT  SOLUTION 

BNTG 

85. 

C 

COMM 

86 

c 

I I NIT1 ALl ZAT 1 ON 

COMM 

87 

I ARC-  WST 

BNTG 

88 

I PH  = NPH 

BNTG 

89 

TIME  = TSTt I ARC) 

BNTG 

90. 

TOS  = TST1UARC) 

BNTG 

91. 

TOP  =s  TPHHIPH) 

BNTG 

92. 

c 

CALCULATE  COMP  INTERVAL 

BNTG 

93. 

OT  =“D1SIN5T> 

BNTG 

99. 

CALL  IPflt9HITCT,A,lTCT,l,n 

BNTG 

95. 

KP  ST  =1 

BNTG 

96 

c 

1 — A SET  FLAG  TO  START  ARC  AT  TRUNCATED  INTERVAL 

COHN 

97. 

JS=I ABS( JST(NST-1 )) 

BNTG 

98 

JGIl-JGIOl  NPH.2) 

BNTG 

99. 

c 

1-8  GET  DATA  FOR  ARC 

COHN 

100. 

CALL  REAOMS< 9, ARC0A,5 1, 1 ARC) 

FRAT 

101 

JPS-I ABS( JPH( NPH-1  ,2 ) > 

BNTG 

102. 

L=9 

BNTG 

103 

TinPR=-l ,E6 

BNTG 

109 

c 

I-C  INITIALIZE  ARC  INFCfi  AND  STORAGE  RETRIEVAL 

CONN 

105. 

CALL  PROPB 

PO 1 9 

106. 

CALL  8EGNA 

BNTG 

107. 

CALL  BEGNB 

BNTG 

108. 

c 

COMM 

109 

c 

11  INTEGRATION  SUBROUTINE  RKUTTB 

COHN 

no 

10  CALL  RKUTTB 

BNTG 

111. 

SO  ID  (20, 50, 170), L 

BNTG 

20  — 

112. 

c 

COHN 

113. 

c 

III 

COHN 

119. 

c 

CALCULATE  ADJOINT  DERIVATIVES 

BNTG 

115 

c 

III  -A  SUP  DERI  V CALC  AT  DUPLICATE  TIflE  POINT 

CORN 

116 

c 

EXCEPT  AT  STAGE  CHANGE 

COMM 

117 

20  IFtTIrtE  EQ  TSV.ANO  ITT .£0. I ARC. AND.IPP .£0  IPH)  GO  TO  30 

BNTG 

1o— 

118 

c 

COMM 

119. 

c 

III-B  PARTIAL  DERIVATIVES 

COMM 

120 

CALL  MODEL 

BNTG 

121 

TSV  ~ TINE 

BNTG 

122. 

itt=iarc 

BNTG 

123 

IPP  — 1 PH 

BHTG 

129. 

c 

COMN 

125 

c 

1 1 I-C  SPECIAL  ADJOINT  DERIVATIVE  WITH  REFINED 

COMN 

126 

c 

ESTIMATE  OF  IMPULSE  RESPONSE  FUNCTIONS 

COMN 

127. 

30  IFOiUNE.3)  GO  TO  90 

BNTG 

90  — 

128. 

CALL  SNSADJ 

BNTG 

129. 

GO  TO  10 

BNTG 

130. 

90  CALL  ADEQ 

BNTG 

131 

c 

COMN 

132 

c 

III  — D ADJOINT  DERIVATIVES  AND  A MATRIX  INTEGRANDS 

COMN 

133 

GO  TO  10 

BNTG 

139. 

50  CONTINUE 

BNTG 

135. 

c 

COHN 

136 

c 

IV  »**  *** 

COMN 

137 

c 

TEST  FOR  STAGING  CONDITIONS 

BNTG 

138. 

GC  TO  ( 60,70,80, 90,160,160, 160), KPST 

BNTG 

60— | 

139. 

60  KPST  =2 

BNTG 

190 

c 

1 V— A TRUNCATEO  INTERVAL  HAS  STARTED 

COMN 

191. 

GO  TO  160 

BNTG 

192 

c 

CORN 

193. 

c 

IV-B  TRUNCATED  INTERVAL  FINISHED  START  FIXEO  INTERVAL 

COMN 

199. 

70  KPST  =3 

BNTG 

195- 

L=9 

BNTG 

196. 

DT  =-OTNC 

BNTG 

197. 

GO  TO  160 

BNTG 

9 0- 

160“ 

160- 

160- 

10- 
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SET  FLAG  TO  DIRECT  T0WARO  CUT-OFF  TESTING 


80  KPST  = *1 
80  TO  10 
V *** 

NORMAL  LOGIC  FOR  STAGING  FOLLOWS 


90  I FI  ABS(TinE  +OT-TOS  ) 


6T  1 £-5)  GO  TO  110 


V-A  ARC  INITIAL  POINT  SET  INTEGRATION  RESTART  TIHE 
100  KP5T  = 5 
TINPR  - TOS 
CHECK  FOR  PHASING 


110  IF<ABS(TINE  +BT  - TOP 


) 9T  l.E-5)  GO  TO  160 


V-B  PHASE  INITIAL  POINT 

TEST  FOR  CONCURRENT  STAGING 
tF( KP5T  EO  5)  60  TO  130 

120  KPST  = 6 

TINPfi  = TOP 
GO  TO  160 

COMBINED  STAGING  AND  PHASING 

130  IF  ( AB$l TOP-TOS >.LI ,1 .£-*5 ) 60  TO  150 

IF  t TOP  -TOS)  120, 150, HO 

190  KPST  = 5 
TIHPR=  TOS 

SO  TO  160 

150  KPST  = 7 

TIUPR  -TOS 

160  CONTINUE 
CALL  BSTO 


VI  STORE 
SO  TO  10 
170  CONTINUE 


ADJOINT  DATA 


VII  TEST  FOR  END  OF  INTEGRATION  YES  GO  TO  X 
ELSE  RESTART  FOR  NEXT  ARC  AT  IX 
I F<  ABSl TI NE-SVARt  1 1KLE-1  -E-5 1 GO  TO  390 
IFUPST-6)  180,270,180 

180  CONTINUE 

VII-A  BRANCHING  AND  INTERMEDIATE  CONSTRAINT  TEST 

IF< INTB-1  ) 190.210,280 
NO  BRANCH  OR  CONST. 

VI 1 -B  T 1 PIED  ftAC  , IF  SO  SKIP  APJOINT  JUWPS 

190  IFtJS  LT  3 > GO  TO  200 

VII-C  ADJOINT  OISCQH  JIMP 

IF  INE0UAL1TY  CUTTOFF  HAS  HOT  BEEN  REACHED 
TREAT  AS  A TIMED  ARC  ( 1 NEDS  FLA6  HON-IERO) 

!F< I NEDS  NE.O)  GO  TO  350 
CALL  ADIDS(l) 

CALL  STVARLl 1 ,NCW> 

INT  CONST  LOGIC 
SO  TO  350 

COMUTE  STAGING  TIME  SENSITIVITY 

200  CONTINUE/'* 

PRINT  ARC  TIKES 
CALL  1 Pfl( 9HT I ME  .TIME.I.1,0) 

IF(U)DCCIARC-I)  NE  -99999999.)  GO  TO  205 
CALL  AOJUMPO,NCH> 

CALL  5TVABU 1 ,NCN) 

205  CONTINUE 

IFINPARA  GT  0)  CALL  STAU(1,NCM> 

GO  TO  350 

VIII INTERMEDIATE  CONSTRAINT  ABC  TEST 

210  I F<  IARC-1-NSB)  190,220,290 


BNTG  160- 

CONN 

CONN 

CORN 

BNTG  130- 


BNTG  150 1 

BNTG  1 90— 1 150—1 120- 


BNTG 

COON 

CONN 

COMM 

BNTG  390 

BMT  6 180— 1270- 

GNT6 

CONN 

CONN 

BNTG  210 1 

BNTG 

conn  | 
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216 

217 

C 

C 

Vlll-A  INTRODUCE  AND  INITIALIZE  4EU  ADJOINT 

SET 

CORN 

COfIN 

218 

220 

CALL  fiDICB 

BNTG 

219. 

C 

VI1I-B  ADJOINT  JUMP  ♦ STAGING 

TIME 

SENSITIVITY 

LOGIC 

conN 

220 

C 

FOR  BOH  I NT.  CONST.  AND 

BRANCH  TRUNX 

CO  PIN 

221  . 

I Ft JS.LT.37  GO  TO  230 

BNTG 

222 

CALL  AOlDSt NICNB+1 ) 

BNTG 

223. 

CALL  STVARLt 1.NCN1 

BNTG 

224 

GO  TO  350 

BNTG 

225 

230 

CALL  STVARLt l.NCN) 

BNTG 

226 

IFt NPARA.GT.O)  CALL  STAUt  l.NCN) 

BNTG 

227 

GO  TO  350 

BNTG 

228 

240 

lftJS-LT.3)  GO  TO  260 

BNTG 

229 

CALL  AOlDSt  NICNB  + 1) 

BNTG 

230 

250 

CALL  STVARLt NICNB+1 , NCN  > 

BNTG 

231 

GO  TO  350 

- 

BNTG 

232 

260 

CALL  STVARLt NICNB+1, NCN1 

BNTG 

233 

1ft NPARA.GT.O)  CALL  STAUt NICNB  +1, 

»«> 

BNTG 

234 

GO  TO  350 

BNTG 

235 

270 

IFtJPS.LT  3)  60  TO  360 

BNTG 

236 

CALL  ADIDPC  l » 

BNTG 

237 

CALL  STVARLt l,NCtt) 

BNTG 

238 . 

GO  TO  360 

BNTG 

239 

260 

I Ft  I ABC-l-C N$ AB+NSB 1 1300,290.240 

BNTG 

240 

c 

AT  BRANCHING  POINT  FROM  SEGMENT 

III 

BNT6 

241 

290 

CALL  ADI3B 

BNTG 

242. 

CALL  STVARLt i.MICNftl 

BNTG 

243 

GO  TO  350 

BNTG 

244 

300 

l Ft  I ARC-1— NSB ) 190,310,320 

BNTG 

245 

c 

AT  BRANCHING  PT  FROfl  SE6AENT  11 

BNTG 

246. 

310 

NB  =1 

BNTG 

247 

c 

RESTORE  BRANCH  ELEMENT  IN  A HATfllX 

BNTG 

248. 

CALL  ADI2B 

BNTG 

249. 

GO  TO  190 

BNTG 

250 

c 

I*  SEGMENT  II 

BNTG 

251 

320 

1 Ft JS . LT. 3 ) 60  TO  340 

BNTG 

2 52 

CALL  AOIOSSt NlCNB) 

BNTG 

253. 

330 

CALL  STVARLt 1.4ICNB) 

BNTG 

254 

GO  TO  350 

BNTG 

255 

340 

CALL  STVARLt 1,MICN&> 

BNT6 

256 

1FINPARA  GT  0)  CALL  STAUt 1 ,NIC*B> 

BNTG 

257.- 

c 

COHN 

258 

c 

IX  INITIALIZE  OATA  FOR  NEXT 

ARC 

AND 

RESET 

L AND 

KPST 

COMM 

259 

350 

t ARC— I ARC-1 

BNTG 

260 

c 

CALCULATE  DT 

BNTG 

261 

DT  =-D!5t  1 ARC1 

BNTG 

262. 

CALL  READHSt 9 . ARCDA, 51, I ARC) 

FRAT 

263. 

JS-IAB5t JSTtlARC-1)) 

- 

APR2T 

264 

CALL  PROPB 

BNTG 

265 

T0S=T5T1(  I ARC) 

BNTG 

266 

1F<  KP5T-6)  380.360,370 

BNTG 

267 

c 

CALCULATE  DT 

BNTG 

266 

360 

DT  --OIPI IPH-1 ) 

BNTG 

269. 

310 

IPH  =IPH-I 

BNTG 

270 

JPS=1ABS( JPHt IPH-1, 2)) 

BNTG 

271 

JSII=J6ID( IPH, 2) 

BNTG 

272 

TQP=TPH)(  IPH) 

BNTG 

273. 

380 

CONTINUE 

BNTG 

274 

KP5T  -l 

BNTG 

275. 

T1HPR  " -1.E6 

BNT6 

276 

L=4 

BNTG 

277 

GO  TO  10 

BNTG 

278 

390 

CONTINUE 

BNTG 

279. 

c 

COrtN 

280. 

c 

X COMPUTE  IC  SENSITIVITY 

AND 

TERMINATE 

OATA  STORAGE 

CORN 

201. 

I Ft  NPARA.GT.O)  CALL  51NIT(1,NCN) 

BNTG 

282 

CALL  ENO& 

BNTG 

fcro*— 1 3 1j  0“i  1 4 0 


1 


350- 

350- 

35C- 
350—i  I 


360- 

360- 


3 


TTS^Tzon 


’ho — r 


3 50- 


1S0- 


350- 


3 70 — | 3 80— « 


3 


360- 


MO 
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SUBR0UT INE 
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Subroutine  BST03 


Purpose 

BST03  handles  the  storage  of  the  adjoint  data  first  in  a dynamic  buffer,  Z, 
and  when  this  buffer  is  filled,  it  dumps  the  buffer  onto  random  storage 
file  41. 

This  subroutine  also  has  an  entry  point  SNSADJ  which  refines  the  impulse 
response  function,  A J,  estimate  at  mid-integration  interval  before 
storing. 

Description 

The  order  of  storage  of  information  at  each  adjoint -solution  time  point  in  the 
Z buffer  is  listed  below. 

1.  The  adjoint  variable  X.  J matrix  is  stored.  Each  column  in  this 
matrix  corresponds  to  a different  constraint,  each  row  corre- 
sponds to  an  element  m the  state  vector. 

2.  The  impulse  response  function  vectors  are  stored.  These  vectors, 
XLAMA  and  XLAMP  contain  an  element  for  each  element  in  the  d\& 

• i 

vector. 

3.  The  upper  triangular  portion  of  the  A matrix  is  stored. — Only  this 
part  is  needed  since  A is  a symmetric  matrix. 
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7 OK  III  AN 
Symbol 

MAI  H 
SYMBOL 

CODE 

DESCRIPTION 

STORAGE 

SUDfiOtJHNE  USAGE 

BLOCK 

LOC 

SU8R  l 

COOt  VAR 

A 

A 

1 

Control  Intcgril  aatrix 

/GENF  n 

101  > 

AOE03A 

0 

A 

ADI CB3 

n 

A 

BGET3 

0 

A 

BNTG 

I 

A 

?ST03 

1 

A 

MTX3A 

I 

A 

PAY02 

1 

A 

S 0 I NP 

I 

A 

TRAN3 

I 

A 

IBLK1 

m 

Storage  retrieval  buffer  counter 

/XCOOES/C 

173  > 

AST3 

n 

IBLK1 

BST03 

n 

IBLK1 

I BUFB 

m 

Counts  nuftber  of  buffers  of  adjoint  data  that  have 

/RETREV/f 

20  ) 

BGET3 

M 

1 BUFB 

either  been  stored  or  retrieved  as  solution 

BST03 

n 

I BUFB 

progress* 

IFB 

i 

File  aihere  adjoint  solution  is  stored 

/XC00ES7C 

1R0) 

BGET3 

i 

IFB 

BST03 

i 

IFB 

TOPD 

0 

IFB 

MAXB 

n 

Number  of  oords  in  last  stored  partial  buffer  of 

/RETREV/< 

5 ) 

BGET3 

I 

MAXB 

adjoint  data  Corresponds  to  randos  file  *11. 

BST03 

11 

MAXB 

MIXB 

I 

Flaxi  >ui  number  of  oords  in  adjoint  data  buffer  = 

/RETREV/< 

13  ) 

BGET3 

I 

MIXB 

3000. 

BST03 

I 

Ml  XB 

SOI  NP 

1 

MIXB 

TOPD 

0 

MIXB 

MXB 

i 

Indee  of  last  stored  »ord  in  full  buffer  of  adjoint 

7RETREV/C 

15  ) 

BGET3 

I 

MXB 

data. 

6ST03 

I 

MXB 

SDINP 

0 

MXB 

NBFB 

l 

maxittu*  number  of  buffers  per*ltted  to  store 

/RETREV/l 

1 1 ) 

BSTQ3 

1 

NBFB 

adjoint  solution  data  = 60. 

TORN 

D 

NBFB 

NBUFB 

0 

Nunber  of  buffers  of  adjoint  data  stored  on  last 

/RETREV/( 

10) 

BGET3 

1 

NBUFB 

adjoint  solution. 

BST03 

0 

NBUFB 

NCN 

i 

Nuaber  of  elements  in  df 

/XC0DES/( 

160) 

ADEQ3A 

i 

NCN 

ADI  CBS 

I 

NCN 

AD1C3A 

1 

NCN 

A0103A 

I 

NCN 

ADJUST 

1 

NCN 

AST3 

n 

NCN 

BNTG 

i 

NCN 

BST33 

i 

NCN 

MTX3A 

i 

NCN 

OUT 

i 

NCN 

PAY02 

n 

NCN 

TEST 

M 

NCN 

TOPn 

I 

NCN 

TRAN3 

I 

NCN 

TRTOSZ 

I 

NCN 

NCNST 

n 

i 

Number  of  problen  constraints 

/ XC00E5/( 

132) 

BGET3 

1 

NCNST 

BST33 

I 

NCNST 

CON3 

I 

NCNST 

PAY02 

I 

NCNST 

SDINP 

n 

NCNST 

SUMS 

i 

NCNST 

TEST 

i 

NCNST 

TOPn 

i 

NCNST 

TRAN3 

i 

NCNST 
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NEO 


XL 


XLAA 

XLAPIA 

XLAP1P 

X LAP 
Z 


f,f) 


I 

Number  of  Integrated  state* 

/XC0DE$/< 

162) 

ADICB3 

I 

NEO 

AOI C3A 

I 

NEB 

ADI D3A 

I 

NEB 

AGETB3 

I 

NEB 

AS  T 3 

I 

NEB 

■ 

BGET3 

I 

NEB 

BST03 

I 

NEB 

PIT  X 3A 

I 

NEB 

OUT 

I 

NEB 

REU3 

I 

NEB 

SDER3 

I 

NEQ 

SOI  NP 

n 

NEB 

TOP  n 

i 

NEQ 

TRAN3 

i 

NEQ 

VREF3 

i 

NEQ 

I 

Matrix  of  adjoint  variables 

/STATE3/< 

246) 

AOEQ3A 

n 

XL 

AOI CB3 

R 

XL 

AOI C3A 

n 

XL 

ADID3A 

n 

XL 

AST  3 

n) 

XL 

BGET3 

0 

XL 

BST03 

I 

XL 

MTX3A 

I 

XL 

OUT 

I 

XL 

STAU 

B 

XL 

STVRL3 

I 

XL 

TRAN3 

n 

XL 

u 

Temporary  storage  used  for  estlaate  of  midpoint 
inpulse  response  function 

/BST03  /<* 

1 

BS703 

u 

XLAA 

n 

Inpulse  response  function  cotunn  vector  associated 

/ AEC03  /( 

16) 

ADE03A 

B 

XLAPIA 

«ith  angle  of  attack 

A01C3A 

0 

XL  ABA 

AST3 

0 

XLAPIA 

BGET3 

0 

XLAPIA 

BST03 

R 

KLARA 

HTX3A 

I 

X LADA 

TRAN3 

n 

XLAPIA 

n 

Inpulse  response  function  colons  vector  associated 

/ AEC03  /( 

25) 

ADEQ3A 

n 

XLAP1P 

tilth  bank  angle 

A0IC3A 

0 

XLAP1P 

AST3 

0 

XLAITP 

BGET3 

0 

XLAP1P 

BST03 

B 

XLARP 

MTX3A 

I 

XLAP1P 

TRAN3 

M 

XLAP1P 

Id 

Temporary  storage  used  for  estimate  of  midpoint 

/BST03  /!» 

> 

SST03 

U 

XLAP 

impulse  response  function 

U 

Adjoint  storage  buffer 

/BST03  /[* 

) 

BST03 

61 

Z 
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BST03 


1. 

SUBROUTINE  BST03 

85T03 

2.  C 

STORE  ADJOINT 

OATA  AT  EACH  TI«E  POINT 

conn 

3-  C 

CO  PIN 

4 

OlnEKSION  XLAA(9>. 

XLAPl 9 ) 

BSTG3 

5. 

CO  rmON/ RETREV/  FTlftE.BTlRE.nAXAt 2>.rtAXB 

RETREV 

6. 

COnnON/RETREV/ 

RETREV 

7 

♦ NBUFAt  2) 

, IBUF1 

, IBUF2 

, NBF  A 

. NBF 6 

. PUXA 

, RETREV 

8. 

*nm 

,HXA 

,nx  B 

/NPTA 

/NPTB 

, I BLXB 

RETREV 

9. 

10 

+.HBUFB  .IBUFB 

C0«n0N/5TATE3/ 

RETREV 

STATE30 

n. 

♦ VAR( 14) 

,DVAR  ( l4),VAftL  t99> 

. DV  ARLC  99  > 

, YQt  9 ) 

,S VYt 1C) 

, STATE3B 

12. 

♦ XLt  9, 9 ) 
♦SINPSI 

,YOP( 20,9  ), YDS  <20,9). 

, COS  SAB 

.SI nsab 

.SAVBPt 15  ) 

. STATE3D 

13. 

,COSPSI 

,51  NR  HO 

, COSRttO 

,QC0RH3 

,0C0R02 

, STATE30 

14 

♦svav  ( 

9 ) , 0 HE  G A 

,0MESA2 

, 

STATE3D 

15. 

♦vov 

,6DV 

.RDV 

i HDV 

.PDV 

,oov 

. STATE3D 

16. 

♦ UDV 

, VDG 

,GOG 

,ROS 

,PDS 

,006 

, STATE3D 

17. 

♦ UDG 

,VDR 

,GDR 

,WOR 

,POR 

,ODR 

, STATE30 

18. 

♦ UDR 

,VDR 

,60« 

,rton 

.PDPJ- 

VDP 

, STATE30 

19. 

♦GDP 

,POP 

.OOP 

,UDP 

, VDO 

,600 

, STATE3D 

20 

♦POO 

, UDG 

,HTOV 

f HTDR 

STATE30 

21. 

REAL  ROJH 

, flov,  non 

STATE30 

22. 

C0rm0^/STATE3/ 

STATE3D 

23. 

♦S1N2R0 

. C052RQ 

, C0S2SH 

STATE3D 

24. 

COrtflQN  / 

XCODES/ 

XCODES 

25 

♦HQ  ( 9 ),  I COR  ( 20 ) _ ITI 

,1NTB 

, JGI Ot  20, 

2 ) , JPH  (20.2),  XCODES 

26. 

♦JST  l 20) 

, NCNST 

,NSB 

,NSAB 

, Nl CNB 

, XCODES 

27. 

♦ I20P 

,ICOP 

, IF  Ay 

,IFAR 

, IFB 

,IND 

, XCODES 

28 

♦IOPEN 

, IPH 

# ISPH 

, I SST 

, I ARC 

I START 

, XCODES 

29. 

*ITCT 

.ITER 

,IVAR 

,JP$ 

,JS 

, XCODES 

30. 

♦XOP 

, XPST 

,X 

, XST 

r NAD 

.fiCASE 

, XCODES 

31. 

♦ HCN 

,NEQB 

,NEO 

/NOP 

, HPH 

, XCODES 

32. 

♦ NST 

, 1PST 

. IPRINT 

, ISTN 

, I PHN 

,ISTNB 

, XCODES 

33. 

♦IPHNB 

,IBLK1 

, 1BLK2 

,1ST0P 

, ISTPP 

, XCODES 

34 

♦IFOB 

,N8 

.LB 

.HPH? 

,NPHB 

, XCODES 

35. 

♦NCTIN 

, NEQF  , lLABt  8>,JPRP,JG1I  . PITT  . HP1N( 20 ) , JPl . 

JP2,JP3 

XCODES 

36. 

COnnON/AEC03/ 

AEC03 

37. 

* AP  HO 

fiPHR 

, ALPHA 

, VOA 

, GOA 

.PDA 

, AECQ3 

38. 

♦ SlNA 

, COS  A 

.PHIO 

,PHID 

,PHI 

,SI NPHI 

, AEC03 

39 

♦CGSPHJ 

,6DPH 

,P0PH 

, XLAtnAt  9 ) 

. XLAflP{9  ) 

,C00 

, AEC03 

40 

♦coon 

,CLO 

'FR 

/ XCGfi 

,zcsn 

,cloh 

, AEC03 

41. 

*c  n 

,C*A 

.coab  .can 

,CHO 

,CROft 

,FX* 

, AEC03 

42. 

♦CLAN 

. CL 

, CLA 

,CL« 

9 

AEC03 

43 

44. 

♦CD  CO A 

C0flnQN/6ENF/ 

.COB 

AEC03 

GENF 

45. 

♦ORQt  20  > 

,0t1fiP(2O. 

2).  VARQl  9 ) 

/TOL<  9 ) 

.SVARt 10) 

,UDC( 20) 

, GENF 

46. 

♦ At  9.9  ) 

ACONt 9 ) 

. BCONt  9 I 

> COT  It  9,91 

DCONt  9 > 

, DTP 

, GENF 

47 

♦ OTS 

,DT 

,6 

,OPSQ 

,0 

QS 

, GENF 

48. 

♦ R 

,RE 

.bach 

/PA 

,R0 

,c$ 

, 6ENF 

49. 

♦ VHU 

,PAR 

,RQR 

*CSR 

, VNR 

,sunso 

, GENF 

50. 

♦svsa 

.TIrtEPH 

, T I BES 

,TOP 

;tos 

,TR( 9 ) 

, GENF 

51. 

♦ TSTt 20  ) 

,TPH  ( 20 1 r DISC  20  ) 

, DIP( 20) 

,T 

, W 

, GENF 

52. 

♦ TLPK20  ) 

,TLS)  ( 20). DIF  1(20  I 

»DIS It  20 1 

, TIKE 

.OHP 

, GENF 

53. 

♦TlPlPfi 

.LIFT 

.DRAG 

,TAX 

,TBURN 

,TBUt  20 ) 

, GENF 

54. 

♦ AE 

,FP 

.FPOLD 

,FPD 

#HACHR 

, fiachv 

, GENF 

55 

♦OR 

,0V 

,FVAC 

/LIFTV 

GENF 

56 

♦L1FTR 

, LIFTA 

DRA6V 

, OR AGR 

, 0RA6A 

, GENF 

57. 

■* 

LIFTB 

'ORR 

,0B 

,ISP 

JSPF 

, GENF 

58. 

♦ 

ULFT 

, ULFTV 

ULFTR 

, ULFT A 

, GENF 

59. 

♦Xrtcs 

.XMC6V 

, XnCGR 

, XrtCGA 

, xucsb 

, COOAE 

, GENF 

60. 

♦CULFT 

,CT 

.CALPHA 

, CDE 

.DElTAE 

,S1D 

, GENF 

61. 

♦ COD 

, S I DAE 

,XCG 

, ZCG 

;xj 

6ENF 

62. 

CQrtRON  / 

GENF  / 

GENF 

63. 

♦XJV 

,XJH 

-IRATEO 

,GH 

, SARWAD 

xxs 

,XXP 

, GENF 

64. 

♦PRATED 

GENF 

65 

♦ PI 

,pz 

>3 

, XK1 

,XX2 

. XK3 

, GENF 

66. 

♦ XKlT 

,XK2T 

,XK3T 

, Xltl D 

, XK2D 

XX3D 

, GENF 

67. 

♦ XX1A 

, XK20 

, XK3A 

, XXIV 

. XX2V 

, XX3V 

, 6ENF 

68 

♦XX1G 

, XK25 

, XK3B 

,XX1P 

XX2P 

. XX3P 

, GENF 

69 

♦XK1R 

,XK2a 

, XK3B 

, XK10 

, XX20 

. XX30 

, GENF 

70. 

♦ XK1U 

, XX2U 

,XX3U 

,xxin 

,XX2A 

, XX3M 

, GENF 

71. 

*PV 

,PG 

FTR  , LIFT 

.PP 

.PR 

,P0 

,OPDYt  3,8 1 

GENF 

72. 

REAL  LI 

. LIFTA. LiFTfi  . 

flACH, 

BACHR, 

GENF 

73 

* I5P.  ISPF.  nACHV.LlFTV  . 1 RATED 

FRAT 

74. 

DI BEN5I0N  TPHltlO)  TSTlt 101 

6ENF 

75 

EQUIVALENCE! TLP1 , TPH1),(TLS1,TST1 > 

GENF 
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DIMENSION  2( 3COO  > 

I INITIALIZE  COUNTERS 
ENTRY  BEGNB 

KK=  HCNST+1 
IBLK1=0 
IBUFB  =0 
RETURN 

II  TERMINATE  STORASE  IF  PARTIAL  BUFFER.  DUMP  BUFFER 
ENTRY  ENOB 

MAXB  = IBLK1 

CALL  IPR(2HXL,XL.I,9*NCN,0> 

IFCnAXB.NE.O  ISO  TO  10 

maxb=mxb 
NBUFB=  IBUFB 
RETURN 


90  IBUFB  =IBUFB  +1 

1F(  IBUFB. 6T  NBFB  ) CALL  STPIT(IFB) 

CALL  URlTMSt IFB,Z,ni XB.1BUFB) 

I BLR 1=0 
RETURN 

V SPECIAL  CODE  TO  REFINE  MIDPOINT 
FUNCTION  AND  STORE  DATA 
ENTRY  SNSAOJ 
00  100  Isl.NCN 
X LAAC I >=XLAMA(  I > 

100  XLAP(  I >=XLAMPO) 

CALL  ADEO 
00  HO  Isl.NCN 

XLAP1AC  1 )=(  XLAHAt  1 1 + XLAAt  I ) )*.5 
110  XLAMP(  I )=C  XLAMPU  }+XLAP(I  ))*-5 
GO  TO  20 
END 


IMPULSE-RESPONSE 


BST03 

COMN 

CO  MW 

6MQ3 

BST03 

BST03 

6ST03 

B5T03 

COMN 

COMN 

BSTQ3 

BSTQ3 

BST03 

BST03  10- 
BST03 
6ST03 
BST03 


93. 

10 

NBUFB  = IBUFB  +1 

B5T03 

■* 

94. 

60  TO  90 

B5703 

90  — 

95 

c 

COMM 

96. 

C 

m STOHE  ORTA  IN  BUFFER 

COMN 

97 

ENTRY  BSTO 

B5T03 

98. 

20 

CONTINUE 

B5t03 

99. 

DO  HO  1=1, « 

BST03 

100 

00  30  J=1  NEC 

6ST03 

101 

IBUC1  =IBLK1+1 

BST03 

102 

30 

Z(IBLK1>=  XL(  J,1 ) 

B5T03 

103. 

40 

CONTINUE 

BST03 

104. 

DO  50  1*1. KK 

BST33 

105. 

I8LK1=1BUC1*1 

BST03 

106 

50 

Z( 1BLK1 ) = XLAMAtl ) 

BST03 

107. 

DO  60  1=1,  ICK 

BSTD3 

108 

1BLK1  =IBL«1  +1 

B5TQ3 

109 . 

60 

Z( IBLK1  )S  XLAMPt 1 > 

BST03 

no. 

DO  80  JJ=1,KX 

BST03 

Ill 

DO  70  K1=1.JJ 

BST03 

112 

I BLX1=  IBLKl+l 

BST03 

113 

70 

Z< IBLK1  )=  A( XI ,JJ ) 

BST03 

114 

80 

CONTINUE 

BST03 

115 

C 

COMN 

116. 

c 

IV  IF  BUFFER  full.ounp  BUFFER  ,else  RETURN 

COMN 

117. 

lFtIBLItl.6E.nXB>  SO  TO  90 

BST33 

90 — ' 

118 

RETURN 

B5T03 

BST03 

BST03 

BST03 

BST03 

BST03 

COMN 

COMN 

COMM- 

BST03 

BSTD3 

BST03 

BST03 

BST03 

BSTQ3 

BST03 

BST03 

BST03  20- 
B5T03 
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Subroutine  CON 3 


Purpose 

Subroutine  CON3  computes  the  constraint  misses  and  payoff.  It  has  two 
entry  points  the  first,  CONIN,  sets  up  and  computes  constraint  misses, 
ACON,  for  the  first  nominal  trajectory;  whereas  the  entry  CON  computes 
trial  constraint  misses  and  payoff,  BCQN.  These  trial  constraint  misses 
later  become  nominal  values  in  subroutine  TEST  if  the  trial  trajectory  is 
acceptable. 

Description 

The  main  logic  in  this  subroutine  is  governed  first  by  the  argument  list  (MM, 
MN)  which  indicates  partitioning  of  the  d^.  vector  and  second  by  the  con- 
straint variable  code  pointer  ITQ. 

MM  Ls  the  first  element  in  dif^  to  be  evaluated  and  NN  is  the  last. 

The  ITQ  pointers  tell  whether  the  constraint  or  payoff  is  elapsed  timed, 
an  element  of  the  state  vector  or  a non-linear  constraint. 
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I UK  Ml  ON 
SYMBOL 

ACDN 

BCON 

DCON 

FPD 

IOP 

ITQ 

NCNST 

TjniE 


30  ocr 


iin  1 II 
SYMBOL 


code 


DESCRIPTION 


S TQHAGF  SUBROUTINE  USAGE 

BLOCK  lOC  SUflh  CODE  VAR 


Vector  of  nominal  constraint  misses  + PAYOFF 

/ GENF 

/( 

190  ) 

CGN3 

PI 

ACON 

IHPROVEHENT 

TEST 

m 

ACON 

Vector  of  constraint  nlsses  on  trial  trajectory 

/GENF 

/( 

199  ) 

C0N3 

0 

BCON 

TEST 

t 

BCON 

toppi 

I 

BCON 

Asked  for  correction  In  constraint  misses  and 

/GENF 

/{ 

289  ) 

C0N3 

0 

OCON 

payoff  vector 

PSTX3A 

I 

DCON 

PAVC2 

n 

OCON 

TEST 

PS 

DCON 

TOP  Cl 

I 

DCON 

TRTOSZ 

I 

OCON 

Rate  of  change  of  non-linear  cut-off  function 

/GENF 

/( 

523  ) 

C0N3 

i 

FPD 

DTF3 

i 

FPO 

STP3 

i 

FPD 

VREF3 

i 

FPD 

Payoff  code 

/C0N3 

/(* 

) 

C0N3 

u 

IOP 

Constraint  option  code  (internal) 

/ XCDDES/< 

1 > 

A0ICB3 

I 

ITO 

A0IC3A 

I 

ITQ 

ADID3A 

I 

ITQ 

COM3 

I 

ITQ 

SDINP 

ps 

ITQ 

STAU 

1 

ITQ 

TOPPI 

0 

I ITQ 

Number  of  problem  constraint* 

/XCODES/t 

132  ) 

BGET3 

i 

NCNST 

8ST03 

i 

NCNST 

C0N3 

i 

NCNST 

PAY02 

i 

NCNST 

SDINP 

PS 

NCNST 

SUPiS 

1 

NCN5T 

TEST 

I 

NCNST 

TOPfl 

I 

NCNST 

TRAN3 

I 

NCNST 

Time  (el apsed  ) 

/GENF 

/( 

H93  ) 

ADI  CBS 

0 

tipse 

AST3 

1 

T I PIE 

BNTG 

n 

TIPSE 

COM3 

i 

TIME 

0TF3 

i 

time 

ENVPRtn 

i 

TIPSE 

EQUA3 

i 

Tint 

fntg 

PS 

TIPSE 

PSQDELA 

i 

TIPSE 

OUT 

i 

TIPSE 

PDBC 

i 

TINE 

PROP  1 N 

i 

TIPSE 

REU3 

n 

TlrtE 

RKTA3A 

n 

TT 

RKT63A 

n 

TT 

YREF3 

n 

TINE 
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DESCRIPTION 


STORAGE 
BLOCK  LOC 


SUBRQUTl-Vt  USAGE 
SUBfl  CODE  VAR 


VAR  v I Relative  velocity  (FT/SEC)  /STATES/!  1)  ACCEL  I V 

AC1CB3  0 VAR 
A0JU5T  n VAR 
AGETB3  0 VAR 
AST3  I VAR 
BLR  5 V 
BLT  I V 
818  I V 
CO  N 3 I VAR 
OER3A  I V 
DTF3  I V 
ENVPRPI  I VAR 
E0UA3  I V 
PiGDELA  I V 
FIODELA  I VAR 
nGDELB  F V 
F1TX3A  I VAR 
OUT  IV 
OUT  I VAR 
PDBC  I V 
P0Y3A  I V 
REU3  n VAR 
RKTA3A  Ft  Y 
STP  3 I VAR 
TOPIt  D KUDU 
YREF3  P!  V 

VARO  (VARQ>  I Desired  constraint  values  Isd]  /GENF  /(  61)  C0N3  I VARO 

SDINP  PI  VARO 
TEST  I VARO 
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CQN3 


r-l 


1. 

SUBROUTINE  CGH3IM 

, HH) 

C0N3 

2. 

C 

COHN 

3. 

C 

COHPUTE 

CONSTRAINT 

AND  PAYOFF 

VALUES  AT 

APPROPRIATE 

COHN 

9. 

c 

ARC  END 

POINTS 

CONN 

5. 

c 

COHN 

6. 

c 

nn  IS 

THC  SET 

NO 

OF  THE 

FIRST  CONSTRAINT 

COHN 

7. 

c 

NN  IS 

THE  SET 

NO 

. OF  THE 

LAST  CONSTRAINT 

COHN 

8. 

c 

COHN 

9. 

COHHQN  /XCOOES/ 

XCQDES 

10. 

*1T0  ( 9 1.1  COR  (20) 

, ITI 

, INTB 

,J8I0(20, 

2 ), JPH  <20,21 

XCOOES 

11. 

♦JST  (20) 

NCNST 

,NSB 

,NS  AB 

.NICNB 

XCOOES 

12 

♦ I20P 

,IC0P 

-IFAW 

, I Far 

, IFB 

, I NO 

XCOOES 

13. 

♦IOPEW 

, IPH 

, ISPH 

, 15ST 

, I ARC 

, 1ST ART 

XCOOES 

19. 

♦ ITCT 

, ITER 

, I VAR 

,JK 

,JPS 

, JS 

XCOOES 

15- 

♦KOP 

,KP5T 

;* 

,KST 

, NAO 

, NCASE 

XCOOES 

16. 

,NEQB 

, NEQ 

NCP 

NPH 

,n 

XCOOES 

1?. 

*NST 

,IPST 

, 1 P R I NT 

, ISTN 

, IPHN 

, 1STNB 

XCOOES 

18. 

♦ IP HNB 

, I BLX 1 

. IBLK2 

, I5T0P 

, ISTPP 

, L 

XCOOES 

19. 

• 1F0B 

-NB 

.LS 

.08 

.NPHP 

, NPHB 

XCOOES 

20. 

•NCTIN 

.NEOF  . ILftBt  8),JPfiP_J 

611 .RTT.HPlNt  20  ).  JP1. 

JP2,JP3 

XC0DE5 

21. 

CCHH0N/STATE3/ 

STATE30 

22. 

♦VfiRt 19) 

-BVAR  (19) 

, VARL  (99) 

-DVARLC  99  ) 

Y0(  9 ) 

,SVY( 10 ) 

t 

STATE3D 

23. 

*XL(  9 9) 

,YDP(  20, 

YDS  (20,9) 

, COSSArt 

.SINSAfl 

,5AYBP( 15) 

t 

STATE30 

29. 

•S1NPSI 

,COSPSI 

,SINRHO 

, COSRHO 

, OCORHO 

,OC0R02 

STATE30 

25- 

♦SVBV  (9),0ttEGA 

0REGA2 

9 

STATE30 

26. 

• VDV 

,GDV 

,ROV 

,nov 

,POV 

,ODV 

t 

STATE3D 

27. 

*UDtf 

,VD6 

, SDG 

,ROG 

,POG 

,008 

5TATE3D 

28- 

♦ ODG 

, VOR 

, GDH 

,RDR 

, PDR 

,OOR 

STATE3D 

29. 

♦ UDR 

,VDN 

, 6DR 

tmn 

,POR 

,VDP 

t 

STATE3D 

30. 

♦ GDP 

,PDP 

,OOP 

,UOP 

,V00 

,800 

g 

STATE30 

31. 

♦PDD 

,1100 

,HTDV 

,HTDR 

5TATE30 

32. 

real  hdh 

, HOY,  HDR 

STATE30 

33. 

COHHON/STATE3/ 

STATE3D 

39. 

♦SIN2R0 

.C0S2R0 

, COS 280 

STATE3D 

35. 

cohrgn/sewf/ 

6ENF 

36. 

»ans(20) 

,OHGP( 20 

,2) 

, VAR0C  9 ) 

, TO  L(  9 ) 

SVAR(  10) 

,«DC(20) 

t 

6ENF 

37. 

*A<  9,9) 

, ACONl 9 ) 

, BCONl 9 ) 

,CQTI( 9,9) 

, DCON(  9 ) 

,OTP 

6ENF 

38. 

♦ DTS 

,BT 

,8 

,OPSQ 

t 

GENF 

39. 

♦ R 

,RE 

, RACH 

,PA 

,R0 

,CS 

GENF 

90. 

♦VNU 

.PAR 

,ROR 

, CSR 

, VNR 

,stmsa 

GENF 

91. 

♦ SVSQ 

.TlflEPH 

, TINES 

.TOP 

,TOS 

,TR( 9 ) 

GENF 

92. 

+TSTC20) 

,TPH  (20) 

r 01  SC  20 ) 

,DIP(  20) 

,T 

, ti 

GENF 

93. 

♦TLPii  20  ) 

,TLS1  (20) 

. DIP  1(  20  > 

,0IS1( 20  ) 

,TIflE 

,0«P 

GENF 

99. 

♦TIHPR 

,LIFT 

,0RA6 

,TAX 

, TBURN 

,TBU( 20  ) 

GENF 

95- 

♦ AE 

.FPOLD 

,fpd 

,WACHR 

, PlACHV 

9 

GENF 

96. 

♦ OR 

,0Y 

,FYAC 

, LIFT V 

8ENF 

97. 

♦LiFTR 

, LI  FT  A 

DRAGV 

'dragr 

0RA6A 

* 

GENF 

98. 

♦ 

LIFT* 

, OBR 

,DB 

,1SP 

, ISPF 

GENF 

99. 

♦ 

ULFT 

-ULFTV 

_ULFTR 

, ULFT A 

GENF 

50. 

• XfiCG 

.xncsv 

, XRC6R 

, XrtCGA 

,XrtC6rt 

.CODAE 

9 

GENF 

51. 

♦CULFT 

,CT 

.CALPHA 

, CDE 

, OELTAE 

,SID 

9 

GENF 

52. 

♦COD 

, Si  DAE 

,XCG 

, ZC8 

,xj 

GENF 

53. 

cdhhgw  / 

GE«F  / 

GENF 

59. 

+xj  V 

. XJR 

,8H 

, GArtrtAO 

, XKG 

, XAP 

GENF 

55- 

♦FRATEO 

, IRATEO 

6EWF 

56. 

♦ PI 

,P2 

,P3 

. XK1 

, XK2 

,XK3 

9 

GENF 

57. 

♦ XK1T 

,XK2T 

XK3T 

,XK1Q 

, XK2D 

,XK3D 

GENF 

58. 

♦ XK1A 

,XHZA 

,XK3A 

, XK1V 

, 36IC2V 

,XK3V 

GENF 

59. 

♦ XK1G 

#XK2S 

,XX38 

,XX1P 

, XK2P 

, XR3P 

t 

GENF 

60. 

♦ XK1R 

.XK2R 

. XK3R 

, XK10 

,XK20 

,XX30 

9 

GENF 

61 

♦ XKll) 

,X«ZU 

, XK3U 

,xxin 

,XX2« 

,XR3n 

9 

GENF 

62. 

♦PV 

,PG 

.PP 

.PR 

,P0 

,DPDY( 3,8  ) 

GENF 

63. 

REAL  UFTft  , LIFT 

LIFTA.LIFTO  . 

MACH, 

HACHR, 

GENF 

69. 

* ISP . I SPF,  HACHV, 

lift*  , i rated 

FRAT 

65. 

DIMENSION 

TPHH  10  ) 

-TSTll  10) 

GENF 

66. 

EG  III  VALENC£(  TLPl.TPHl 

),( TL51.TST1 ) 

GENF 

67. 

c 

I 

COHN 

68. 

c 

COMPUTE 

CONSTRAINT 

niSSES 

AND  PAYOFF 

FOR 

COHN 

69. 

c 

FIRST 

NOMINAL  TRAJECTORY 

COHN 

70. 

ENTRY  COMIN 

C0W3 

71. 

I$XP=0 

C0N3 

72. 

IFCHH.GT. 

NAD  80  TO 

50 

CDN3 

73. 

DO  90 

C0N3 

79 

JJ  = I T0( I ) -1 

COM3 

75. 

1RJJ.E8. 

OJ  60  TO  : 

30 

CQN3 

50 


3C 
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01-96 


76  IFUJ.LE.  9)  60  TO  10 

77.  CALL  PDBCl ITO( I ), Z,$X,FPQ,Q,1SKP  ) 

78  ACOMU  ) - VARQCJ)  - Z 

79  80  TO  20 


SO  10  CONTINUE 

81  IRJJ.EG  9)  J J=8 

82  ACCNt I ) = VARO(I  )-VAR( JJ > 


COM3 

C0N3 

C0W3 

C0N3 


CGN3 

C0N3 

CONS 


10  — 
20—i 


83 

8H 


85 

86. 


87 


20  OCGN( 1 ) =ACON( I ) 
GO  TO  90 


30  ACON(l)  AROt I >*  TIRE 
OCONC  1 > = ACON(  I ) 


HO  CONTINUE 


COM3 

COM3 


CQN3 

COM3 


COM3 


n 


86  50  IF(  NN  Ll  NCNST ) RETURN 

89  60  IOP  = ITfll NCNST+1 ) -1 

90  IF{ IOP .£3.0 > 60  TO  80 

91.  IF( I0P.LE.91  60  TO  TO 

92.  CALL  POBC(  IT0( NCNST+l).Z.SX,FPD, 0, ISKP ) 

93.  ACON( NCNST+1  ) = I 

9H . RETURN 


95.  70  CONTINUE 

96  IFU0P.EQ.9)  I QP“8 

97  ACON( NCNST+1)  = VARdOP) 

98  RETURN 


COM3 

C0N3 

COM3 

C0N3 

C0N3 

C0N3 

COM3 


80 

70-i 


C0N3 

COM3 

COM3 

CQN3 


99 

100. 

101. 

102. 

103. 

10H. 

105. 

106. 
107. 
108 

109 

110 
1U 
112 
113 


80 


ACON( NCNST+1  ) 
RETURN 


TINE 


II 


CONSTRAINT  HISSES  AND  PAYOFF  FOR  TRIAL  TRAJECTORY 


ENTRY  COM 
ISKP-0 

IF{  NN. GT.NN  ) 60  TO  120 

DO  110  l=N«,NN 

JJ  = ITOm-l 

IF(JJ.EO.O)  60  TO  100 

IFUJ.LE  9)  60  TO  90 

CALL  PDBCC 1TQCI  ) .Z.SX.FPO.O. ISKP  ) 

BCON(  I )=  VARQtl > - Z 

60  TO  110 


111  90  CONTINUE 

115  IFUJ.E0.9)  JJ=8 

116  BCONt I > = VARQ( I )-  VAR(JJ) 

117  GO  TO  110 


C0N3 

COM3 

CONN 

CONN 

CONN 

COM3 

C0N3 

C0N3 

COM3 

COM3 

C0N3 

COM3 

COM3 

COM3 

C0N3 


120* 


COM3 
COM3 
CON  3 
COM3 


100 

”1 


1 18 


1 1 1 9 


100  BCON(  I ) = VARQU>~  TINE 


110  CONTINUE 


COM3 


C0N3 


120.  120  JFINN  LT.NCWST)  RETURN 

121.  130  IOP  ~ ITfl< NCNST+1) 

122.  IFtlOP.EO.l)  GO  TO  150 

123.  IF  (IOP  LE.  1 0 ) 60  TO  HO 

12H.  CALL  POBC(  IT0< NCNST+1), Z, SX, FPO.O, I SKP > 

125.  BCON< NCNST+1  )=  Z 

126.  RETURN 


127.  1H0  CONTINUE 

128.  JFdOP.EG  10)  I0P=9 

129.  BCONINCHST  +1)  = VARt 10P-1 ) 

130.  RETURN 


CQN3 

COM3 

CQN3 

C0N3 

CONS 

COM3 

C0N3 


150 

1 HO— i 


C0N3 

C0N3 

C0N3 

COM3 


131  150  BCON(NCN$T  +1)  = T1HE 

132  RETURN 

133.  END 


COM3 

COM3 

COM3 
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SUBR0UT INE 
DER3A 


3^8 


Subroutine  DER3A 


Entry  Points  DER 


Purpose 

Subroutine  DER3A  computes  the  derivatives  of  the  equations  of  motion  for 
the  forward  steepest  descent  trajectory. 

Description 

The  equations  programmed  in  subroutine  DER3A  are  given  m Volume  I, 
Section  2.  3.  The  acceleration  vector  component  AV,  AG,  AP  and  AM  are 
computed  in  subroutine  ACCEL. 


373 


P 0R1 BAN 
SYMBOL 

HATH 

SYH&OL 

CODE 

DESCRIPTION 

S T OR  AfiE 
BLOCK  IOC 

SllBROUT  1NE 
SOUR  COOE 

USnGE 

VAR 

AG 

_ > 

1 

Acceleration 

vector 

« 1 e in  e tvt  . 

/AXL  /{ 

2 ) 

ACCEL 

M 

AG 

a 

0ER3A 

1 

AG 

P0Y3A 

I 

AG 

AM 

_ n 

1 

Acceleration 

vector 

element. 

/AXL  /( 

H ) 

ACCEL 

n 

AD 

a 

DER3A 

i 

Afl 

AP 

I 

Acceleration 

vector 

element. 

/AXL  /< 

3 ) 

ACCEL 

n 

AP 

a 

DER3A 

I 

AP 

P0Y3A 

i 

AP 

AV 

- V 

I 

Acceleration 

vector 

e 1 * . 

/AXL  /( 

1 ) 

ACCEL 

n 

AV 

a 

0ER3A 

I 

AV 

COSGAfl 

c o s<  7 ) 

I 

See  syabol 

/STATE3/T 

687  > 

ACCEL 

I 

COSGAfl 

BL*i  I COSGAfl 
BL8  1 COSGAfl 
DER3A  I COSGAfl 
EOUA3  G COS  GAfl 
flODELA  I COS  GAn 
HQ  DELB  I COSGAfl 
OUT  I COSGAfl 
POBC  I COSGAfl 
POV3A  I COS  GArt 

C05PSI  COs(^)  1 See  syaboi  /STATE3/(  705  ) Blh  I COSPSI 

Bl7  I COSPSI 
Bl8  I COSPSI 
0ER3A  I C0SP5I 
E0UA3  0 COSPSI 
flODELA  I COSPSI 
ITOOELB  I COSPSI 
POBC  I COSPSI 
PDY3A  I COSPSI 

COSRHO  cos(o)  1 See  symbol  /ST ATE3/C  707  ) BLH  I COSRHO 

BL7  I COSRHO 
BL8  I COSRHO 
0ER3A  I COSRHO 
E3UA3  fl  COSRHO 
flODELA  I COSRHO 
flOOELB  1 COSRHO 
OUT  I COSRHO 
POBC  i COSRHO 
PDY3A  I COSRHO 

G a I Gravitational  attraction  <FT/SEC**2)  /GENF  /(  301)  BLH  I S 

3 BL7  I G 

BL8  I G 
DER3A  I G 
E0UA3  fl  G 
P10DELA  I G 
flOOELB  I G 
P0Y3A  I G 
S0ER3  i G 
SDINP  fl  G 


GO 

* 

0 

GAfl  derivative 

/STATE3/1 

16  ) 

DER3A 

0 

GO 

7 

POBC 

I 

GO 

GflDOT 

- 

i 

Pitch  rate 

{ DEG/SEC ) /ARCOAT/T 

15) 

DER3A 

I 

GflDOT 

7* 

flODELA 

I 

GflDOT 

OOOELB 

I 

GflDOT 

PR0P8 

I 

GflDOT 

PROPIN 

I 

GflDOT 

HD 

u 

0 

ALT  derivative 

/STATE3/1 

IT  ) 

0ER3A 

0 

HO 

fl 

POBC 

I 

KD 

HTD 

Q 

0 

Heating  derivative 

/STAT63/1 

22  ) 

DER3A 

0 

HTD 

OUT 

I 

HTD 

' 

POBC 

I 

HTO 

PDY3A 

fl 

HTD 
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FORTRAN 

5YF1BOL 


HATH 

5YPIB0L 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 
ftLOU  LOC  SUdH  CODE  VAR 


JGtl 


JPHP 


no 

OCORHO 


19 

wxCOSRHO 


0C0R02  w*OCORHO 


OD 


P 


OPIGZ 


PSIO  * 

QnULT  -0  OR  1 


R 


R 


ROT 


! Control  option 


I Propulsion  flog  for  different  rocket  options 


Q MASS  deriv stive 
I See  s y ebo 1 

I See  syebol 

0 Latitude  derivative 

1 Earth  rotation  rate  (RAD/SEC) 


0 Azieuth  derivative 

1 Heating  flag  eultiplier 

i Radial  distance  froo  earth  center  to  vehicle  CRT) 


1 Angle  to  radian  conversion,  01745329252 


/ XCO  DES  /(  195) 


/XCOO£5/<  194) 

/STATE3/C  18) 
/ST  ATE3/(  708  ) 

/STATE3/<  709) 

/STATE3/C  20) 
/GLOBAL/i  3) 

/ST  AT£3/i  19) 
/ARCDAT/l  40) 

/GENE  /(  305) 

/DATA  It  3) 


ACCEL 

1 

JGII 

BNTG 

0 

JGI I 

DER3A 

i 

JGII 

ENTG 

PI 

JGII 

GUI3A 

I 

JGII 

ItODELA 

I 

JGII 

PIOOELB 

I 

JGII 

PIT  X 3 A 

I 

JGI! 

P0V3A 

1 

JGII 

ACCEL 

I 

JPRP 

DER3A 

I 

JPHP 

EQUA3 

I 

JPRP 

PIOOELA 

I 

JPRP 

PDV3A 

I 

JPRP 

PRGPB 

0 

JPRP 

PROPIN 

0 

JPRP 

0ER3A 

0 

HO 

OUT 

1 

HO 

DER3A 

I 

OCORHO 

E0UA3 

n 

OCORHO 

I90DELA 

l 

OCORHO 

nOOELB 

i 

OCORHO 

POBC 

i 

OCORHO 

PDV3A 

i 

OCORHO 

DER3A 

i 

0COR02 

ESUA3 

0 

QC0R02 

PIOOELA 

I 

QC0R02 

PIOOELB 

1 

OCOR02 

PDV3A 

I 

OCOR02 

DER3A 

0 

OD 

ADID3A 

I 

OMGZ 

CRASH 

1 

C PIE  GA 

0ER3A 

I 

OnGZ 

E0UA3 

1 

OFIGZ 

SE1NP 

I 

onGz 

PIOOELA 

I 

0P1GZ 

PIOOELB 

I 

OPIGZ 

POBC 

I 

OPIGZ 

PDY3A 

I 

OPIGZ 

SDINP 

1 

OPIGZ 

TOPPI 

I 

onsz 

0ER3A 

0 

PSIO 

DER3A 

I 

opiult 

FXOAT 

0 

8PIULT 

PDY3A 

I 

OPIULT 

BL4 

I 

R 

BL7 

I 

fi 

BL8 

I 

R 

DER3A 

I 

R 

EQUA3 

n 

R 

PIOOELA 

i 

R 

PIOOELB 

i 

S 

POBC 

i 

R 

PDY3A 

i 

R 

TRTOSZ 

i 

R 

BLICO 

i 

ROI 

DER3A 

i 

RDI 

FNTG 

i 

ROI 

GUI3A 

i 

RDI 

PIOOELA 

i 

ROI 

PIOOELB 

i 

ROI 

P AOS  1 

D 

RDI 

PROP  B 

I 

RDI 

PROPIN 

I 

RDI 

R t U 3 

1 

RDI 

SDINP 

1 

ROI 

sons 

! 

RDI 
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rift  I H 

svnaOL 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


i USPQ  UT 1 NE 
SUttA  CODE 


S 1 NGAR 


s i n(  7 ) 


I Atmospheric  density 


I See  symbol 


( LB/FT*»3  ) 


( SLUGS/FT*»3 ) /GENF  /(  309 


/STATE3/t  tee 


s i n(  ) 


I See  symbol 


/STATE3/I  709 


S i n(  p ) 


l See  symbol 


/STATE3/I  70S 


Square  root  function 


/SORT  / { * 


Longitude  derivative 


/ST  ATE3/I 


39  ) 

DER3A 

I 

RHOB 

FXDA1 

0 

RHOB 

P0Y3A 

1 

RHOB 

309  ) 

BL7 

l 

RO 

BLB 

I 

RO 

DER3A 

I 

RO 

E0UA3 

1 

RO 

OUT 

I 

RO 

POBC 

1 

RO 

P0V3A 

I 

RO 

tee ) 

BLM 

I 

SINGAlt 

BL7 

I 

SINGAlt 

BLS 

I 

SINGAlt 

0ER3A 

I 

SINGAlt 

E0UA3 

0 

SINGAlt 

RODELA 

I 

SINGAlt 

DOOELB 

I 

S I NEAR 

PDBC 

I 

SINGAR 

PDY3A 

1 

SINGAR 

SDER3 

I 

SINGAR 

709  ) 

BL9 

I 

SINPS1 

BL7 

1 

S1NPS1 

BLS 

I 

SINPSI 

0ER3A 

I 

5INPSI 

EQUA3 

0 

SINPSI 

ItQDELA 

I 

SINPSI 

P10DELB 

I 

SINPSI 

PDBC 

1 

SINPSI 

PDY3A 

1 

SINPSI 

706) 

BLB 

1 

S1NRH0 

BL7 

I 

SINRHO 

BLB 

I 

SiNRHO 

DER3A 

I 

SINRHO 

E0-UA3 

Q 

SI NRHO 

ItODELA 

I 

SINRHO 

RQCELB 

1 

SINRHO 

OUT 

I 

SINRHO 

POBC 

I 

SINRHO 

P0Y3A 

I 

SINRHO 

) 

ANLATn 

F 

SORT 

CRASH 

F 

SORT 

DCTOE 

F 

SORT 

DER3A 

F 

SORT 

ENVPfifl 

F 

SORT 

HUNT 

F 

SORT 

ItODELA 

F 

SORT 

ItDOELB 

F 

SORT 

OPUELL 

F 

SORT 

PUT 

F 

SORT 

P AT  63 

F 

SORT 

PAY02 

F 

SORT 

PDBC 

F 

SORT 

PDV3A 

F 

SORT 

STORE 

F 

SORT 

smm 

F 

SORT 

UITSCH 

F 

SORT 

21  ) 

0ER3A 

0 

UO 

POBC 

I 

US 

30  OCT  72  G 01-96 


383 


MftIH 

SYMBOL 


DESCRIPTION 


I Relative  velocity 


Si  PRASE 
BLOCK  LOT! 


( FT  /SEC  ) /ST ATE3/I 


UBROUTIMF  USAS 


Stldfi  LODE  VAR 


State  vector  derivatives  in  steepest  descent  eodule  /STATE3/( 


1 ) 

ACCEL 

I 

V 

ADICS3 

0 

VAR 

AOJUST 

n 

VAR 

A5ETB3 

0 

VAR 

AST3 

I 

VAR 

BLH 

i 

V 

BLT 

I 

V 

BL8 

I 

V 

C0N3 

I 

VAR 

0ER3A 

I 

V 

DTE3 

I 

V 

ENVPRP1 

I 

VAR 

E0UA3 

1 

V 

MODELA 

1 

V 

PIODELA 

I 

VAR 

nODELB 

1 

V 

PIT  X3  A 

I 

VAR 

OUT 

I 

V 

OUT 

I 

VAR 

PDBC 

I 

V 

PDY3A 

I 

V 

REU3 

PI 

VAR 

RKTA3A 

n 

Y 

STP3 

i 

VAR 

T0PP1 

D 

KWOtii 

YREF3 

n 

V 

15  ) 

AD1CB3 

n 

DVAR 

ADI C3A 

i 

DVAR 

A0ID3A 

« 

DVAR 

0ER3A 

0 

VD 

0TE3 

I 

VT 

ENVPRM 

I 

OVAR 

PDBC 

1 

VD 

PROPIN 

0 

DVAR 

REU3 

I 

DVAR 

RKTA3A 

1 

DY 

SDER3 

0 

OVAR 

STP3 

I 

OVAR 

YREF3 

I 

OVAR 

YREF3 

I 

VT 
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DER3A 


l. 

SUBROUTINE  DER3R 

0ER3A 

z 

C 

CORN 

3. 

C 

compute  derivatives  of  eourtions  of  motion 

CQmN 

H . 

C 

CONN 

S. 

Common/ DAT*/ 

DATA 

6. 

*PI 

.RAD 

,HOl 

,SC 

,UrtF 

,T  BPF 

DATA 

7. 

•ftnm 

.CAR 

,J0P1 

, J0P2 

, J0P3 

,JOPH 

DATA 

8. 

COMMON 

/XCuDES/ 

X COOES 

9. 

• no 

(9)1 CQR  ( 20  ). JTI 

. INTB 

.JSIOC  20. 

2) . JPH  (20,2), 

XCDOES 

10. 

♦JST  (20) 

, NCNST 

,NSB 

. NS  AB 

,N1CNB 

XCOOES 

n 

♦120P 

,ICQP 

. IFAU 

, IFAR 

,IFB 

, 1HD 

XCDOES 

12. 

* I OP  EN 

, IPH 

,1SPH 

r ISST 

, I ARC 

.1ST  ART 

XCOOES 

13. 

♦ITCT 

, ITER 

, I VAR 

,JJC 

,JP$ 

,JS 

X CODES 

1H. 

♦KQP 

,KPST 

,KST 

.NAD 

,NCASE 

XCQDES 

15. 

♦NCN 

.NEQB 

,NEQ 

,NOP 

. NPH 

* 

XCOOES 

16. 

* N5T 

, I PST 

. 1 P R 1 NT 

r I STN 

. IPH« 

^ 1STNB 

XCOOES 

17. 

♦1PHNB 

I BLK1 

,I6LK2 

, ISTOP 

, 1STPP 

,L 

X CODES 

IB. 

♦1F0B 

,NB 

.LB 

,bb 

.NFHP 

,NPH3 

XCOOES 

19. 

20. 

♦ NOT  IN  ,NEQF  , I LABI  8),JPRP,J61I,  BIT  , rtPlN(20)fJpi 

C0flfl0N/5TATE3/ 

JP2,JP3 

XCOOES 

STATE30 

21. 

♦VAR! 1H> 

,DVAR  ( IH 1 

, VARL  (99) 

, OVARLl 99 ) 

, Y0<  9 1 

,SVY( 10) 

STATE3D 

22 

♦XL!  9.9) 
♦SlNPSI 

, Y DP!  20 , 9 ) 

YDS  (20,9) 

COS  GAW 

.SINSAPJ 

.SAV5P( 15) 

STATE3D 

23. 

.COSPSI 

, S I HR  HO 

, COSRHO 

,OCORHO 

,OCOR02 

STATE30 

2H. 

♦ SVBV 

< 91.DHEGA 

QHE6A2 

STATE30 

25. 

♦VDV 

,6DV 

.RDtf 

,BOV 

. PDV 

,ODV 

STATE30 

26. 

♦UOV 

,VDG 

, GOG 

,RDG 

,PDG 

,ODG 

STATE30 

27. 

♦ UDS 

,VOR 

, 6Dfl 

, BDR 

,P0R 

,OOR 

STATE3D 

28. 

♦UDR 

. VDfl 

.GOB 

,BDB 

, PDB 

, VDP 

STATE30 

29. 

♦60P 

.POP 

,ODP 

, UDP 

,voo 

,600 

STATE3D 

30. 

♦POO 

,uoo 

,MTDV 

,HTOR 

ST AT £30 

31. 

REAL  NDB  * ftDV,  RDR 

5TATE3D 

32. 

co  HBD  N/ ST  AT  E3 / 

STATE3D 

33 

39. 

♦SIN2R0  , C0S2R0 

COMNON/6ENF/ 

, C052GB 

STATE30 

GENF 

35. 

36. 

37. 
30. 
35. 
HO. 
HI. 
HZ 
HZ. 
HH. 
H 5 
H6. 
H7. 
H8. 
H9 
SO 

51. 

52. 

53. 
5H 

55. 

56. 

57. 
58 
59. 
60- 
61. 
62. 
63. 
6H. 

65. 

66. 

67. 

68. 

69 

70. 

71. 

72. 

73. 

1H. 

75. 


*0«6(20) 

,0MGP(E0,2) 

. VARQ[ 9 > 

,T0L19> 

.SVAR(  10) 

,WDC120) 

GENF 

♦A( 9.9) 

. RC0N19) 

. BCONC  9 > 

, CQTK  9 9) 

, OCON(  9 ) 

, DTP 

GENF 

♦DTS 

'DT 

,s 

,OPSO 

,Q 

,as 

GENF 

♦R 

,HE 

,RACH 

,P» 

,R0 

,C5 

GENF 

♦VNU 

,P»R 

,ROR 

,CSR 

,VNR 

.SUBSO 

GENF 

♦SVSQ 

.timeph 

,TI«ES 

,TOP 

,T05 

,Tfl( 9 ) 

6ENF 

♦TST( 20  ) 

,TPH  1201 

BlSt  20  ) 

,DIP(20) 

,T 

GENF 

♦TLPU20) 

,TLS1  1201 

, 01  P It  20  ) 

. DISK  20  } 

,T1«E 

,0«P 

GENF 

•TlflpR 

.LIFT 

.DRAG 

,T*X 

,TBURN 

,TBli(  20) 

GENF 

*AE 

, FP 

.FPOLO 

, FPD 

,«ACHR 

, PIACHV 

GENF 

•OR 

,0V 

, FVAC 

,LIFTV 

GENF 

♦LIFTR 

.LIFT* 

ORAGV 

,DRAGR 

.DRA6A 

GENF 

* 

LIFTM 

,OBR 

,0B 

,ISP 

, I SPF 

GENF 

* 

ULFT 

, ulftv 

, ULFIR 

,ULFTA 

GENF 

♦ XBCG 

, XMCBV 

. XBC6R 

, XRCGft 

,XBCSB 

.CODAE 

GENF 

♦CULFT 

,CT 

,CALPHA 

,CDE 

.OELTAE 

,SID 

GENF 

♦ COO 

,SID»E 

, XCG 

,ZC6 

,XJ 

GENF 

COrtrtON  / 

GENF  / 

GENF 

♦ XJV 

, XJR 

,GH 

, GRMMRD 

, XKG 

,XXP 

, 

GENF 

♦FRATED 

♦PI 

♦XK1T 

♦ XK1A 
♦XK1G 

♦XK1R 

♦ XK1U 
♦PV 

REAL 

ISP, 


,X*2T 
.IKZfk 
,XK2G 
_ XK2A 
. XK2U 


,P3 

, XK3T 
, XK3A 
, XK3G 
, XK3R 
, XK3U 
,PP 


,XK1 
. XK1D 
,XK1V 
, XK1P 
, XK1  0 
. XK1A 
#PR 


,XK2 
, XK20 
. XK2V 
,XK2P 
, XK23 
,XK2N 
#P0 

BACH, 


,XK3 
.XK3D 
, XK3V 
, XX3P 
,XK30 
,XK3N 
,0P0Y(3,8> 
rtACHft, 


,PS 

LIFTS  , LIFT  LIFTA.UFTA 
w,  , 1SPF,  ftACHV , LI  FT  V , IflATEO 
OlflENSlON  TPH1C  10),TST1<10> 

EQUi VALENCE! TLP1,TP HI  11 TLS1.T5T1 ) 

EQUIVALENCE  <VAR(1),Y>  ,< VAR(  2 ),GAfl>  ( VAR!  3 ), ALT  ) ,(VAfi(H>,FO  , 
♦(  VARC5  >,PSI  ),<  VAR(  6),RH&),(  VAfi(  7),rtU)f(  VAR(8),HT  ) , (VARt  9), 502) 
♦<  OVABt  1 >,  V0>,<  DVAfi(  Z ) GD),(  OVARt  3 ) HO  > , ( DVAfi(  H ),  flD  > ,(  DVAR(  5^  . PD) 
♦(  OVARt  6),00>,( DVAR{  7 ),  UD  >,<  OVARt  8 ), HTO  ), l OVARl 9 ), S020 ) 

REAL  n,r»UfflD 

CQnmoN/ Global/ 

♦6R  , ER  ,0*GZ  ,XLAflRF  ,Y«URF  ,LU« 

*,JJOP( 10)  .IFATAL  ,NARC  .NBRAN  ,NFARC  .10(H) 

*,MAB(2Q>,lTA»(20)  ,$I6  ,F1AXTA& 

*,Grt  ,PSIRF,IPFLG1,  1PFLG2, IPFLG3, 1PFL6H, I NEQFL! 20 1 


GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

FF  AT 

GENF 

GENF 

EC0V3 

EQUV3 

E0UV3 

E0UV3 

E0UV3 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 
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76 

* .1TPS0  , KSOL  .K6L0BU8) 

RETAP 

77 

COMMON/ ARCOAT/ 

ARCDAT 

.78. 

*SREF  , EJ  ,X1SP 

.TMULT 

, DTNC 

, OTP  I 

AB  COAT 

70. 

*IATM  ,IMDDE  , J AER 

,JPRO 

, QMAX 

#G«AX 

f 

ARCDAT 

80. 

* XLMAX  .HDMAX  .GMDOT 

, ALFMAX 

,PHMAX 

. MAEA 

9 

arcoat 

81 

*MAEB  ,MAEC  ,MAED 

,MAEE 

>MAEF 

,MAE6 

> 

ARCOAT 

82 

*MT  .niSP  ,MXCG 

fnzcs 

. nu)OA 

,rtU06 

ARCOAT 

83. 

♦WOB  ,XC6R  . ZC6R 

, KE 

,XT 

t 

ARCDAT 

84. 

*OREF  , MCND  .RHOB 

,qmult 

.REMAX 

ARCOAT 

85 

* ,FRATE  , ARCD( 9 ) 

BETAP 

86. 

DIMENSION  ARCDAt  40 ) 

ARCDAT 

87. 

EQUIVALENCE! SftEF. ARCOA) 

ARCDAT 

88 

COMMON/ AEC03/ 

AEC03 

89. 

♦ APHO  ,APHR  . ALPHA 

, VGA 

.GOA 

.PDA 

AEC03 

90 

• SINA  # CDS A .PHIO 

,PHI0 

.PHI 

.SINPHI 

AEC03 

51. 

#C0SPH1  ,GDPH  ,POPH 

. XLAttAt 9 ) 

. XLAMPI 9 ) 

,COO 

AEC03 

52. 

*CDQ«  . CLO  , FK 

. xccn 

f ZCGM 

. CLOM 

AECD3 

93 

*CN  ,CMA  , CflAM  .CMM  .CMQ 

,cnon 

,ficm 

AEC03 

94 

♦ CLAM  ,CL  . CLA 

, CLM 

* 

AEC03 

95. 

♦CD  ,COA  ,con 

AEC03 

96. 

COMMON/  AXU 

AXL 

97 

* AV  „ AG  , AP  ,AM  ,AVV 

ABV  ,APV  , 

AMV  , AVG 

. AG6  . APG 

AXL 

9fl 

*AMG  ,ftVP  , AGP  t APP  , AMP 

AVR  , AGR  , 

APR  AMR 

. AVO  ,ASD 

AXL 

99 

♦ APO  ,AMO  , AVU  , AGU  ,APU  ' 

AMU  ,AVM  , 

AGM  ,APM 

, AMM 

AXL 

100. 

DIMENSION  AVU) 

AXL 

101. 

EQUIVALENCE  IAY.AVV) 

AXL 

10Z 

EQUIVALENCE  (P5ID,PU> 

10 

103. 

ENTRY  DER 

0ER3A 

104 

c 

I IF  ROCKET  COMPUTE  SPECIFIC  IMPULSE 

COflN 

105 

1F<  JPRP . GT  1)  CALL  1MPUL 

CORN 

106 

c 

COMN 

107. 

c 

11  COMPUTE  ACCELERATION  VECTOH 

COMN 

108. 

CALL  ACCEL 

10 

109. 

VD=  R*0C0RO2*(  COSRHO»$INGAM~ 

$INBH3*C0SPSI*C0SGAM> 

-G*S1NGAM+ 

DER3A 

no. 

1 AV 

DER3A 

ui. 

c 

COMN 

112 

c 

111  VERT  RISE  /PITCHOVER 

DERIVATIVES 

COMN 

113 

IFUGII  .NE.B)  GO  TO 

10 

DER  3 A 

114. 

GD  = 6M00T*RDI 

DER3A 

115. 

PSID  = 0. 

DER3A 

116. 

60  TO  20 

0ER3A 

117 

10  CONTINUE 

DER  3 A 

GO-  OC0RHO*(  2 *51NP$J+R*0MSZ/V*(  C05RM0*CDSGAM+  5 1 NRHO*C0SPSl *51  NG  DER3A 
lflO) > ♦ C0SGAM*l V/R-6/V)  * AS  DER3A 

* / V 10 

PSID  = OCORHQ»<  B*  0rtGZ*SlNRH0*SlNPSI/V-2  *C0$PS1»SI NGA«>/  COSGAN+  DER3A 
1 $INRHO*(  V*COSGAM*SINPSI/(R*CO$RH0  )+2*0riGZ)  + AP  0ER3A 

» / < V»C0SSAM) _ 10 

20  CONTINUE  DER3A 

R 0=  AM  0ER3A 

HO  = V*SINGAW  0ER3A 

0D=  V*  COSGAM*COSPSI/R  0ER3A 

U0=  V*C0$GArt*SINP$I/<R*COSRHO)  0ER3A 

!F<QmiLT*RO  £0  0 } RETURN  APR27 

HTD=  QMULT*  17600  *SORT< RO/RHOB > *( V/26000. )*+2  15  0ER3A 

RETURN  DER3A 

END  0ER3A 
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SUBR0UT INE 
DTF3 


Subroutine  DTF3 


Entry  Point.  DTF 


Purpose 

Subroutine  DTF3  computes  integration  interval  to  approximately  hit  a state 
or  function  cut-off. 

Description 

After  the  forward  integration  controlling  subprogram,  FNTG,  detects  that 
an  arc  cut-off  is  imminent,  DTF3  is  called  to  estimate  the  integration 
interval  to  satisfy  the  cut-off  function.  This  is  done  using  the  equations 
described  m Volume  I,  Section  15.  2,  equations  15.  2-3  through  15.  2-11. 
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FORTRAN  HATH 

SYNBOL  SYNBOL 

AA 

A2 

B 

C 

FP 


FPD 


FPOLD 


H 

HP 

REZ 

SVY  „ 

y'l 

tine  t 


w 


v 


DESCRIPTION 


storage 
blolk  L0C 


SUBR  coot  yah 


u 

Coefficient*  In  compute 

Interval 

formula 

/0TF3 

/(  * 

) 

DTF3 

W 

AR 

u 

Coefficients  In  compute 

Interval 

formula 

/0TF3 

/I* 

) 

DTF3 

U 

A2 

u 

Coefficients  1 r»  compute 

I nter  va  1 

formula 

/DIF3 

n ♦ 

) 

DTE  2 

U 

8 

u 

Coefficients  In  compute 

I nter  va 1 

for  mg  1 a 

7-OTF3 

/t  » 

) 

DTF3 

U 

C 

I 

Current  value  of  cut-off 

■function 

i - no  n*  1 rne ir  only 

/ GENE 

/{ 

521  ) 

DTF3 

I 

FP 

STP3 

I 

FP 

T0L3 

I 

FP 

VREF3 

I 

FP 

I 

Rate  of  change  of  non-linear  cut- 

off  f unct I o n 

/GENF 

/( 

523  ) 

C0N3 

1 

FPD 

DTF3 

I 

FPD 

STP3 

I 

FPD 

VREF3 

I 

FPD 

I 

Value  of  non-linear  cut- 

off  function  at  prior 

/ GENF 

/( 

522) 

DTF3 

I 

FPOLD 

compute  Interval 

STP3 

0 

FPD-LD 

T0L3 

0 

FPOLD 

YREF3 

I 

FPOLD 

Ul 

Change  in  0 from  last  to 

current 

compute  interval 

/DTF3 

/(« 

) 

DTF3 

w 

H 

w 

Current  error  In  0 

/ DTF3 

/l« 

) 

DTE  3 

u 

top 

u 

Ratio  of  HP/H 

/0TF3 

/(* 

) 

DTF3 

u 

REZ 

I 

State  and  time  array  at 

previous- 

compute  interval 

/STATE3/( 

236  ) 

DTF3 

I 

SVV 

REU3 

n 

SVV 

VREF3 

l 

SVV 

I 

Time  (elapsed) 

/GENF 

/( 

193  ) 

ADICB3 

0 

TINE 

AST3 

I 

TINE 

BNTG  N TINE 
C0N3  I TINE 
OTF3  I TIME 
ENVPRN  I TINE 
E0UA3  I TINE 
FNTS  N TINE 
NODELA  I TINE 
OUT  I TINE 
PDBC  I TINE 
PROPIN  I TINE 
REUS  N TINE 
RKTA3A  N TT 
RICTB3A  N TT 
YREF3  N TINE 

I Relative  velocity  (FT/SEC)  /SIATE3/I  1)  ACCEL  l V 

A0ICB3  0 VAR 
ADJUST  N VAR 
AGETB3  0 VAR 
AST3  I VAR 
BLN  I V 
BL7  I V 
BL8  I V 
C0N3  I VAR 
DER3A  I V 
0TF3  I V 
ENVPRN  I VAR 
E3UA3  I V 
MODELA  I V 
NDQELA  1 VAR 
NODELB  I V 
NTX3A  I VAR 
OUT  I V 
OUT  I VAR 
PDBC  I V 
PDY3A  I V 
REU3  N VAR 
RKTA3A  N V 
STP3  I VAR 
TOPN  D KUOU 
VREF3  Ft  V 
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10R1RAN  CIA1H 

SYP1BOL  SYdBOL 


COOE 


DESCRIPTION 


51QRRGE 
BLOC';  LOC 


3 UBkQQT  ! iVT  USAGE 
SU4R  COOE  VAfl 


VT 


State  vector  derivatives  In  steepest  descent  nodule  /ST ATE3/t  151  A01C83  PI  DVAR 

A01C3A  1 DVAR 
A0103A  PI  DVAR 
0ER3A  0 VO 
0TF3  I VT 
ENVPRP1  I OVAR 
POBC  I VD 
PROPIN  0 OVAR 
REU3  I DVAR 
RKTA3A  I OY 
SOER3  0 DVAR 
STP3  I DVAR 
YREF3  I DVAR 
YREF3  I VT 
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0IF3 


1. 

FUNCTION  DTF3(  11 .OH) 

0TF3 

2. 

C 

COMPUTES 

INTEGRATION  INTERVAL 

TO  APPROXIMATELY 

CORN 

3. 

C 

HIT  STATE  OS  FUNCTION  CUT  OFF 

COflN 

9. 

C0HR0N/STATE3/ 

STATE30 

5. 

♦ YAM  19) 

,DVAR  (1*0 

, VAftL  C 99 ) 

.OVARLC  99) 

, YOC  9> 

-SVYC 10 ) 

STATE30 

6. 

♦ XLC9,9  ) 

,YOP<  20,9), 

YDS  <20,9), 

CQSGAft 

,5INSA* 

,SAVBF< 15> 

ST  AT £30 

7. 

♦SlNPSi 

,COSPSI 

.SINRHO 

, COSRHO 

,OCORHO 

,0COR02 

STATE30 

8 

♦SVBV  C 9 ) 

.OflESA 

.QHEGA2 

STATE3D 

9. 

♦ ’/DV 

,GOV 

,ROV 

,nov 

,POV 

,00V 

STATE3D 

10. 

♦UOV 

,VOG 

, GDG 

.ROG 

,POG 

,008 

STATE3D 

11. 

♦ UDS 

, VOR 

. GOR 

,MDR 

,P0R 

-QDR 

STATE3D 

12. 

-UDR 

.VO* 

, 6D* 

,*D* 

,PD* 

,VOP 

STATE3D 

13 

• GDP 

,PDP 

.QDP 

,UOP 

,voo 

, GOO 

STATE3D 

19. 

♦ POO 

,UQO 

,HTDV 

,HTDR 

STATE30 

15. 

REAL  HO*  . 

*DV.  ROR 

STATE30 

16. 

C0*«0N/5TATE3/ 

STATE30 

17. 

.SIN2R0 

. CQS2R0 

, C0S2G* 

STATE30 

18. 

CQMHON/GENF/ 

GENF 

19. 

♦0*8(20) 

,0KGP(2O,2> 

, VAROC  9 ) 

,TOL(  9 ) 

,S VARC 10 ) 

.UDCC20 ) 

, 

GENF 

20 

♦ AC  9,9) 

,AC0N(9> 

, BCQNC 9 ) 

, COT 1( 9,9) 

, OCONt  9 ) 

,OTP 

, 

GENF 

21. 

♦ OTS 

,0T 

, G' 

DP50 

,0 

,os 

, 

GENF 

22. 

♦R 

,RE 

WACH 

,PA 

, HO 

;cs 

, 

GENF 

23. 

« VNU 

.PAR 

.ROB 

,CSR 

, YNR 

,su*so 

, 

GENF 

29. 

♦SVSQ 

.TinEPH 

TIMES 

, TOP  ' 

,TOS 

, TRC  9 > 

, 

GENF 

25 

»T$T( 20  ) 

,TPH  tZO) 

0 1 S( 20  ) 

, D1PC  20  ) 

,T 

, 

GENF 

26. 

♦TLPU20) 

,TLS1  (20) 

, DIP  1(20 ) 

, 01  SIC  20  ) 

,TI*E 

,0*P 

, 

GENF 

27. 

♦T i RPR 

.LIFT 

,DRAG 

.TAX 

, T BURN 

, T8UI 20 ) 

, 

GENF 

28. 

♦ AE 

,FP 

, FPOLO 

, FPD 

,*ACHR 

, *ACHV 

, 

GENF 

29 

♦OR 

,QV 

,FVAC 

, LIFTV 

GENF 

30. 

♦L1FTR 

.LIFT  A 

DRA6V 

'ORAGR 

DR  ASA 

, 

GENF 

31. 

♦ 

UFTM 

'OBR 

,DB 

,I$P 

Jspf 

, 

GENF 

32. 

♦ 

ULFT 

, ULFT  V 

, ULFTfl 

, ULFTA 

, 

GENF 

33. 

♦ xnCG 

.XrtCSV 

. xncsR 

. xmcga 

,X*CG* 

CODAE 

, 

GENF 

39. 

•CULFT 

,CT 

.CALPHA 

, DDE 

,oeltae 

,SIO 

, 

GENF 

35- 

♦COD 

.SIDAE 

, XC6 

,ZC6 

,XJ 

GENF 

36. 

COrtROK  / GENF  / 

GENF 

37. 

♦ XJV 

, X JR 

, GH 

, GA**AO 

, XK6 

,XKP 

, 

GENF 

38. 

♦FRATED  , 

IftATED 

GENF 

39. 

•PI 

,P2 

>3 

XKl 

,XK2 

. XK3 

GENF 

90. 

• XK1T 

,XK2T 

, XK3T 

, XK1D 

, XK2D 

, XK30 

GENF 

91. 

• XKl  A 

,XK2A 

. XK3  A 

, XKl  V 

,XK2V 

, XK3V 

, 

GENF 

92. 

♦ XKIG 

, XK2G 

. XK3G 

, XK1P 

, XK2P 

, XK3P 

GENF 

93. 

• XK1R 

,XK2R 

. XK3R 

. XK10 

, XK20 

, XK30 

GENF 

99. 

♦ XK1U 

,XK2U 

, XK3U 

.XKl* 

,XK2fl 

XK3* 

GENF 

95. 

• PV 

,PG 

,PP 

, PR 

,P0 

, OP  DYC  3,8) 

GENF 

96. 

REAL  LIFTR  . LIFT  . 

LIFTA.LIFTfl 

1 , 

HACK, 

RACHR, 

GENF 

97. 

♦ ISP,  ISPF 

' HACHV.UFTV  . irated 

FRAT 

98. 

DIMENSION 

tPHlf  10  KTST1C  10) 

GENF 

99. 

EQU1 VALENCE!  TLPl.TPhl 

) . C TLS1 .TST1 ) 

GENF 

50. 

EQUIVALENCE  IVAR.VI.COVAR.VT) 

0TF3 

51. 

oi neusioN 

VC  9).  VT(  9) 

DTP  3 

52. 

ENTRY  DTP 

0TF3 

53. 

1=1 1 

DTF3 

59. 

C 

COHN 

55. 

C 

I TEST  FOR  FUNCTION 

CUT-OFF 

YES  GO  TO 

m 

CORN 

56. 

IFt  1 . 6T . 7 ) 

GO  TO  20 

0TF3 

57 

C 

CDflN 

58. 

C 

II  STATE  CUT  OFF  PRELI* 

CALC. 

CORN 

59. 

VU)  - 

SVYC I+l) 

DTF3 

60. 

HP  = OH  - 

VU) 

0TF3 

61 

VTI  - VTCI) 

0TF3  * 

62 . 

10  CONTINUE 

DTF3 

63. 

c 

CORN 

69 

c 

Il-A  TEST  FOR  PASSING  CUT-OFF 

COHN 

65 

IF  ( ABSUU.LT.l.E-10)  60  TO  30 

DTF3 

66. 

c 

CQMN 

67. 

c 

1I-B  CALCULATE  TRUNCATED  INTEGRATION  STEP 

CORN 

68. 

c 

USING  QUADRATIC  APPROXIMATION 

CORN 

69 

fi£Z=  HP/H 

0TF3 

70. 

AA=  ( I . +REI ) 

DTF3 

71. 

A2=REZ*BEZ 

0TF3 

72. 

C = A2*AA 

DTF3 

73. 

B =AA*C 1.-A2) 

0TF3 

79. 

A As  l.-B 

0TF3 

75. 

DTF3=  AA*SVY1 1 ) + B*Tl*E  +C*H  /VTI  - TIRE 

0TF3 
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Subroutine  ELI 


Entry  EL1001,  EL1000 
Purpose 

Subroutine  ELI  is  a governing  equation  for  the  computation  of  the  engine, 
deflection  component  of  the  in-plane  control  vector.  It  corresponds  to 
fixed  engine  deflection. 

Description 

The  in-plane  control  vector  computation  is  described  in  Volume  I, 
Section  9. 
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FOR  THAN 
SVHttUl 

hath 

symbol 

CODE 

DESCRIPTION 

S T [>B  a 

SU*A0UT I 

USAGE 

BLOC* 

LOC 

5UBR  i 

CDOt 

Vftfi 

COE 

I 

Constant  value  of  engine  deflection 

( rao ) 

/GENF 

/( 

553) 

ELI 

I 

COE 

PROPS 

0 

COE 

PROP  I N 

0 

COE 

DELTAE 

h _ 

] 

Engine  global  deflection  angle 

( RAD  ) 

/GENE 

/( 

55H  ) 

BLGCON 

fl 

DELTAE 

E 

ELI 

I 

DELTAE 

OUT 

I 

DELTAE 

REU3 

0 

DELTAE 

VT 

I 

□ELTAE 

XK2 

0 

Second  control  vector  governing  equation  xi 

,tue.  If 

/GENF 

/( 

573) 

ELI 

0 

XX2 

non-trivial  corresponds  to  error  In  noaent 

ba  lance 

EL2 

0 

XX2 

XK2D 

0 

Partial  of  governing  equation  nrt  state  or 

contro  l 

/ GENF 

/( 

579  ) 

ACCEL 

I 

XK2D 

vector  component 

BLGCON 

: 

X * 20 

ELI 

0 

XX2D 

EL2 

0 

XX2D 

30  OCT  72  G 01-46 
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ELI 


1. 

2 

3 

SUBROUTINE  ELI 
CQrmG«/6ENF/ 
♦0*6(20)  .0HGPC20 

, 2 1 , VARflt  9 ) 

,TOL( 9) 

, SVAfiC 101 

,UOC( 20) 

ELI 

GENF 

GENF 

9. 

*AC9,9) 

,AC0N(9) 

,BCON(  9 ) 

#OOTI( 9,9  1 

,DCON<  9) 

, DTP 

GENF 

5. 

♦OTS 

,DT 

^6 

#opsa 

,Q 

'os 

GENF 

6. 

♦fi 

,RE 

. nACM 

,PA 

,ao 

, DS 

GENF  , 

7. 

♦VNU 

, PAB 

, BOR 

, CSR 

. VNR 

•SUrtSQ 

GENF 

8. 

♦SVSQ 

.T1P1EPH 

.TIRES 

,TOP 

,TOS 

'TR( 9 ) 

GENF 

9 

♦TSTC20)  ,TPH  ( 20  ) , DISC  2C ) 

, 01  PC  20  7 

,T 

GENF 

10. 

♦TLP1C20)  .TLS1  ( 20  J.DIP  It  20  ) 

,DI SIC  20  > 

, TI*E 

,0*P 

GENF 

n. 

♦T1HPR 

.LIFT 

,0RA6 

,TAX 

,TBURN 

.TBUC  20) 

GENF 

12 

♦ A£ 

,FP 

.FPOLO 

,FPD 

, fflACHR 

,flACHV 

GEKF 

13, 
1 9. 

•OR 

♦liftr 

,0V 

.LIFTA 

,FVAC 

, LI  FT  V 
DRAGV 

'ORAGR 

.DRAGA 

GENF 

GENF 

15 

♦ 

LIFT* 

'dbr 

,0B 

,ISP 

,1SPF 

GENF 

16. 

* 

ULFT 

, ULFT V 

, ULFTR 

, ULFT  A 

GENF 

17. 

♦ XrtCG 

,XrtCGV 

,X«CGR 

.XMCGA 

, xnccn 

. COO AE 

GENF 

18. 

♦CULFT 

,CT 

XALPHft 

.DDE 

, DELTAE 

,510 

6ENF 

19. 

♦COD 

.SIDAE 

,XCG 

,ZCG 

,XJ 

• 

GENF 

20. 

21. 

connON 

♦XJV 

/ GENF  / 
.XJR 

,6H 

, GARRAO 

, XXG 

,XKP 

GENF 

GENF 

22. 

23. 

♦FRATEO 

♦PI 

. f RATED 
,P2 

>3 

XK1 

, XK2 

, XK3 

GENF 

GENF 

29. 

♦XK1T 

-XX2T 

,XK3T 

,XX1D 

, XX2D 

, XK3D 

GENF 

25. 

♦XKIA 

,XK2A 

-XK3A 

,XK1V 

, XX2V 

. XK3V 

GENF 

26. 

♦XK1G 

,XK2G 

,XK3G 

, XK1P 

, XK2P 

, XK3P 

GENF 

27. 

♦XK1R 

, XK2R 

, XK3R 

,XKlO 

, XX20 

, XK30 

GENF 

28 

♦XK1U 

, XK2U 

, XK3U 

,XX1« 

. XK2H 

#XK3fl 

GENF 

29. 

♦PV 

,P6 

.PP 

.PR 

,P0 

. OPDYC  3,8) 

GENF 

30. 

REAL 

LIFTR  . LI  PT 

. LIFTA. LlFTrt  . 

J1ACH, 

OACHR, 

GENF 

31 

32 
33. 
39 
35. 

♦ ISP,  1 $PF,  RACHV, LiFTV  . 1 RATED 
OIHENSION  TPH1C  10),TSTU  10) 
EQUIVALENCE*  TLPl,TrHl  >,CTL$l,TSTn 
C0Pm0N/AEC03/ 

♦APHO  , APHR  , ALPHA  .VOA 

, GOA 

,PDA 

FRAT 

6ENF 

GENF 

AECQ3 

AEC03 

36. 

♦SINA 

,COSA 

,PKI  0 

,PHID 

, PHI 

, 5INPHI 

AEC03 

37 

♦C0SPH1 

.GOPH 

, PDPH 

, XLAflAC  9 ) 

, XLARPC  9 ) 

,000 

AEC03 

38 

♦CDOrt 

,CLO 

/ FK 

,XC6M 

,2CGH 

, CLOfl 

AECD3 

39. 

*c« 

,CflA 

.CRAfi  .CrtPI 

,cno 

,C*On 

,FKR 

AECD3 

90. 

91 

92 

93 
99. 
95 
96. 
97 
98. 

♦CLArt 
♦CD 
ENTRY 
HO  XK2D  = 
ENTRY 
50  XK2  - 
C 

RETURN 

END 

,CL 

,CDA 

EL1001 

l, 

EL1000 

DELTAE  - COE 

. CLA 
,CQfl 

,CL* 

# 

AEC03 

AECQ3 

ELI 

ELI 

ELI 

ELI 

ELI 

ELI 

ELI 
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Subroutine  ED2 


Entry  Points.  EL2010,  EL2001,  EL2000 


Pu rpose 

Subroutine  EL2  is  a governing  equation  for  the  computation  of  the  engine 
deflection  component  of  the  in-plane  control  vector. 

It  corresponds  to  variable  engine  deflection  to  balance  all  or  part  of  the 
aerodynamic  moment. 

Description 

The  governing  equation,  XK2,  computed  in  EL2,  represents  the  balance  of 
the  aerodynamic  moment  given  in  Volume  I,  equation  3.  1-12  by  the  engine 
moment  as  given  in  3.  1-17.  The  complete  description  of  the  in-plane  control 
vccToi  calculation  is  given  m Section  9 of  Volume  I.  The  entry  points,  are 
used  lor  separating  the  calculation  of  partials  derivatives  of  XK2  with 
respect  to  in-plane  control  vector  elements  and  with  respect  to  the  state 
vccto  r. 


39? 


HATH 

SYMBOL 


cost  t E ) 


5 I fl(  (>E  ) 


DESCRIPTION 


S TORAGE 
BLOCK  LOC 


bUBR  CODE  V AR 


3XCG/3b 


J See  s y »bo  1 

I Sec  symbol 

I Thrust 


I Center  of  gravity  body  x station 
1 See  symbol 

I Engine  thrust  centroid  body  x station 

1 Control  blend  factor 

1 Partial  of  blend  factor  ort  altitude 

I Partial  of  blend  factor  art  velocity 


0 Second  control  vector  governing  equation  v a 1 u e * If 
non-trivial  corresponds  to  error  in  moment  balance 

0 Partial  of  governing  equation  art  state  or  control 
vector  component 

0 Partial  of  governing  equation  «rt  state  or  control 
vector  component 


0 Partial  of  governing  equation  art  state  or  control 
vector  component 

0 Partial  of  governing  equation  vrt  state  or  control 
vector  component 

0 Partial  of  governing  equation  art  state  or  control 
vector  component 

0 Partial  of  governing  equation  »rt  state  or  control 
vector  component 

1 Aerodynamic  moment  about  center  of  gravity 


I Partial  of  XflCG  wrt  angle  of  attack 


/GENE 

/( 

554  ) 

EL2 

I 

COO 

OUT 

I 

coo 

VT 

n 

coo 

/GENE 

/C 

555  ) 

EL2 

i 

SID 

OUT 

•i 

SID 

VT 

n 

S10 

/GENE 

/( 

R11  ) 

ACCEL 

i 

T 

BLGCON 

n 

T 

BLR 

i 

T 

8L6 

i 

T 

BL7 

i 

T 

BL8 

i 

T 

EL2 

i 

T 

EQUA3 

0 

T 

FH1 

i 

T 

FH2 

i 

T 

FH3 

I 

T 

F HR 

i 

T 

I ibpul 

i 

T 

OUT 

I 

T 

PROPB 

0 

T 

PROPIN 

0 

T 

REU3 

0 

T 

S0ER3 

i 

T 

/GENE 

/( 

558) 

EL2 

i 

XCG 

E3UA3 

i 

xce 

VT 

i 

XCG 

/AECO  3 

/( 

38  ) 

EL2 

i 

XCGH 

EQUA3 

0 

XCG« 

VT 

1 

XCSfl 

/ARCDAT/I 

3R  ) 

EL2 

I 

XE 

/GENE 

/( 

560  ) 

EL2 

I 

XJ 

EQUA3 

1 

XJ 

OUT 

I 

XJ 

VT 

1 

XJ 

/GENF 

/( 

562) 

EL2 

I 

XJR 

CQUA3 

0 

XJR 

VT 

i 

XJR 

/GENF 

/( 

561 ) 

EL2 

i 

XJV 

EQUA3 

0 

XJV 

VT 

I 

XJV 

/GENE 

n 

573  > 

ELI 

0 

XX2 

EL2 

0 

XK2 

/GENE 

/( 

582) 

ACCEL 

i 

XKZA 

BLGCON 

i 

XK2A 

EL2 

0 

XKZA 

/GENE 

/( 

579  ) 

ACCEL 

i 

XK2D 

BLGCON 

i 

XK2D 

ELI 

0 

XK2D 

EL2 

0 

XK2D 

/gene 

/( 

603) 

EL2 

0 

XK2I9 

/GENE 

/( 

59R) 

EL2 

0 

XK2R 

/GENF 

/< 

576  ) 

BLGCON 

I 

XK2T 

EL2 

0 

XK2T 

/GENF 

/( 

585  ) 

EL2 

0 

XK2V 

/GENF 

/( 

599  ) 

EL2 

I 

xncs 

OUT 

I 

XPICG 

VT 

n 

xncs 

/GENF 

/( 

597  ) 

EL2 

l 

XP1CGA 

VT 

n 

XDCGA 
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to 

cr 

rO 


FORTRAN 

svobol 

miuw 

Svnaou 

CODE 

DESCRIPTION! 

STORAGE 

SliafiiUlTINE 

USAGE 

BLOCK 

LOC 

SUBR 

CODE 

VaR 

xnCGn 

I 

Partial  of  XflCG  ert  attl 

/ GENF  /( 

5RB  ) 

ELZ 

i 

xncsn 

VT 

n 

XflCGfl 

XMCGR 

I 

Partial  of  XPlCG  airt  altitude 

/GENE  /( 

5 HE.  ) 

ELZ 

i 

X-rtCSR 

VT 

n 

XDCGR 

xnCGV 

l 

Partial  of  XflCG  »rt  velocity 

/GENF  /( 

5H5) 

EL2 

i 

XDCSV 

VT 

n 

XflCGV 

ZCG 

Z„- 

I 

Center  of  gravity  body  a station 

(FT)  /GENF  /( 

559  ) 

EL2 

i 

ZCG 

CG 

EQUA3 

i 

ZCG 

VT 

i 

ZCG 

ZCGM 

I 

See  symbol 

/AEC03  /( 

39  ) 

EL2 

i 

zcGn 

u> 

EQUA3 

0 

ZCGN 

VT 

I 

ZCGN 

ZE 

Z-- 

I 

Eftjlne  thrust  centroid  body  I stetioh 

/ ARCOAT/C 

35  ) 

EL2 

I 

ZE 

E 

VT 

I 

ZE 
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vT 

xO 
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1. 

SUBROUTINE  EL2 

EL2 

2 

CONNDN/GENF/ 

GENF 

3 

• 0«G*  20 ) 

,0*SP*  20,2) 

VASQC  9 ) 

, TOL*  9 ) 

SVAR* 10) 

, UDC*  20) 

SENF 

9. 

♦A(9,9) 

, ACON* 9 ) 

.8C0N19) 

, COTI ( 9,9) 

,OCONC  9 ) 

, DTP 

GENF 

5. 

♦ DTS 

,0T 

,e 

,OPSQ 

,a 

,as 

GENF 

6. 

♦R 

,RE 

,PA 

,R0 

,cs 

GENF 

7. 

♦ VWU 

.PAR 

,R0fi 

,CSR 

, VNR 

SUrtSQ 

GENF 

8 

♦ SVSO 

_TI  J9EPH 

,T IflES 

,TOP 

,T0S 

,TR<  9 ) 

SENF 

9. 

♦TST*  20) 

,TPH  ( 20  ) 

,015*20) 

, DIP*  20 ) 

,T 

GENF 

10. 

♦ T LP It  20  ) 

,TLS1  120) 

,GIf 1(20  ) 

,0151*  20 > 

.TIrtE 

,o«p 

GENF 

11. 

♦TIHPR 

.LIFT 

,OfiAG 

,TAX 

TBURW 

TBU* 20 ) 

SENF 

12. 

♦ AE 

,FP 

,FPOLD 

,FPO 

,*ACHR 

,RACHV 

GENF 

13 

♦OR 

,QV 

,FVAC 

, LIFTV 

GENF 

19. 

♦LIFTR 

, LIFT  A 

CRASV 

'ORAGR 

, DR ASA 

6ENF 

15. 

* 

LIFT* 

,DBR 

,DB 

,1SP 

. I5PF 

GENF 

16. 

♦ 

ULFT 

, ULFTV 

,ULFTR 

, ULFT A 

GENF 

17. 

♦xncs 

, XflCGV 

,X«CSfl 

, XftCSA 

, XfICGH 

, CO  DAE 

SENF 

18. 

♦CULFT 

,CT 

,calpha 

,cee 

.QELTAE 

,SIO 

GENF 

19 

♦COO 

.SI  DAE 

,xcs 

,ZCG 

,XJ 

GENF 

20. 

CO ANON  / GENF  / 

GENF 

21. 

♦ XJV 

,XJR 

,GH 

, SfirtflAD 

,XK6 

,XXP 

SENF 

22. 

♦FRATED  , 

IRATEO 

GENF 

23. 

•PI 

,P2 

>3 

XK1 

XK2 

XX3 

GENF 

29. 

♦ XK1T 

, XK2T 

,XX3T 

, XX1D 

,XX2D 

,XK3D 

GENF 

25. 

♦ XK1 A 

, XX2A 

,XX3A 

,X«1V 

,XK2Y 

,XX3V 

GENF 

26. 

♦ XK1S 

XK2G 

,X*3S 

,XUP 

, XX2P 

XK3P 

GENF 

27 

♦ XX 1R 

,XK2R 

, XX3R 

,XX10 

XK20 

,XK30 

GENF 

28. 

♦ XKltl 

, XK2U 

,XK3l) 

, XX  IN 

,XX2« 

, XX3H 

GENF  I 

29. 

*PV 

.P6 

,PP 

-PH 

,F0 

,0PDY( 3,8) 

GENF 

30. 

REAL  LlFTft  . LIFT  . 

LI  FT  A . UIFT#1  . 

HACK, 

HACHR, 

GENF 

31 

♦ ISP,  ISPF 

. NACHV.L1FTV  . IRATEO 

FRAT 

32 

DIMENSION 

TPH14  lO).TSTl(iO) 

GENF 

33. 

EQUIVALENCE* TLPl.TPHl ),<  TL51 .TSTi ) 

GENF 

39 

CONW3N/STATE3/ 

STATE3D 

35. 

♦ VAR(  19) 

, OVAH  *19) 

,VAHL  <991 

,OVARL*  99 ) 

,Y0( 9 ) 

S VY( 10) 

STATE3D 

36. 

♦ XL<  9 9) 

, YDPt  20.9  )_ 

YBS  (20, 9J, 

CGSSftrt 

, 5 1 NS AN 

,S AVBP* 15 ) 

STATE30 

37. 

♦S1NPSI 

.COSPSI 

, 5 INfiHD 

, COSRHO 

,DCORHQ 

,0C0R02 

STATE30 

38. 

♦SVBV  <91 

\t  OrtEGA 

,0«E6«2 

STATE3D 

39. 

♦ VDV 

, 6DV 

.ROY 

'«DV 

PDV 

,00V 

STATE3D 

90. 

♦ UDV 

, VDG 

,606 

,R£>6 

,POS 

COG 

STATE3D 

91. 

♦ UDS 

. VDfi 

, 60R 

,ftOR 

,PDR 

,ODR 

STATE30 

92. 

♦ UDfi 

,VD* 

,SOR 

,rt[)R 

,PDH 

,VOP 

STATE3D 

93. 

♦ SOP 

,PBP 

.OOP 

,UDP 

, VDO 

,COO 

STATE3B 

99. 

♦ POO 

, UDC 

, HTOV 

,HTOR 

STATE3D 

95. 

real  non  . 

nov.  itdr 

STATE30 

96. 

C0FM0N/STATE3/ 

STATE30 

97. 

»SIHZR0 

.COSZRO 

,C0S28S 

ST ATE30 

96. 

CQFU*0N/AEC63/ 

AEC03 

99. 

♦ APHO 

. APMft 

, ALPHA 

, VO  A 

, SOA 

,P0A 

AEC03 

50. 

♦SINA 

.COS  A 

,PHIO 

, PHI  D 

, PHI 

.SINPHI 

AEC03 

51. 

♦COSPHI 

, GDPH 

,PDPH 

,XLA«A(9) 

,XLAflP*  9 > 

,C00 

AECQ3 

52. 

♦ CDOR 

CLO 

.ft 

, XCSN 

,ZCSK 

, CLOU 

9 

AECQ3 

53. 

♦cn 

,CNA 

,CHAH  ,CMA 

,C*G 

,C*Oll 

,FKn 

AEC03 

59. 

♦CLAN 

,CL 

, CLA 

,CL« 

AEC03 

55 

♦CO 

,CDA 

,C0« 

* 

AECQ3 

56.  C 

EL2 

57. 

CORDON/ ARCDAT/ 

ARCDAT 

58. 

♦SREF 

, EJ 

,X1SP 

,TRULT 

,BTNC 

,DTPI 

ARCDAT 

59. 

♦ IATN 

, 1 NODE 

,JAER 

,JPR0 

,fl«AX 

,GflAX 

ARCOAT 

60 

♦XLHAX 

HDAAX 

,6H00T 

, AlFHAX 

.PHflAX 

NAEA 

ARCDAT 

61. 

♦ftAEB 

HAEC 

,HAED 

,n«EE 

,«AEF 

, NAEG 

ARCDAT 

62. 

♦m 

,HISP 

,nSCG 

,flZCG 

,9JBA 

,«UOB 

ARCDAT 

63. 

♦ NOB 

, XCGR 

,ZC6R 

,XE 

, XT 

ARCOAT 

69. 

♦ DREF 

,nCMD 

,RH0B 

,Q*ULT 

,REflAX 

ARCDAT 

65. 

♦ ,FRATE  _ 

ARCDC9) 

RETAP 

66. 

DIMENSION 

ARC0AC90) 

ARCOAT 

67. 

EQUIVALENCE*  SREF. ARCOA) 

ARCOAT 

68 

ENTRY  EL2010 

EL2 

69. 

ASSIGN  20 

TO  160 

EL2 

70. 

SO  TO  9 

EL2 

71. 

ENTRY  ELZ001 

EL2 

72. 

ASSIGN  90 

TD  1 60 

EL2 

73. 

GO  TO  5 

EL2 

79. 

ENTRY  EL2GQ0 

EL2 

75. 

ASSIGN  50 

TO  160 

EL2 
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SUBR0UT INE 
ENVPRM 


Subroutine  ENVPRM 


Entry  Points.  ENVPRI 
Purpose 

ENVPRM  computes  steepest-descent- solution  trajectory  environmental 
parameters  that  affect  vehicle  weight.  It  is  used  with  SSSP  sizing  synthesis 
problems  only. 

Description 

Subroutine  ENVPRM  is  called  by  MODELA  at  every  compute  interval  of  the 
steepest  descent  solution  trajectory  on  SSSP  type  sizing  problems. 

On  branched  trajectories  having  an  atmospheric  entry  portion,  it  computes 
maximum  dynamic  pressure  times  angle  of  attack  product  (qff),  threshold 
heat  load,  and  maximum  total  load  factor. 

During  boost,  it  computes  maximum  dynamic  pressure  and  also  saves  the 
velocity,  altitude  flight  path  angle,  time,  and  Mach  number  at  the  point  where 
the  maximum  dynamic  pressure  occurs. 

Entry  point  ENVPRI  initializes  the  threshold  heat  load  to  zero  at  the 
beginning  of  the  trajectory. 
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rnMRAN  HATH 

SYMBOL  SYriBOL 


CODE 


DESCRIPTION 


SUBROUTINE  USAS 

SUflfi  CODE  VAfT 


DRAG 


DVAR 


HT1 
I ARC 


1 NTS 


LIFT 


ftACH 


D 


L 


I 


I 


u 

1 


I 


I 


Aerodynamic  drmg  (LBS) 


State  vector  derivatives  In  steepest  descent  aodule 


Current  heat  load  above  threshold 
Arc  number 


Branching  and  Interaediate  constraint  flag 


Aerodynamic  lift  (LBS) 


Rich  nuaber 


/SENF  /( 

497)  ACCEL 

2 

DRAG 

BL5 

I 

DRAG 

BL7 

I 

DRAG 

blb 

I 

DRAG 

ENVPRfl 

I 

DRAG 

FM3 

I 

DRAG 

OUT 

I 

DRAG 

PROPS 

0 

ORAG 

PROPIN 

0 

ORAG 

SDER3 

l 

DRAG 

VT 

n 

DRAG 

/STATE3/< 

15)  ADICB3 

Ft 

DVAR 

ADIC3A 

I 

DVAR 

AD2D3A 

ft 

DVAR 

DER3A 

0 

VD 

DTF3 

I 

VT 

ENVPRft 

I 

DVAR 

PDBC 

I 

VD 

PROPIN 

0 

DVAR 

REU3 

I 

DVAR 

RKTA3A 

I 

DY 

S0ER3 

0 

DVAR 

STP3 

I 

DVAR 

YREF3 

I 

DVAR 

YBEF3 

I 

VT 

/ENVPfln/< » 

> ENVPRft 

y 

HT1 

/XC00ES/( 

146)  ADICB3 

l 

I ARC 

A0ID3A 

i 

I ARC 

ADJUST 

i 

I ARC 

AST3 

i 

1 ARC 

BNTG 

ft 

1 ARC 

ENVPRft 

1 

I ARC 

FNTG 

ft 

1 ARC 

GETIT 

I 

I ARC 

rtOOELA 

i 

I ARC 

PROPB 

i 

I ARC 

PROPIN 

i 

I ARC 

BEU3 

i 

I ARC 

5DINP 

« 

1 ARC 

STAU 

i 

I ARC 

STP3 

i 

I ARC 

TRTOSI 

I 

J ARC 

/XCDDES/< 

31)  A0IC3A 

I 

INTB 

BNTG 

I 

INTB 

ENVPRft 

I 

INTB 

FNTG 

I 

INTB 

sdinp 

ft 

INTB 

TEST 

I 

INTB 

TRAN3 

I 

INTB 

TfiTOSZ 

I 

INTB 

/SENF  /( 

496)  ACCEL 

l 

LIFT 

BL4 

I 

LIFT 

Bl5 

i 

LIFT 

BL6 

I 

LIFT 

ENVPRft 

I 

LIFT 

FH3 

i 

LIFT 

OUT 

I 

LIFT 

PROPB 

0 

LIFT 

PROPIN 

0 

LIFT 

VT 

Q 

LIFT 

/GENF  /( * 

307)  BEROCO 

1 

ftACH 

ENVPRft 

I 

ftACH 

E0UA3 

ft 

ftACH 

OUT 

I 

ftACH 

6 MOV  Jl  fi  01-46 


SS- 

< <— 


FORTRAN 

SVHBOL 


N5AS 


wsa 


0 


CALF 

OLin 

BAD 


so 


HATH 

SVftBQL 


woe  DESCRIPTION 


I Nuaber  of  ires  on  first  bnnch 


I Nuaber  of  ires  prior  to  branch  po*nt  or 
I nientdl  it*  constraint 


I Dyneoie  pressure  ( PSF  ) 


W Corr t nt  aailiui  dynanie  pressure  - ang le-of- attack 
product 

ft  Saved  value  of  aixinua  dynaaic.  pressure. 

1 Radian  to  angle  conversion,  57  29577951 


ft  A synthesis  data  array  (37,5)  that  contains  the 
flyback  data  and  soae  injection  quantities 


STQRASE  $ UBROUTI N£  USAGE 
BLOCK  LOC  5UBR  CODE  VAR 


/XC0DES/( 

I3t> 

AD1CB3 

I 

NS  AB 

BMTS 

I 

N5AB 

£MVFRft 

I 

NS  AB 

FNT6 

I 

NS  AB 

SDIWP 

ft 

NSAB 

TEST 

I 

NS  AB 

TRAN3 

I 

NS  AB 

TRTOSZ 

I 

NSAB 

/XC0DES/( 

133  ) 

ADI  CBS 

I 

NSB 

B*TG 

I 

NSB 

ENVPRft 

I 

NSB 

FNTS 

I 

NSB 

REU3 

I 

NSB 

SDIWP 

ft 

NSB 

TEST 

I 

NSB 

TRAN3 

I 

NSB 

TRTOSZ 

I 

NSB 

/GENF  /i 

303) 

ENVPRft 

I 

0 

E0UA3 

ft 

0 

OUT 

I 

a 

PDBC 

I 

a 

VT 

I 

0 

/£NVPRft/( * 

> 

ENVPRft 

y 

OALF 

/5  I ZI HG/( 

264) 

ENVPRft 

ft 

0 LI  ft 

/DATA  /< 

Z) 

BEROCO 

i 

DES 

BtSCO* 

1 

RAD 

ENVPRft 

i 

RAO 

E0UA3 

i 

RAD 

FHTG 

i 

RAD 

SUI3A 

i 

RAD 

ftODELA 

I 

RAD 

ftf  *3A 

i 

RAD 

OUT 

i 

RAD 

PADS1 

0 

RAD 

SDIWP 

2 

RAD 

TST052 

I 

RAD 

/SIZING/C 

74 ) 

ENVPRft 

ft 

SQ 

FLVBKP 

ft 

sa 

I SPRAT 

I 

so 

PDBC 

I 

SO 

PRITVA 

1 

so 

RANGE 

ft 

so 

REU3 

0 

so 

SIZE 

0 

so 

SlZEftR 

ft 

so 

S1ZIW 

ft 

so 

STAU 

I 

so 

SUflOUT 

ft 

so 

TArtPAR 

0 

so 

TAftPER 

ft 

so 

THRUST 

ft 

SQ 

TRTOSZ 

ft 

so 

VEHDF 

ft 

so 

WT  VOL 

ft 

so 

8 NOV  11  6 01-S6 


Sr  swot  cooe'  description 


STORAGE  SUBROUTINE  USAGE 

TiTUTK  LOC  SU6R  COOE  VAR 


SORT 


F Squirt  root  function 


Sv 


fl 


A synthesis  array  (28)  containing  staging 
parameters  and  «l»e  flags 


THRESH  W Threshold  heating  rata 

T I HE  ^ l Time  (elapsed) 


TU3FAC 


U Current  aatlagm  total  load  factor 


/sort  n* 


/SIZING/! 


/ENVPRfi/C* 
/GENF  /( 


/ENVPRn/< * 


1 

anlath 

F 

SORT 

CRASH 

F 

SORT 

OCTOE 

F 

SORT 

DER3A 

F 

SORT 

ENVPRH 

F 

SORT 

HUNT 

f 

SORT 

HODELA 

F 

SORT 

flOOELB 

F 

SORT 

OPUELL 

F 

SORT 

OUT 

F 

SORT 

PAT  63 

F 

SORT 

PAV02 

F 

SORT 

PDBC 

F 

SORT 

PDV3A 

F 

SORT 

STORE 

F 

SORT 

SYHVRT 

F 

SORT 

HTSCH 

F 

SORT 

> 

ENVPRH 

R 

SV 

FLY6KP 

1 

SV 

ITERS 

1 

SV 

RANGE 

1 

SV 

SIZEHR 

H 

5V 

S1ZIN 

1 

SV 

SSSP 

1 

SV 

SU.TOUT 

1 

SV 

T ARP  AH 

0 

SV 

TAHPEft 

n 

SV 

TRTOSZ 

n 

sv 

VEHDF 

n 

sv 

NT  VOL 

i 

sv 

) 

ENVPRH 

u 

THRESH 

) 

ADICB3 

0 

TIHE 

AST3 

1 

TIRE 

BNTG 

n 

TIHE 

C0N3 

i 

TIME 

0TF3 

I 

TIHE 

ENVPRH 

i 

TIHE 

E0UA3 

l 

TIHE 

FNT  6 

H 

TIHE 

HOOELA 

I 

TIHE 

OUT 

1 

TIHE 

PDBC 

l 

TIHE 

PROPIN 

1 

TIHE 

REU3 

ft 

TIRE 

RUT  A3 A 

n 

TT 

RHTB3ft 

R 

TT 

YREF3 

n 

TIRE 

) 

ENVPRH 

u 

TLOFAC 

406 
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VAfl  v 1 Relative  velocity 


W y I Weight 


< FT/SEC  1 /STATE3/C  1)  ACCEL  I V 


A0ICB3 

0 

VAR 

ADJUST 

a 

VAR 

A6ETB3 

0 

VAR 

AST3 

l 

VAR 

BL4 

i' 

i V 

BL7 

I 

V 

BL3 

i 

V 

COM3 

i 

VAR 

DER3A 

i 

V 

DTF3 

i 

V 

ENVPR* 

i 

VAR 

E0JA3 

i 

V 

WOOELA 

I 

V 

ftOOELA 

I 

VAR 

ROOELB 

i 

V 

HTX3A 

1 

VAR 

OUT 

i 

V 

OUT 

i 

VAR 

PDBC 

i 

V 

PDY3A 

l 

V 

REIJ3 

A 

VAR 

RKTA3A 

n 

V 

STP3 

l 

VAR 

TflPft 

0 

KUQW 

YREF3 

A 

V 

(LBS)  /GENF  /(  *U)  B L5  1 U 

ENVPRH  1 « 

EQUA3  rt  y 
FH3  I W 
OUT  I U 
PDBC  1 U 
REU3  1 U 
TfiTOSZ  1 W 


8 NOV  7Z  G 01-R6 
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envpr n 


1. 

SUBROUTINE  ENVPRR 

ENYPRA 

z. 

C 

C0HPUT6  ENVIRONMENTAL 

PARAMETERS  THAT  AFFECT 

UE16HT 

ENVPRrt 

3. 

BEAL  HUB 

. BUD.  ISP  ft.  ISPO.  iovel.nmb.no 

SUING 

9. 

COflrtON  /sinus' 

SIZING 

5 . 

C 

PHASE  11  SIZING  FARARERERS 

SUING 

6. 

•TZ, 

VVC  3), 

QP( 19), 

ERQR.  PZ(5).  VO. 

SW(  20), 

SUING 

7. 

• SVC  281. 

$0137.5). 

SE(  11), 

TLAT, 

1LNG, 

SIZING 

8. 

C 

PHASE  1 SIZING 

PARANCRERS 

SIZING 

9. 

•UIBO, 

ULOO, 

DUES, 

DUEO, 

TOLUT.  WPB, 

TURAT2. 

SIZING 

10. 

•BKl, 

BX2, 

BX3, 

BK9 . 

15IZE,  TRAFLG,  TbIRATO, 

SUING 

II. 

•OKI, 

0X2, 

0X3, 

0X9, 

prflg.  ipass.  ipshax. 

SIZING 

12. 

•AEXJT. 

TVACO, 

NO, 

UFO . 

IOVEl,  ISPO 

, ISPB 

SI  ZING  r 

13. 

•XPL, 

TVACB, 

NNB 

UEO- 

UEB.  UO. 

ULO, 

SIZING 

19. 

•DVO, 

OVB, 

RUB, 

nuo. 

VSTG,  «P0 

SIZING 

IS 

* . JTVP  . 

&ECO  , 

BSTG  , 

0R3I,  ITNBU  . man 

SIZING 

u. 

• SVDPSQ 

. SVDCON 

, I HUNT 

10PSTG  . 1$ZD( 19 > 

* 

UH 

17. 

COfirtON/GENF/ 

GENF 

18 

*0ft8<  20) 

.On GP< 20 

,21-VARac9) 

.T0LC9  > 

-SVARl 10) 

,UDC<20) 

f 

6ENF 

19. 

*A<9,9) 

- ACONC  9 ) 

, BCON{  9 ) 

, con  c 9 

,9)  -DC0NC9) 

.DTP 

SENF 

20. 

♦UTS 

,DT 

\ G 

,DP5B 

,0 

,os 

r 

GENF 

Zl. 

•R 

>E 

,RACH 

,PA 

,R0 

,CS 

* 

6ENF 

22. 

• VNU 

.PAR 

,ROR 

, CSR 

VNR 

,SU*SO 

GENF  ! 

23. 

•SVSQ 

-TlrtEPH 

.TINES 

.TOP 

!tos 

,TR( 9) 

6ENF 

29. 

•TSTl 20) 

,TPH  ( 20  ), DISC  20 ) 

,01P( 20 ) ,T 

> 

6ENF 

25. 

•TIP 1C  20 ) 

- TL5 1 C 20  ) -OIP 1(20 ) ,0151(20)  .TIrtE 

- OHP 

t 

GENF  ! 

zt>. 

•tihpr 

, LIFT 

DRAG 

, T AX 

,TBUR« 

-TBUC 20) 

a 

GENF  ! 

27. 

•AE 

,FP 

,FPOLD 

, FPD 

,NACHR 

, NACHV 

, 

GENF 

28. 

•OR 

,ov 

, F V AC 

, L1FTV 

6ENF 

29. 

• LJFTR 

, LI  FT  A 

dragv 

,DRA6R 

,ORAGA 

GENF 

30. 

* 

LIFT* 

'O&R 

,0B 

,ISP 

, 1 SPF 

GENF 

31- 

* 

ULFT 

, ULFT V 

,ULFTR 

, ULFT  A 

GENF 

32. 

•xncs 

,xncsv 

,XMCGR 

, XP1G6A 

,X«C6« 

_ CODAE 

9 

GENF 

33. 

•CULFT 

,CT 

CALPHA 

,CDE 

,DELTAE 

,SID 

r 

GENF 

39. 

• COO 

.SIDAE 

,XC6 

,zca 

,XJ 

GENF 

35- 

cannon  / 

&ENF  / 

GENF 

36. 

• XJV 

. X JR 

,GH 

, GARHAD 

,XX6 

,XXP 

GENF 

37. 

•PRATED 

,IRATED 

GENF 

38. 

•PI 

,P 2 

^3 

,XX1 

XK2 

, XK3 

9 

GENF 

39. 

• XX1T 

,XK2T 

,XK3T 

, XKlD 

,XK2D 

, XX30 

9 

GENF 

90. 

• XXIA 

,XX2A 

, XX3A 

, XKl  V 

,XK2V 

,X*3V 

9 

GENF 

91. 

•XK1S 

, XK2S 

,XK3G 

. XK1P 

,XX2P 

,XX3P 

GENF 

92 

• XK1R 

, XK2R 

, XX3R 

, XK10 

,XX20 

, XK30 

r 

GENF 

93. 

• XX1U 

XK2U 

,XK3U 

, XX 1 N 

,XX2ft 

,XK3rt 

t 

GENF 

99. 

♦PV 

.PS 

.PP 

.PR 

,OPDV( 3, 8 ) 

GENF 

95. 

REAL  LlFTR  , UFT 

, L1FTA,L1 FTfl  , 

MACH, 

rtACHR, 

GENF  1 

96. 

* ISP.  1SPF.  rtACHV. 

UFTY  . J RATED 

FRAT 

97. 

DIMENSION  TPHIC  lOJ.TSTUlO) 

GENF 

98. 

EOUI VALENCE! TLP 1 .TPH1 ). ( TLS1 . 

TSTl) 

GENF 

99. 

corrnoN  /xcodes/ 

XCODES 

50. 

• ITQ  C 9 ).  jCOft  (201,111 

,intb 

, JGI  D(  20-2  >,  JFH  (20,2), 

XCODES 

51. 

»JST  (20) 

,NCNST 

,NSB 

“,NSAB 

>N)CNB 

9 

XCODES 

52. 

• I20P 

,ICOP 

_ IFAU 

, IFAR 

,ifb 

,INO 

f 

XCODES 

53. 

•IOPEN 

,1PH 

,ISPH 

,I5ST 

,1  ARC 

, 15TART 

f 

XCODES 

59. 

*ITCT 

.ITER 

-IVAR 

,JV 

,JPS 

g 

XCODES 

55. 

• KOP 

, KPST 

> 

,RST 

,nad 

, NCASE 

t 

XCODES 

56. 

• WON 

, NEOB 

,NEO 

.NOP 

,NPH 

9 

XCODES 

57. 

• NST 

, IPST 

,IPRINT 

,ISTN 

,1PHN 

, I STNB 

t 

XCODES 

58. 

•IPHNB 

. I BLK1 

, 1 BLX2 

, I5T0P 

I STPP 

,L 

t 

XCODES 

59. 

• IFOB 

'nb 

, LB 

> BB 

-HPHP 

, NP  H& 

r 

XCOOES 

60 

• NCT I H 

- NEQF  , 1 LABC  8 >, JPRP 

,0311, HTT, 

rtPlNC20),JPl,JP2.JP3 

XCODES 

61 

COMMON/ DATA/ 

DATA 

62. 

•PI 

,RAD 

,RDI 

-SC 

,UNF 

,TflPF 

DATA 

63. 

•FTNrt 

.CAR 

.J0P1 

,J0P2 

, J0P3 

,J0P9 

DATA 

69. 

EQUIVALENCE  ( SEC  6 ) , QLI rt  ) 

ENVPRrt 

65. 

C0N«0H/STATE3/ 

STATE30 

66. 

*VAR( 19) 

, DVAR  (19 ), VAfiL  ( 99 ) , DVARLC  99 ) ,YQC9) 

,SVY( 10) 

5TATE30 

67. 

• XU  9-9  ) 

.Y0PC20, 

9 ) YDS  (20, 

9)  COSGAN 

,S iNGAfl 

, 5AVBP( 15 ) 

STATE3Q 

68- 

*SINP£j 

.COSPSI 

-SINFHO 

, COSRHO 

,OCORHO 

, 0COR02 

. 

STATE30 

69. 

•SV&V  (9),0flE6A 

. 0WEGA2 

STATE30 

70 

•VDV 

, GDV 

,RDV 

,NDY 

,POV 

,ODV 

f 

STATE30 

71. 

•uov 

- VOG 

,606 

,R06 

,P0fi 

,006 

t 

STATE30 

72. 

♦ UDG 

, VOR 

, GDR 

,rtDR 

,PDR 

, OOR 

9 

STATE30 

73. 

• DOR 

,VD* 

, GDfl 

, ADR 

,PON 

, VDP 

STATE30 

79. 

• GOP 

,PDP 

, ODP 

,UDP 

,voo 

, 6DQ 

9 

STATE30 

75. 

•PDO 

,000 

, HTOV 

,HT  DR 

STATE30 
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76 

71 

76. 

74 

80 

C 

REAL  «D*  . MOV,  MOR 
C0P1H0N/STATE3/ 

*$I N2R0  . COS2RO  ,C0S2Sfl 

lFtINTB  EQ  2)  SO  TO  100 

I maximum  dynamic  pressure 

STATE30 

STATE30 

5TATE30 

ENVPRM 

ENVPRfl 

100— 

81 

10 

1 Ft  IARG.SE  IFmSQU,3))>  RETURN 

ENVPR5 

82. 

l r c a.ut  dun  > return 

ENVPRK 

83 

OLIH  = a * 

ENVPRM 

84 

50(5, 1>  = TIKE 

ENVPRM 

85. 

SQ<6,1)  = VAR(3) 

ENWFRM 

86. 

S0(T,1)  = VABcl) 

ENVPRM 

87 

50(8,1)  = VAR(2)»RAD 

ENVPRM 

88 

50(5.1)  = AACH 

ENVPRM 

89 

RETURN 

ENVPRM 

9C . 

c 

11  BRANCH  TRAJECTORY  TEST 

ENVPRM 

91 

100 

1F( 1 ARC  L£  NS8)  GO  TD  10 

ENVpRiq 

To=3 

92 

1F< IF!X(50( 1,3))  LE.NSB+NSAB)  GO  TO  120 

ENVPRM 

120—, 

93 

1 FC 1 ARC  GT.NSB  AND  IARC. LE.NSB+NS AB ) 60  TO  200 

ENVPRM 

200—i 

94. 

RETURN 

ENVPRM 

_ ' 

95 

120 

1F( 1 ARC  GT  NSB+NSA& ) GO  TO  200 

ENVPRM 

Ioo= 

96 

RETURN 

ENVPRM 

97. 

c 

111  ENTRY  TRAJECTORY  PARAMETERS  Q*SLPHA  AND  HEAT  RATE 

ENVPRM 

98. 

200 

CONTINUE 

ENVPRM 

99 

OALF  =o*aphr 

ENVPRM 

ioo. 

1F(0ALF  GT.SY(l)  ) SV(U  = 8ALF 

ENVPRM 

101 

TLOFAC  = SflRTt  L1FT+LIFT  +DRAG*DRAG>  / U 

ENVPRM 

102 

IF(  TLOF AC  ST  $V<27))  SV<27)  = TLOFAC 

ENVPRM 

103 

c 

1 1 1 A THRESHOLD  HEAT  LOAD  AND  TIME 

ENVPRM 

104 

IF( THRESH  ST  0 ) GO  TO  220 

ENVPRM 

220 — 

105. 

1F( DVARt  8 ) . LT  SQC  30,2  ) > RETURN 

ENVPRM 

106 

THRESH  = TIME 

ENVPRM 

107 

HT1  - VAR(8) 

ENVPRM 

108. 

RETURN 

ENVPRM 

ENVPRH 

ENVPRM 

ENVPRH 

EKVPRrt 

ENVPftrt 

ENVPfiW 

ENYPRM 

ENVPfiH 
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109  220  2F<DVftfU6>  LT  Sfl<30,2>>  RETURN 

110  $Q<30,3)  = TIME  -THRESH 

111  SQ( 30,4)  -VAR{ 8 ) - HT1 

112.  RETURN 

113  ENTRY  ENVPRI 

114  THRESH  =0. 

115.  RETURN 

IH.  END 


4®s 


SUBR0UT INE 
EQUA3 


410 


Subroutine  EQUA3 


Entry  Point.  EQUA 


Purpose 

Subroutine  EQUA3  computes  functions  of  state  only  during  the  integration  of 
the  forward  steepest  descent  trajectory  and.  also  during  the  adjoint 
integration. 

De  scription 

The  basic  logic  of  this  subroutine  depends  first  of  all  on  whether  a vacuum 
simulation,  IATM=3,  is  desired  and  second  whether  a forward  or  adjoint 
integration  is  in  progress.  Secondary  logic  accounts  for  the  types  of  table 
look-ups  that  are  required  according  to  simulation  options. 


i ott  f HAN 
LvnttOL 

PUT  H 

symbol 

COOE 

DESCRIPTION 

51  ORA 
BLUIK 

3E 

LOC 

s uRHOtr 
StfBR  1 

t I Nf 
LO  0 E 

VAR 

ALT 

K 

I 

Alt) t ude 

/STATE3/t 

3 ) 

E0UA3 

1 

ALT 

OUT 

I 

ALT 

POBC 

I 

ALT 

COO 

c„ 

I 

Dr  i g coefficient  it  «*  = 0 

/ AEC03  /< 

31  ) 

BEROCO 

I 

CQO 

Do 

E0UA3 

I 

COO 

CDOH 

ac,,  /an 

I 

See  tyabol 

/AEC03  /( 

35  ) 

BEROCO 

I 

COOH 

uo 

EQUA3 

I 

CDOH 

CLA 

c, 

tl 

Lift  coefficient  slop* 

/AECQ3  /( 

50  ) 

BEROCO 

rt 

CLA 

L* 

E0UA3 

n 

CLA 

VT 

i 

CLA 

CLAN 

ac.  /an 

H 

See  syabo) 

/ AEC03  /( 

18) 

BEROCO 

i 

CLAH 

EBUA3 

CLAH 

CLO 

c, 

I 

Lift  coefficient  it  * - 0 

/AEC03  /( 

35) 

BEROCO 

i 

CLO 

Lo 

E0UA3 

i 

CLO 

CLOrt 

ac.  /an 

I 

5ee  syobol 

/AEC03  /< 

10  ) 

BEROCO 

i 

cloh 

Lo 

EBUA3 

i 

CLOH 

cm 

c„ 

n 

Flo»ent  coefficient  slope 

/AEC03  /( 

12) 

EOUA3 

n 

CHA 

WAHECO 

i 

CHA 

VT 

i 

CHA 

CHAH 

ac„  /an 

n 

See  syabol 

/AEC03  /t 

13  ) 

EQUA3 

n 

CHAH 

Na 

HAHECO 

i 

CHAH 

CHO 

c„ 

i 

floaent  coefficient  at  a = 0 

/AEC03  /( 

15  ) 

EQUA3 

i 

CHO 

*0 

HAHECO 

i 

CHO 

CHOH 

ac„  /an 

i 

See  syabol 

/AEC03  /( 

16  ) 

E0UA3 

i 

CHOH 

"0 

HAHECO 

i 

CHOH 

COSGAH 

cost  7 ) 

0 

See  synbol 

/STATE3/1 

68T) 

ACCEL 

i 

COSGAH 

BL1  I COSGAH 
BLB  1 COSGAH 
OER3A  I COSGAH 
E3UA3  D COSGAH 
HOPELA  I COSGAH 
HODELB  S COSGAH 
OUT  I COSGAH 
PBBC  I COSGAH 
P0V3A  I COSGAH 

COSPS1  cosi'f')  0 See  sy.bol  /STATE3/ C T05)  BL1  I COSPSI 

BL7  I COSPSI 
BL8  I COSPSI 
0ER3A  I COSPSI 
ESUA3  0 C05P5I 
HOOELA  I COSPSI 
HODELB  I COSPSI 
POBC  I COSPSI 
PDV3A  I COSPSI 

COSRHO  cos(o)  M See  syobol  /STATE3/1  70?)  BLB  I COSBHO 

BL7  1 COSBHO 
BLB  I COSRHO 
0ER3A  I COSRHO 
E0UA3  H COSRHO 
HODELA  I COSRHO 
HOOElS  I COSRHO 
OUT  I COSRHO 
POBC  I COSRHO 
P0V3A  I COSRHO 


CS 

a 

n Speed  of  sound 

t FT/SEC J /GENF  /( 

310) 

EQUA3 

OUT 

H 

I 

CS 

CS 

CSR 

I Oerlv  Of  speed  of  sound  mri  »lt. 

/GENF  /( 

311  > 

ESUA3 

I 

CSR 
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flAl  H 

symbol 


DESCRIPTION 


S IQtiAGE 
BlJLA  LO  L 


SUBROUTINE  USOfi 
5U8R  CODE  VAR 


08 


DBR 


DZn 


ER 


FK 


FRATE 


FVAC 


G 


GAM 

GH 


3k/an 


9 


i 

But  drag 

( LBS  ) 

/ GENF 

/( 

531  ) 

ACCEL 

I 

CB 

BLM 

I 

DB 

BL6 

I 

OB 

BL7 

I 

CB 

BL8 

I 

DB 

E0UA3 

I 

DB 

FH3 

I 

DB 

OUT 

I 

DB 

SDER3 

I 

DB 

VT 

1 

CB 

1 

Partial  of  base  drag  art  altitude 

/ GENF 

/( 

536) 

ACCEL 

I 

CBR 

BLM 

I 

OBR 

BL6 

I 

DBR 

BL7 

I 

DBR 

BL8 

I 

DBR 

E0UA3 

1 

DBR 

FH3 

I 

DBR 

VT 

I 

DBR 

n 

Atnospherlc  pressure 

( PSF  ) 

/GENF 

/( 

308  ) 

E9UA3 

n 

DZN 

FH2 

I 

PA 

I PiPUL 

I 

PA 

OUT 

I 

PA 

PDBC 

I 

PA 

S0ER3 

I 

PA 

I 

Earth  radius. 

(FT) 

/GLOBAL/t 

2) 

COORDS 

I 

ER 

CRASH 

I 

REN 

EQUA3 

I 

ER 

GEINP 

I 

ER 

P ADS  1 

I 

ER 

PDBC 

I 

ER 

SOME 

I 

ER 

TRT05Z 

I 

ER 

I 

Induced  drag  coefficient 

/ AEC03 

/( 

37  ) 

BEROCO 

I 

FK 

E3UA3 

I 

FK 

I 

See  symbol 

/ A ECO  3 

/( 

H7  > 

BEROCO 

I 

fkn 

E0UA3 

I 

fkn 

I 

Input  rated  *acuu«  thrust  per  engine 

I LBS  ) 

/AfiCOAT/( 

M2) 

ESUA3 

I 

frate 

FXOAT 

I 

FRATE 

PROPB 

i 

FRATE 

PROPIN 

I 

FRATE 

SIZ1N 

0 

FRATE 

n 

Total  vicuna  thrust  [rochet] 

( LBS  ) 

/GENF 

/( 

528  > 

ACCEL 

I 

FVAC 

E8UA3 

n 

FVAC 

FH2 

i 

FVAC 

I NPUL 

n 

FVAC 

PROPB 

n 

FVAC 

PROPIN 

n 

FVAC 

SDER3 

i 

FVAC 

n 

Gravitational  attraction 

( FT/SEC**2> 

/GENF 

/( 

301  ) 

BLM 

I 

S 

BL7 

i 

G 

BL8 

i 

G 

0ER3A 

i 

G 

E0UA3 

n 

G 

modela 

i 

G 

P1DDELB 

I 

G 

P0V3A 

! 

G 

SDER3 

1 

G 

SOI  NP 

ffl 

G 

I 

Relative  flight  path  angle 

(RAD) 

/STATE3/( 

2) 

EQUA3 

1 

GAM 

GUI3A 

1 

GAN 

OUT 

I 

Gan 

0 

Partial  of  gravity  art  altitude 

/GENF 

/( 

563  ) 

BL7 

1 

GH 

BL8 

1 

GH 

E9UA3 

0 

GH 

PDY3A 

1 

DGOH 

30  OCT  1 2 G.01-H6 
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f UK  IRAN 
SYMBOL 


MA1  H 
5YS1BOL 


rooE 


DESCRIPTION 


I ATPl 


2 FOB 


JAER 


JPRO 


JPRP 


11 


MACH 


MACHR 


MACHV 


9r 


m 


n 


I 


I 


I 


I 


I 


I 


2 


n 


0 


0 


Gravitation*)  acceleration  *t  surface  of  the  earth 

( FT/SEC2  ) 


At *o sphere  option  flag 


Foreard  or  adjoint  integration  flag 
- 1 mans  forpard 
= 2 means  adjoint 


flerodynaai  c pcrdel  option  flag 


Propulsion  podel  option  flag 


Propulsion  flag  for  different  rocket  options 


Class 


Mach  nuaber 


Partial  of  aach  nuaber  art  altitude 


Partial  of  aach  nupber  art  velocity 


S T OfiAGF 
BLOCK  LGC 


SUBR  CODE 


/GU08AL/< 

2 ) 

ACCEL 

I 

GR 

BL5 

I 

SR 

E3UA3 

I 

GR 

FH3 

I 

GR 

GE1NP 

I 

6 

GEINP 

I 

GR 

GEINP 

0 

IG 

OUT 

I 

GR 

P ADS  1 

1 

GR 

PDBC 

I 

GR 

FEU3 

I 

GR 

SDINP 

I 

GR 

SIZE 

I 

GR 

SIZ1 

I 

GR 

SI  Z2 

I 

GR 

5123 

I 

GR 

SIZ1 

I 

GR 

5GP1G 

I 

GR 

STAU 

I 

GR 

/ ARCDAT /( 

T ) 

EQUA3 

I 

I AT/1 

FXOAT 

I 

1 AT  n 

OUT 

I 

I ATM 

PDBC 

I 

1 ATM 

VT 

I 

I ATM 

/XCQDES/t 

178  ) 

ACCEL 

I 

IFOB 

BEROCO 

i 

IFOB 

BLYNE 

I 

IFOB 

E3UA3 

I 

IFOB 

1 mpul 

I 

IFOB 

SPLYNE 

I 

IFOB 

TQPP) 

0 

IFOB 

/ ARCDAT /t 

0 ) 

BEROCO 

I 

JAER 

EQUA3 

I 

JAER 

GEINP 

I 

JAER 

OUT 

I 

JAER 

PROP  B 

I 

JAER 

PROPIN 

I 

JAER 

VT 

I ' 

JAER 

/ ARCDAT/l 

10) 

E3UA3 

I 

JPRO 

GEINP 

I 

JPRO 

I MPUL 

I 

JPRO 

MOOELA 

I 

JPRO 

PROPB 

I 

JPRO 

PROPIN 

I 

JPRO 

/XCOOES/t 

19H  ) 

ACCEL 

I 

JPRP 

DER3A 

I 

JPRP 

E3UA3 

I 

JPRP 

OOOELA 

I 

JPRP 

PDY3A 

I 

JPRP 

PROPB 

0 

JPRP 

PROPIN 

0 

JPRP 

/STATE3/( 

1 ) 

ACCEL 

I 

n 

BL1 

1 

n 

EL8 

I 

n 

E3UA3 

I 

n 

OUT 

I 

N 

SDER3 

I 

N 

/ GENF  /( 

307  ) 

BEROCO 

! 

MACH 

ENVPRM 

I 

MACH 

E0UA3 

n 

MACH 

OUT 

i 

MACH 

/GENF  /( 

521 ) 

E3UA3 

0 

machr 

PROPB 

0 

ZERO 

PROP] N 

0 

ZERO 

VT 

i 

MACHR 

/ GENF  /( 

525  ) 

EQUA3 

0 

MACHV 

VT 

i 

MACHV 

30  OCT  72  G 01-16 


FOHIBAM 

SY«BOL 

tlATH 

SYMBOL 

CODE 

DESCRIPTION 

STORAGE  SUBROUTINE  USAGE 

BLOCK  LQC  SUCH  CODE  VAR 

ORE  A 

I 

Curvt  number 

/ARCOAT  /< 

18) 

EQ0A3 

I 

MAEA 

GE1  NP 

1 

MAEA 

PROPB 

1 

MAEA 

PROP  1 N 

I 

MAEA 

MAE8 

I 

Curve  number 

/ARCDAT/I 

19) 

EQUA3 

! 

MAES 

nAEC 

I 

Curvt  tiuaber 

/ARCOAT / < 

20  ) 

EQUA3 

1 

MAEC 

nAED 

I 

Curve  number 

/ARCDAT/t 

21  ) 

E0UA3 

1 

MAEB 

MAEE 

I 

Curve  nuaber 

/ARCOAT  /< 

22) 

EQUA3 

I 

MAEE 

ITAEF 

I 

Curve  nuibtr 

/ ARCOAT /( 

23) 

E0UA3 

I 

maef 

MAES 

I 

Curve  nuaber 

/ARCOAT /I 

24) 

E0UA3 

1 

MAEG 

MOB 

1 

Curvt  number  - b*se  drag  table 

/ ARCDAT/f 

31) 

E0UA3 

I 

MOB 

nTT 

1 

Thrust  curve  number 

/XC0QE5/< 

196) 

EQUA3 

1 

nTT 

PROPB 

n 

MT.T 

PROP J N 

n 

nTT 

nxce 

I 

Curve  number  -xcg  table 

/ARCOAT / ( 

27  ) 

E0UA3 

1 

nxes 

nice 

I 

Curve  number-  ic 9 table 

/ARCDAT/I 

28) 

E0UA3 

1 

nzes 

OCORHO 

<u*COSRHO 

n 

See  sy «bo  1 

/STATE3/I 

708  ) 

OER  3 A 

1 

0 COR HO 

E0UA3 

n 

OCQRHO 

MOOELA 

1 

OCORHO 

MODE LB 

1 

OCQRHO 

POBC 

I 

OCORHO 

P0Y3A 

1 

OCORHO 

0CQR02 

w*OCORHO 

0 

See  syabol5 

/STATE3/I 

709  ) 

DER3A 

1 

0C0R02 

EQUA3 

0 

QCQR02 

MOOELA 

1 

0CQR02 

MOO  E LB 

1 

QCDR02 

P0Y3A 

1 

DCDR02 

onsz 

a 

I 

Earth  rotation  rate  (-BAD/5EC) 

/GLOBAL/I 

3)' 

ADID3A 

I 

QMG2 

CRASH 

I 

□ MEGA 

DER3A 

I 

OMGZ 

EQUA3 

1 

OMGZ 

GEINP 

I 

OMGZ 

MOOELA 

I 

OMGZ 

M00EL6 

I 

OMGZ 

POBC 

1 

OMGZ 

PDY3A 

I 

OMGZ 

S 01  NP 

1 

OMGZ 

TOPS 

l 

OMGZ 

PS! 

V. 

1 

Az 1 «ut h 

/ST  ATE3/C 

5) 

EQUA3 

1 

PSI 

GUI3A 

t 

PSI 

OUT 

l 

PSI 

a 

a 

n 

Dynamic  pressure  (PSF) 

/GENE  /( 

303  1 

ENYPRM 

t 

a 

V 

E00A3 

n 

a 

OUT 

1 

a 

* 

POBC 

1 

a 

VT 

1 

Q 

OR 

n 

Partial  cf  dynamic  pressure  art  altitude 

/GENE  H 

526) 

E8UA3 

M 

OR 

VT 

I 

OR 

05 

0 

Product  of  dynamic  pressure  and  aero  Bet.  Area 

/GENf  /( 

304) 

EQUA3 

0 

as 

< LBS  ) 

VT 

I 

05 

00 

m 

Partial  of  dynamic  pressure  art  velocity 

/GENE  /( 

527  ) 

ESUA3 

M 

av 

TEST 

IT 

ov 

VT 

! 

ov 

R 

R 

n 

Radial  distance  froa  earth  center  to  vehicle  (FT) 

/GENE  /( 

305  ) 

BL4 

1 

R 

BLT 

1 

R 

BL8 

I 

R 

0ER3A 

I 

R 

E0UA3 

M 

R 

MOOELA 

l 

R 

MOOELB 

l 

R 

PDBC 

I 

R 

P0Y3A 

t 

R 

TRTOSI 

t 

R 

30  OCT  72  S 01-46 


4^5 


hath 

Syhbol 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


SUBS  LODE 


I to  ingle  convtrtlon,  ST.2957T951 


I Latitude 


I Atoospherlc  denelty 


I Deri*.  Of  density  »rt  lit. 


0 See  syxbol 


0 See  synbot 


0 See  syibol 


Aerodynamc  reference  irei 


2) 

BERQCO 

I 

DEG 

BLGCON 

I 

RAO 

ENVPRH 

I 

RAD 

E0UA3 

I 

RAO 

FNTG 

I 

RAO 

GUI3A 

I 

RAD 

HOOELA 

I 

RAD 

I1TX3A 

I 

RAD 

OUT 

i 

RAD 

PADS! 

0 

RAO 

SOI  W 

I 

RAO 

TRTDSZ 

I 

RAD 

6 ) 

EQUA3 

I 

RHO 

OUT 

i 

RHO 

309  > 

BL7 

I 

RO 

BL8 

I 

RO 

0ER3A 

I 

RO 

ESUA3 

I 

RO 

OUT 

I 

RD 

PD8C 

I 

RO 

PDY3A 

I 

RO 

313) 

BL7 

I 

ROR 

BL8 

I 

ROR 

ED  U A3 

I 

RDR 

POBC 

I 

ROR 

PDY3A 

I 

ROR 

688) 

BLH 

I 

SINGAH 

BL7 

i 

SINGAH 

BL8 

I 

Sl-NGAP* 

DER3A 

I 

SINGAH 

EDUA3 

0 

SINGAH 

HOQELA 

I 

SINGAH 

nOOELB 

I 

SINGAH 

PDBC 

I 

SINGAH 

PDY3A 

[ 

SINGAH 

SDER3 

I 

SINGAH 

709) 

BLH 

I 

SINPSI 

BL7 

I 

SINPSI 

BL8 

I 

SINPSI 

0ER3A 

I 

SINPSI 

EDUA3 

a 

SINPSI 

nOOELA 

i 

SINPSI 

ItO  DELB 

i 

SI NPSI 

PDBC 

i 

SINPSI 

P DY  3 A 

i 

SINPSI 

706  ) 

BLH 

i 

SINRHO 

BL7 

i 

SINRHO 

BL8 

i 

SINRHO 

DER3A 

i 

SINRHO 

EQUA3 

0 

SINRHO 

HODELA 

i 

SINRHO 

P10DELB 

i 

SINRHO 

OUT 

i 

SI NRHO 

PDBC 

i 

SINRHO 

PDY3A 

i 

SINRHO 

1 ) 

BNTG 

i 

ARCDA 

E3UA3 

i 

SREF 

FNTG 

i 

ARCOA 

FXDAT 

i 

ARCDA 

FXDAT 

0 

IARCDA 

geinp 

m 

ARCDA 

SOINP 

1 

ARCDA 

SIZ1N 

I 

ARCOA 

S1ZIN 

ft 

SREF 

THRUST 

I 

SREF 

VT 

1 

SREF 

30  OCT  72  G 01-H6 


FORT  RAN 
SYMBOL 


rtflTH 

SYMBOL 


CODE 


DESCRIPTION 


BLOCK 


SOUR  COO 


T T o Thru*t  (LBS)  / GENF  /(  Hll)  ACCEL  I T 

BLGCON  1*1  T 
SLR  I T 
BL6  I T 
BL7  I T 
BLO  I T 
EL  2 I T 

eaufls  o t 

FHi  I T 
FH2  I T 
FH3  I T 
FHH  I T 
IMPUL  1 T 
OUT  I T 
PROPS  0 T 
PROPIN  0 T 
REU3  0 T 
5DER3  I T 


TAIRB 

I AIrbreather  thriljt* 

(LBS)  /AIRBRE/t 

1 ) 

£0  UA3 
FHB 

I 

I 

TAIRB 

TAIRB 

TBURN 

I HocKet  burn  initiation  time  on  forward 

tr  a jectory Esd3 

/ GENF 

/( 

999  ) 

E0UA3 

MOOELA 

PROPB 

PROPIN 

I 

I 

0 

M 

TBURN 

TBURN 

TBURN 

TBURN 

TIME 

t 

I Tl ac  ( e 1 apsed) 

/ GENF 

/( 

H93  ) 

A0ICB3 

a 

TIME 

A5T3  I TIME 
BNT6  M TIME 
COM3  I TIME 
OTF3  I TIME 
ENVPRM  I TIME 
E0UA3  I TIME 
FNT  5 fl  TIME 
MODELA  I TIME 
OUT  I TIME 
POBC  I TIME 
PROPIN  I TIME 
HEU3  fl  TIME 
RKTA3A  M TT 
RKTB3A  M TT 
YREF3  ft  TIME 


TIMEPH 

T 

0 

Phase  t i we 

(SEC) 

/GENF 

/( 

318  ) 

EQ  Ua3 

0 

TIMEPH 

P 

FNT  S 

M 

TIMEPH 

. 

GETIT 

I 

TIMEPH 

GUI  3 A 

I 

TI MEPH 

OUT 

I 

TIMEPH 

TIMES 

T 

0 

Are  tlwe 

( SEC  > 

/GENF 

/( 

319  ) 

AST3 

I 

TIMES 

E0UA3 

0 

TIMES 

FNTG 

ft 

TIMES 

GETIT 

I 

TIMES 

OUT 

I 

TIMES 

TMULT 

T , 

I 

Thrust  Multiplier  or  number  of  engines 

/ ARCD AT/( 

9 ) 

EOUA3 

I 

TMULT 

nil  It 

FXDAT 

ft 

TMULT 

PROPB 

I 

TMULT 

PROPIN 

I 

TMULT 

SI  21  N 

0 

TMULT 

TOP 

1 

Elasped  t I *e  at  phase  initiation 

/GENF 

/( 

320  ) 

BNTG 

ft 

TOP 

E0UA3 

I 

TOP 

FNTG 

M 

TOP 

TOS 

I 

Eiasped  t i »e  at  are  Initiation 

/GENE 

/( 

321  > 

BNTG 

ft 

TOS 

E0UA3 

I 

TOS 

FNTG 

ft 

TOS 

30  OCT  72  G 01-96 


41V 


FORTRAN  MATH 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


V 


I Rt  I »t I *•  »i  lot l ty 


W y n weight 

XCG  Y ! Center  of  gravity  body  > station 

CG 

XCGM  aX„/3m  o See  syebol 

LG 

XJ  j I Control  blend  factor 

XJR  0 Partial  of  blend  factor  prt  altitude 

XJV  0 Partial  of  blend  factor  *rt  velocity 

ZCG  I Center  of  gravity  body  z station 

CG 

ZCGM  azc(,/3m  0 See  synbol 


(FT/SEC) 


( LBS  I 


< FT  ) 


( FT) 


STORAGE  SUBROUTINE  USAG' 

BLOCK  LOC  SUtfR  CODE  VAR 


/STATE3/C 

1 ) 

ACCEL 

I 

V 

A01C83 

0 

VAR 

ADJUST 

M 

VAR 

AGETB3 

0 

VAR 

AST3 

I 

VAR 

BLR 

I 

V 

BL7 

I 

V 

BLB 

I 

V 

CGN3 

I 

VAR 

OER3A 

I 

V 

DTF3 

I 

V 

ENVPRM 

I 

VAR 

EQUA3 

1 

V 

MOOELA 

I 

V 

MODELA 

I 

VAR 

MODELB 

I 

V 

MTX3A 

I 

VAR 

OUT 

I 

V 

OUT 

I 

VAR 

PDBC 

I 

V 

PDY3A 

I 

V 

REUS 

PI 

VAR 

RKTA3A 

M 

V 

STP  3 

I 

VAR 

TOPrt 

□ 

KNOW 

YREF3 

PI 

V 

/GENF 

/( 

R12 ) 

BL5 

I 

U 

ENVPRN 

1 

u 

E0UA3 

n 

y 

FH3 

I 

0 

OUT 

I 

u 

PDBC 

I 

y 

REU3 

I 

y 

TRTOSZ 

1 

u 

/ 6ENF 

/( 

55  8 ) 

EL2 

I 

XCG 

EBUA3 

I 

XCG 

VT 

I 

XCG 

/ AEC03 

/( 

38  ) 

EL2 

I 

XCGP1 

E0UA3 

0 

XCGM 

VT 

1 

XCGPI 

/SENF 

/( 

560  > 

EL2 

I 

XJ 

E3UA3 

I 

XJ 

OUT 

I 

XJ 

VT 

I 

XJ 

/ 6ENF 

/( 

562) 

EL2 

1 

XJR 

E3UA3 

0 

X JR 

VT 

I 

XJR 

/GENF 

/( 

561  ) 

EL2 

1 

XJV 

E8UA3 

0 

XJV 

VT 

I 

XJV 

/GENF 

/{ 

559  ) 

EL2 

i 

ZCG 

E8UA3 

i 

ZCG 

VT 

i 

ZCG 

/ AEC03 

/( 

39  ) 

EL  2 

i 

ZCGM 

EQUA3 

0 

ZCGM 

VT 

] 

ZCGPI 
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EQUA3 


1. 

2. 


SUBROUTINE  EQUA3 


16. 

17. 

18 

19. 

20. 
21. 
22 
23. 
ZH 


36. 

37. 

38. 

39. 
HO. 
HI. 


5H. 


EQUA3 

COHN 


3.  C 

COMPUTES  FUNCTIONS 

OF  ST  PTE 

ONLY 

CONN 

H.  C 

SHIPS 

STATE  PART  1 ALS  ON  FORWARD  TRAJECTORY  Cl F0B=1  ) 

COMM 

5. 

COMMON/ ST ATE3/ 

ST&TE3D 

6. 

♦ VAIU 1H> 

,OVAR  (INI 

, VARL  199) 

.DVARLC  99 ) 

, Y0<  9 ) 

,sm  iO) 

STATE3D 

7. 

♦ XU  9,91 

,YOP<20,9), 

YDS  <20,9), 

COSGAfl 

,S1NGA« 

,SAV8P< 15) 

5T  AT  E30 

8. 

♦S1NPSI 

,COSPSI 

.SINRHO 

,COSRHO 

,OCORHO 

,OCORQ2 

STATE30 

9. 

♦SVBV 

9 ) OMEGA 

,0*ESA2 

5TATE30 

10. 

*VOV 

, SDV 

,RDV 

,«ov 

,PDV 

,00V 

STATE30 

11. 

♦ UQV 

, 90S 

, 60S 

RDG 

,P0G 

, DOG 

STSTE3D 

12. 

♦ UDG 

,VOR 

, GDR 

, HDR 

,POR 

, OOR 

STATE3B 

13. 

♦UOR 

,VON 

,60(1 

.non 

,PD« 

,V0P 

STATE3D 

1H. 

♦ GDP 

-POP 

,OOP 

, UDP 

,V00 

, GOO 

STATE30 

15. 

♦ PDO 

, UDQ 

, HTDV 

, HTDR 

STBTE3D 

REAL  rtOH  , HOV.  ADR  STATE30 

C0nnGN/STATE3/  STATE30 

♦SIN2R0  , C0S2R0  .C0S2GPI  STATE30 

EQUIVALENCE  CVAR(1>,V)  ,C  VAfi(  2 ) GAM  ) , ( VARt  3 ),  ALT  ) ,<VAR(H),rt)  , E0UV3 
*(  VAfil5>,PSI),t  VAR(6),RH0).(  VAR(7).nU).(  VAfi(8),HT)  . < VAR( 9 1.SQ2  ),  E0UV3 
*<  DVARt l >, VD), C DVAR(  2 ),  GD ),  ( QVARC  3 ),  HD ),  ( DVAJU  H ),  HD),< DVAfU 5 >.PD  > . E0UV3 
♦<  OVARl  6>,0D),( DVAflt  7),UD),( DVARt 8 i. 1TD ).( OVARC 9 1.SQ2D ) E0UV3 

REAL  P!,rtU.«0  E0JV3 

COfmON/ ARCDAT/  ARCDAT 


25. 

♦SREF 

,£J 

,XISP 

,Tni)LT 

. DTNC 

, OTP  I 

ARCOAT 

26. 

♦ IATR 

.IROOE 

, J AER 

, JPRO 

.QRAX 

, GflAX 

ARCDAT 

27. 

♦ XLflAX 

.HOMAX 

, GflODT 

, ALFflAX 

, PHrtAX 

,WAEA 

ARCDAT 

28. 

♦ fiAEB 

,BAEC 

, PIAEO 

, HAEE 

. flAEF 

,«AEG 

ARCDAT 

29. 

♦ HT 

,MISP 

,nxcG 

,«ICG 

.nUDA 

,nuod 

ARCDAT 

30. 

♦ROB 

, XCSR 

, ZCSR 

,XE 

,ZE 

,XT 

ARCDAT 

31. 

♦ DREF 

,MCND 

,RHQB 

,OnULT 

, REHAX 

ARCOAT 

32 

* , FRATE 

ARCO<  9) 

RETAP 

33. 

DIMENSION 

»RCDA(*tO> 

ARCOAT 

3H . 

EQUIVALENCE! SREF. ARCDA). 

ARCDAT 

35. 

COUPON/ GLOBAL/ 

GLOBAL 

♦ GR  ,ER  ,OnGZ 

*,JJOP< 10)  . IFATAL  . NARC 
♦ , KT AB(  20 ) , I T AB<  20  ) ,5IG 
*,G«  ,P$ JRF, IPFLG1, 

♦ , ITPSO  , KSOL  ,KGL0BLt8) 
01 REN5 ION  OlAt 8 > 


.XLAMRF  .VHURF  ,LU« 

, NBRAN  ,NFARC  ,I0(H) 
>HAXTAB 

I FFLG2, I PFLG3, IPFLSH, I NEOFU  20 ) 


GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

RETAP 

E0UA3 


H2. 

COrtrtOM 

/XCODES/ 

XCODES 

H3 

♦ 1T0 

(9),  ICOB 

( 20  ), 1TI 

. INTB 

, J GIO( 20 

,2),JPH  (20,2), 

XCOOES 

HH 

♦JST 

(20) 

, NCNST 

.NSB 

,NSAB 

.NICNB 

XCODES 

H5. 

♦ I20P 

,icop 

, IFAU 

, IFAR 

,IFB 

/I  NO  , 

XCOOES 

H6. 

♦IOPEN 

,1PH 

, ISPH 

, I5ST 

I ARC 

,I5TART  , 

XCODES 

H7 . 

♦ ITCT 

,1TER 

, I VAR 

,JK 

,JPS 

,JS 

XCOOES 

H8. 

♦XOP 

,XPST 

.KST 

.NAD 

, NCASE  , 

XCOOES 

H9. 

*NCN 

, VEy  B 

. NEQ 

.NOP 

, NPH 

,N  , 

XCOOES 

50. 

*WST 

.IPST 

, IPRINT 

, ISTN 

, I PHN 

-ISTN8  , 

XCODES 

51. 

♦1PHNB 

, 1 6LK1 

,IBU2 

, ISTOP 

, ISTPP 

A 

XCOOES 

52. 

♦ IFOB 

t NB 

.LB 

.MB 

, NPHP 

, NPHB 

XCODES 

53. 

■NCTIN 

, UEQE 

1LAB<  8 1,  JPRP 

JGXl.mT, 

rtPlNt20>,JPl 

, JP2, JP3 

XCOOES 

COFmON/DATA/ 


55. 

♦PI 

,RAD 

,RDI 

,sc 

,UrtF 

,T«PF 

56. 

57. 

♦FTNrt  .CAR 

CQflfIGN/ GENF7 

,J0P1 

# J0P2 

, JGP3 

,JDPH 

58. 

♦ GAG<  20) 

,0MSP(20, 

2 ) , VARQ( 9 ) 

TOL(  9 ) 

SVARl 10 ) 

,UOC<  20 ) 

59. 

*A( 9,9) 

, flCON( 9 3 

, BCGNt 9 ) 

, COTH  9,9 ) 

, DCONt 9 ) 

, DTP 

60. 

♦ OTS 

,0T 

,G 

,OPSO 

,0 

61. 

♦R 

,RE 

rtACH 

,PA 

,R0 

>cs 

6Z. 

♦ VNU 

,PAR 

,ROS 

, CSR 

, VNR 

, SUHSQ 

63. 

♦SVSO 

.TIMEPH 

.TIRES 

,TOP 

,TOS 

,TR<9) 

6H 

♦TSTC20) 

, TPH  ( 20  ), 01 S(  20 ) 

, DIP( 20  > 

't 

65. 

♦ TLPH20) 

,TLS1  ( 20 1 . 01 P 1(  20  ) 

, DI SIC  20  ) 

,TIHE 

,ORP 

66. 

*TJ  APR 

,LIFT 

, ORAG 

, T AX 

,TBURN 

,TBU<20) 

67 

68 

♦AE 

♦OR 

,0V 

, FPGLD 
,FVAC 

,FPD 
. LIFTV 

, flACHR 

/HACHY 

69. 

♦LIFTS 

,LIFTA 

DRAG/ 

^DRAGR 

, DRAGA 

70. 

LIFTM 

,OBR 

,DB 

,ISP 

, ISPF 

71. 

♦ 

ULFT 

. ULFT V 

.ULFTR 

, ULFT  A 

72. 

♦ XflCG 

, XMCSV 

,xncGfl 

, XnCGA 

. XACGH 

, CQDAE 

73. 

♦CULFT 

,CT 

.CALPHA 

, CDE 

.OELTAE 

,S1  D 

7H. 

75. 

♦ COO 
COflADN  / 

, SIDAE 
GENE  / 

,xca 

, ZC8 

,XJ 

DATA 

DATA 

DATA 

GENF 

GE*JF 

GENF 

GENF 

GENF 

6E*F 

GENF 

GEHF 

GENF 

GEHF 

6EKF 

GENF 

GENF 

GEMF 

6ENF 

SENF 

GENF 

GENF 

GENF 
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74. 

• XJV 

, XJR 
,IRATED 

,6H 

f GARHAD 

, XKG 

,XKP  , GENF 

77. 

•FRATEO 

GENF 

78. 

*P1 

,P2 

,P3 

. XXI 

,XK2 

, XK3  , GENF 

79. 

*XK1T 

,XK2T 

,XK3T 

,XK1D 

,XK2D 

,XK3D  , GENF 

80. 

• XK1A 

f X<2A 

,XK3A 

,XK1V 

. XK2V 

, XK3V  , GENF 

81. 

• XK16 

,XK2E 

. XK36 

, XK IP 

,XK2p 

. XK3P  . GENF 

82. 

*XK1R 

, XK2R 

. XK3R 

. XK1Q 

, XK20 

, XK30  , GENF 

83. 

• XK1U 

,XK2U 

, XK3U 

,xkim 

, XK2* 

,XK3R  . GENF 

89. 

#PV 

. ... 

. .. 

,PR 

,ro 

, QPDY( 3 ^ 8 > GENF 

nt«i-  Lirin  p uri  , urix.Lirin  , 

* ISP,  ISPF,  MACHV.LIFTV  , 1RATED 
DIMENSION  TPMII  lfiVTSTK  101 
EQUIVALENCE*  TLPl.TP8D.tTLSl.TSTl) 
COnn0N/AECO3/ 

, VDA 
, PtilD 
,XLAMA(  9 ) 

. xc&n 
,cno 

,CLH 


90. 

» APHQ 

, APHR 

.ALPHA 

91. 

*SI  NA 

,COSA 

,PHI0 

92. 

♦COSPRI 

, GOPH 

,POPH 

93. 

»cdqh 

,CLO 

,FK 

99 

• CM 

t CMA 

.CRAM 

95. 

• CLAM 

. CL 

.CLA 

96. 

97. 

♦CD  CDA 

EQUIVALENCE  (QZM,PA) 

,cdm 

. GDA 
fPHl 

. XLArtPl  9 ) 

,ZCGn 

,cmgm 


.PDA 
,S1NPH1 
,C00 
,CLOR 
, F KM 


FRAT 

GENF 

GENF 

AECQ3 

AEC03 

AEC03 

AEC03 

AECG3 

AEC03 

AECD3 

AEC03 

EQUA3 


98. 

COMMDN/AIR&RE/  TAIRB,TAIRBV,TAIRBH,SFC,SFCV.SFCH 

FIXED 

99. 

ESUIVALENCEI  J1N,ILAB(1>> 

PO 1 9 

100. 

ENTRY  EQUA 

EQUA3 

101 

C 

THIS  PRO  GRAN  CALC.  STATE  FUNCTIONS  ONLY 

E0UA3 

102. 

R=  ER+  ALT 

E0UA3 

103- 

Singah=  Sinisas) 

E0UA3 

109. 

C0SGAI9=  COS(  CAM) 

EQUA3 

105. 

EQUA3 

106 

TIMEPH  - TIME  -TOP 

E0UA3 

107. 

TIME5=  TIME  -TOS 

E3UA3 

108- 

G=  GR.1ER7  R>»»2 

E0UA3 

109. 

S I NPS I = SlNtPSI  ) 

EGUA2 

no 

CQSPS I-  C051PSI ) 

EGUA3 

in 

SINRHO=  SIN(RHO) 

E0UA3 

112 

COSRHO=  COS(RHO) 

EQUA3 

113. 

OCORHO=  OM6Z*COSRHO 

EQUA3 

i in 

OCOR02=  OCORHO.OHSZ 

E0UA3 

115 

C 

1 IF  ZERO  AERO  OR  VACUUS  SXIP  ATMOSPHERE  CALCULATION  TO  VI 

COHN 

116 

c 

COMN 

117. 

IFISREF  EO.O)  GO  TO  120 

PO  1 9 

120  — 

118. 

1F(  1ATPI-1  ) 10,20,120 

PO  1 9 

1 G — | 

119 

10  CALL  ANLATM  t ALT,D2H, IFOB-l 1 

EQUA3 

120. 

GO  TO  30 

E0UA3 

30—i 

121. 

20  CALL  PAT 63(  ALT, DZN, 1FDB  > 

E0UA3 

122. 

30  Q = 5*  RO*  ¥♦ V 

EDUA3 

123. 

QS=  a*SREF 

E0UA3 

129. 

mach~  v/cs 

EQUA3 

125. 

1FUF0B  EQ.l)  GO  TO  NO 

EQUA3 

90— 

126. 

V58  r V*  ¥ 

EQUA3 

127. 

HACHV=  l./CS 

E0UA3 

128 

riACHR"  -V/CS/CS*CSR 

E0UA3 

129. 

GH  - -2 . *G/R 

EQUA3 

130. 

flR=VS0.R0R/2. 

E0UA3 

131. 

0V=  RO* V 

EGUA3 

132. 

C 

COflN 

133 

c 

II  DO  APPROPRIATE  TABLE  LOOKUPS  FOR  AERODYNAMIC  MODELS 

COMN 

139 

90  GO  TO  (70,80,50)  , JAER 

EQUA3 
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135. 

50 

CONTINUE 

E0UA3 

136 

CALL  SPLYNE( MAEE.MACH.CMA.CRAM) 

EQUA3 

137 

CALL  SPLYNE( flAEF, MACH, CMO. CMOM ) 
CALL  SPLYNEt  fiAEG.O  . XJ  . XJQ  ) 

EQUA3 

138. 

EQUA3 

139 

60 

CALL  SPLYNE(  rtXCG.U  .XCG,  XCGtt> 

EQUA3 

190 

CALL  SPLYNEt  flZCG, U ,ZC6,  ZCSN ) 

E0UA3 

191. 

CMA-  CMA  *RAO 

E0UA3 

192. 

1FC IFOB.EO  1 ) GO  TO  70 

EQUA3 

193 

CMAfq=CMArt*RAD 

EQUA3 

199 

XJVSXJ0»0V 

APR 

195 

XJR=XJO*aR 

APR 

196. 

XCGM  = XCSW»GH 

E3UA3 

197. 

1-96 

ZCGM  = ZCSW*G8 

E9UA3 

1 120- 


70- 


198. 

70 

CONTINUE 

E0UA3 

199 

CALL  SPLYNEl HAEA_HACH,CLA, CLAM) 

E3UA3 

150. 

CALL  SPLYNEI  NAEO . BACH . CLO . CL0I91 

E0UA3 

151. 

CALL  SPLYNE(  NAEC,NACH,COO .CD0N1 

EQUA3 

152. 

CALL  $PLYNE(nAEO,ftACH,FK,FK«> 

E0UA3 

153 

CLA  * CLA*R AD 

EQUA3 

159. 

lFUFOB.EB.n  SO  TO  80 

E0UA3 

80 — 

155. 

CLAN=  CLAN+RAD 

EQUA3 

156. 

60 

CONTINUE 

FIXED 

157. 

C 

CORN 

158. 

c 

111  PROPULSION  CALCULATION 

COHN 

159 

c 

CONN 

160 

c 

III  — A AIR  BREATHER  THRUST  AND  SFC. 

COHN 

161 

1F( JPR0.NE.2)  SO  TO  85 

FIXED 

85— 

1 62 . 

CALL  BLVNE( V, ALT.  TA1RB) 

FIXED 

163. 

T = TAIRB 

FIXED 

169. 

SO  TO  110 

FIXED 

165. 

85 

CONTINUE 

FIXED 

166. 

c 

COrtH 

167. 

r. 

III-B  ROCKET 

COHN 

168. 

c 

COHN 

169. 

c 

TEST  FOR  ROCKET  MODE  (THROTTLED  OR  UNTHROTTLED) 

CONN 

170 

c 

JPRP  CONST,  2 UNTHROTTLED  , 3 THROTTLED 

COHN 

171. 

IFUPRP-2)  110,100,90 

POU 

172. 

90 

IFUIN.ST.O)  SO  TO  110 

E0UA3 

173. 

c 

COHN 

179 

c 

II1-D  IF  NO  THRUST  TABLE  SO  TO  IV,  EL5E  INTERPOLATE  VAC  THRST 

CORN 

175. 

c 

COHN 

176 

100 

IF(RTT.EO.O)  GO  TO  109  ' 

PH1SZ 

Toy- 

177. 

TPRP  = TINE  - TBURN 

FRAT 

178 

CALL  SPLYNE  (NTT,  TPRP, FYAC, DUN) 

E9UA3 

179. 

FVAC  = FVAC*  THULT 

E0UA3 

180. 

GO  TO  no 

PH1SZ 

161 

c 

COHN 

182. 

c 

IV  IF  RATED  THRUST  ZERO  GO  TO  V .ELSE  CO HP UTE  VAC  THRUST 

CONN 

183. 

109 

IF1FRATE.LE.0. ) SO  TO  110 

PH1S2 

ho- 

189. 

FVAC=FRATE*TNULT 

PHlSi 

185. 

c 

CORN 

186. 

c 

Y INTERPOLATE  BASE  DRAG 

CONN 

187 

110 

CALL  SPLYNEt  HDB,ALT,OB,DBR) 

E0UA3 

188. 

RETURN 

E0UA3 

189. 

c 

CONN 

190. 

c 

VI  VACUUM  CALCULATIONS  THEN  GO  TO  IIID 

CORN 

191. 

120 

00  130  1=1,8 

EQUA3 

192. 

130 

ozm  i )=o. 

EBUA3 

1 S3 . 

C5=1000. 

EQUA3 

199. 

0=0. 

EQUA3 

* 

195. 

GH=~2.*0/R 

PH1SI 

196. 

flS=0. 

EQUA3 

197. 

RACH=20- 

E0UA3 

198 

IF< JAEfl.NE.3)  60  TO  80 

E0UA3 

80  — 

199 

190 

CALL  SPLYNEI  NXC6,W  , ICG,  XCSU) 

EQUA3 

200  . 

CALL  SPLYNEt HZCG.M  ,ZCG,  ZCGW ) 

E0UA3 

201. 

IF( 2F0B.ES. 1 ISO  TO  8S 

E0UA3 

80  — 

202. 

XCGM  = XCGW*6R 

EQUA3 

203. 

ZC6H  = ZC6U*G* 

E0UA3 

209. 

GH=  -2.*6/fi 

pon 

205. 

SO  TO  80 

E0UA3 

8C  — 

206. 

END 

EQUA3 

luo- 


110- 


no- 
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SUBR0UTINE 

FH1 


Subroutine  FM1 


Entry  Points.  FH1001,  FH1000 


Purpose 

Subroutine  FH1  is  the  governing  equation  (XK1)  associated  with  the  thrust 
element  in  the  in-plane  control  vector  when  the  thrust  is  a constant. 

Description 

The  solution  of  the  in-plane  control  using  the  governing  equations  is 
described  in  Section  9 of  Volume  I.  This  subroutine  is  called  from  BLGC0N. 
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nfti  h 
SYMBOL 


DESCRIPTION 


S T O R A . I g 
BLOCK  LDC 


UBRQUT1NE  USOG 
5U6R  CODE  VA 


1 Constant  value  of  vacuua  thrust 


I Thruat 


0 First  control  vector  governing  equation  value 
corresponds  to  error  in  thrust 


0 Partial  of  governing  equation  art  state  or  control 
vector  coaponent 
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BLT 
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T 

BL6 
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I 
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0 

T 

FH1 

I 

T 

FH2 

1 

T 

FH3 

1 

T 
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I 
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i mPUL 

I 

T 
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0 

T 
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T 
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T 
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BLGCON 

I 

XK) 

FH1 

0 

XXI 

FH2 

0 
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FH3 

0 

XXI 

FHB 

0 

XXI 

, 

flGDELA 

I 

XXI 

/( 
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BLGCON 

I 

XX  IT 
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0 

XX1T 
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0 
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It 
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0 
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PIOOELA 

1 
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phi 


1. 

SUBROUTINE  FHI 

FH1 

2 

C0rWQN76ENF/ 

GENF 

3 

♦ ORGt 20 1 

,0MGP(2O 

. 2 >,  VARQt  9) 

,TQl(  9 ) 

, S VARt  1C) 

. WDCt 20 ) 

, GENF 

9 

♦ At  9.9  ) 

, ACONt  9 ) 

,&CON(  9 > 

, COT I < 9,9) 

, DtGN(  9 ) 

.DTP 

, GENF 

5 

♦QTS 

,0T 

,6 

,OPSO 

,0 

,as 

, GENF 

6 

♦R 

,RE 

, flACH 

,PA 

,R0 

,cs 

, GENF 

7 

♦ VNU 

.PAR 

,ROR 

,CSR 

,YNR 

.sunso 

, GENF 

8. 

♦ $V$Q 

, TIttEPH 

, TIMES 

,TOP 

,T0S 

,TRt  9 ) 

, GENF 

9. 

♦TSTt  20  ) 

, TPH  (20 ) OlSl 20  1 

, D1P( 20) 

#T 

,y 

, GENF 

10. 

♦TLPU  20  ) 

,TLS 1 t 20  ) , DIP  It  20) 

, Dl  SH  20  ) 

, TIRE 

ORP 

, GENF 

11. 

♦TIRPR 

.LIFT 

, DRAG 

.TAX 

,T8UR9 

,760(20) 

, GENF 

12 

♦ AE 

, FP 

, FPQ  LB 

,FPO 

, nACHB 

.RACHV 

, GENF 

13 

♦ OR 

,0V 

,F  VAC 

,LIF7V 

GENF 

19 

♦LIFTR 

, LIFTA 

drasv 

.DRAGS 

BRAGA 

, GENF 

15. 

* 

LIFT* 

,DBR 

,0B 

,ISP 

JSPF 

, GENF 

16 

* 

ULFT 

, ULFTV 

, ULFTB 

, ULFT A 

. GENF 

17. 

♦xrcg 

, xmcgv 

, XMCGfi 

,xncsA 

,XrtCGft 

, CODAE 

, GENF 

16 

♦CULFT 

,CT 

.CALPHA 

,CDE 

, DELTAE 

,S1D 

, GENF 

19. 

♦ COD 

, S20AE 

, XC6 

,zcs 

.XJ 

GENF 

20 

cannow  / 

GENF  t 

GENF 

21. 

♦ XJV 

. X JR 

,SH 

, GARAAD 

,X*S 

,XKP 

, GENF 

22 

♦FRATED 

, (RATED 

GENF 

23. 

♦PI 

,P2 

>3 

,X*l 

,XK2 

, XX3 

, GENF 

29 

♦ XK1T 

,XK2T 

,XK3T 

,XKIB 

, XK2D 

, XK3D 

, GENF 

25 

•XK1 A 

, XK2A 

, XK3A 

,XK1V 

, XX2V 

XK3V 

, GENF 

26 

♦XK16 

,XK2G 

,XK3G 

,XK1P 

, XX2P 

,XX3P 

, GENF 

27. 

♦ XKlfl 

, XK2H 

,XK3R 

,XK10 

,XK20 

,XK30 

, GENF 

28. 

♦ XK1U 

, XX2U 

,XK3U 

,XKin 

, XK2R 

, XK3R 

, GENF 

29. 

♦ PV 

,P6 

,PP 

.PR 

,P0 

,DPOY{ 3,8 ) 

GENF 

30 

REAL  UFTR  , LIFT 

, LIFTA, LIFTR  , 

RACH, 

RACHR, 

GENF 

31 

♦ ISP.  1SPF,  RACHV, 

L1FTV  , 1 RATED 

FRAT 

32. 

DIMENSION  TPH1( 10) 

.TSTUlO) 

GENF 

33. 

EQ  UI  VALENCE  ( TLP1 ,TPH1  KOLSl.TSTl) 

GENF 

39. 

C0flfn0N/STATE3/ 

STATE3D 

35. 

* VARt  19  ) 

. DVAR  { 19  ), VARL  < 99 ) 

,DVARL( 99) 

,Y0( 9 ) 

S VYC 10  ) 

, STATE30 

36. 

♦ XLt  9,9) 

,YCP(20, 

9), YDS  (20,9) 

, C0S6AR 

,SINSAR 

,5AVBP( 15) 

, STATE3D 

37. 

♦SINPSl 

,COSPSI 

.5INRH0 

,COSRHO 

,OCdRHO 

,OC0RO2 

, STATE30 

38. 

♦SVBV  (9>,0«ESA 

,0ftEGA2 

5TATE3D 

39 

♦ VBV 

. GDV 

RDV 

, RDV 

,POV 

,ODV 

, STATE30 

90 

♦ UOV 

, V06 

,GD6 

,ROG 

,POG 

,80G 

, STATE30 

91 

♦ UDG 

, VOR 

, GDR 

,RDR 

,PDR 

,BOfi 

, STATE3D 

92. 

♦ UBR 

. vor 

,SDrt 

,rtDR 

,PDR 

, VBP 

, STATE3D 

93. 

♦GOP 

,POP 

,ODP 

, UDP 

, VDO 

,800 

, STATE3D 

99 

♦ PDO 

,1)00 

,HTOV 

,HTDR 

STATE3D 

95 

96 

REAL  RO H , NOV,  ADR 
C0AR0N/STATE3/ 

STATE3D 
ST AT E3D 

97 

♦5IN2R0 

, C052R0 

, C0S26R 

STATE3D 

98. 

ENTRY  FH1001 

FH1 

99. 

90  XK1T  = 1. 

FH1 

50. 

ENTRY  FH1000 

FH1 

51 

50  XK1  = T - 

CT 

FHi 

52 

C 

FH1 

53. 

RETURN 

FH1 

59. 

END 

FH1 
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SUBR0UTINE 

FH2 


Subroutine  FH2 


Entry  Points.  FH2010,  FH2001,  FM2000 


Purpose 

Subroutine  FH2  is  the  governing  equation  (XK1)  associated  with  the  thrust 
element  m the  m-plane  control  vector  when  the  thrust  is  modeled  as  a 
vacuum  thrust  modified  by  a nozzle  back-pressure  correction. 

Description 

The  solution  of  the  in-plane  control  using  the  governing  equations  is 
described  m Section  9 of  Volume  I.  This  subroutine  is  called  from  BLGCC^N, 


427 


FIAT  H 
SYflBOL 


DESCRIPTION 


5 uarolm i nf  usage 

SU8R  CODE  VAR 


1 Total  no zi It  eslt  are* 


I Total  vacuun  thrust  trocketl 


I Atnospherlc  pressure 


J Deri*.  Of  press  Urt  alt. 


I Thrust 


Q First  control  vector  governing  equation  value 
corresponds  to  error  in  thrust 


0 Partial  of  governing  equation  art  state  or  control 
vector  component 

0 Partial  of  governing  equation  art  state  or  control 
vector  component 


/ GENF 

/( 

520  ) 

ACCEL 

I 

AE 

F H2 

I 

AE 

INPUL 

I 

AE 

PR0P8 

0 

AE 

PRGP1N 

0 

AE 

SDER3 

I 

AE 

/GENF 

/( 

528  ) 

ACCEL 

I 

FVAC 

EQUA3 

PI 

FVAC 

FH2 

I 

FVAC 

IPIPUL 

n 

FVAC 

PROPS 

« 

FVAC 

PROPIN 

m 

FVAC 

S0ER3 

i 

FVAC 

/GENF 

/( 

308  ) 

E0UA3 

fl 

DZrt 

FH2 

i 

PA 

IflPUL 

i 

PA 

OUT 

i 

PA 

POBC 

i 

PA 

S0ER3 

i 

PA 

/GENF 

/( 

312) 

ACCEL 

i 

PAR 

FH2 

i 

PAR 

/GENF 

/( 

HI)  ) 

ACCEL 

i 

T 

BLGCON 

n 

T 

BLH 

i 

T 

BL6 

i 

T 

BL7 

i 

T 

BLS 

i 

T 

EL2 

i 

T 

E0UA3 

0 

T 

FH1 

I 

i 

FH2 

1 

T 

FH3 

I 

T 

FRH 

I 

T 

IPIPUL 

I 

T 

OUT 

I 

T 

PROP  B 

0 

T 

PROPIN 

0 

T 

REU3 

0 

T 

SDER3 

I 

T 

/GENF 

/< 

572  ) 

BLGCON 

I 

XKl 

FH1 

0 

XKl 

FH2 

0 

XKl 

FH3 

0 

XKl 

FRH 

0 

XKl 

P1GOELA 

I 

XKl 

/GENF 

/( 

553  ) 

FH2 

0 

XKl  R 

FH3 

m 

XK1R 

FHM 

0 

XKl  ft 

/GENF 

/( 

575  ) 

BCGCOH 

I 

XK1T 

FR1 

0 

XK1T 

FH2 

0 

XK1T 

FH3 

PI 

XK1T 

FHH 

0 

XK1T 

mODELA 

I 

XK1T 
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FH2 


1. 

subroutine  fh2 

FM2 

2 

COrtHON/GENF/ 

GENF 

3. 

• 0nG(2D> 

,0tt6P<  20, 

2 ), VAROt 9 ) 

, TDLl 9 ) 

,SVAfi(  10) 

,UDC(  20  ) 

SENF 

9. 

♦ At  9,9) 

, ACONt  9 ) 

, BCDNt 9 ) 

, COT  1(9,9) 

,OCON(9  > 

.DTP 

SENF 

5. 

• OTS 

,DT 

,6 

,OPSQ 

0 

,os 

GENF 

6. 

•R 

,RE 

.PIACH 

,PA 

,R0 

,CS 

GENF 

7. 

*VNU 

PAR 

, ROR 

,C$R 

VNR 

, SUrtSO 

SENF 

8 

• SVSQ 

,TI  FlEPH 

,TIrtES 

,TOP 

,TQS 

GENF 

9. 

*TST(20> 

,TPH  l 20 ), DI St  20  ) 

, DIPt 20 1 

,T 

GENF 

10. 

•TtPK  20) 

. TLS  1 t 20 ), DIP 1( 20) 

, DISK  20) 

.TIRE 

,0«P 

GENF 

11. 

♦TIUPR 

,LIFT 

, DRAG 

,TAX 

TBURN 

,T8U(2G ) 

SENF 

12. 

♦AE 

,FP 

.FPOLD 

,FPD 

, machr 

,flAC«V 

GENF 

13. 

*QR 

,QV 

,FVAC 

, LIFTV 

GENF 

19. 

♦LIFTR 

,LIFTA 

ORAGV 

'drags 

, ORAGA 

GENF 

15 

* 

LIFT* 

. D8R 

, OB 

, ISP 

, ISPF 

GENF 

16. 

* 

ULFT 

, ULFTV 

.ULFTB 

, ULFT A 

GENF 

17. 

•XWCG 

,XHCGV 

,XflC6R 

, XflCGA 

,XHC6N 

.COOAE 

GENF 

18. 

♦CULFT 

, CT 

.CALPHA 

, CDE 

.OEITAE 

,SIO 

GENF 

19. 

•COO 

SlDftE 

, XCG 

, ZC6 

,XJ 

GENF 

20. 

COPlftON  / 

SENF  / 

GENF 

21. 

• XJV 

.XJR 

,SH 

,GArt9AD 

, XKG 

,XXP 

GENF 

22. 

•PRATED 

, i RATED 

GENF 

23. 

•PI 

,P2 

,P3 

,xxi 

. XK2 

. XK3 

GENF 

2*1. 

• XK1T 

.XX2T 

, XX3T 

, XXI 0 

, XK2D 

, XX3D 

GENF 

25. 

♦XK1A 

. XX2A 

. XX3  A 

, XXIV 

XX2V 

. XX3V 

GENF 

26. 

• XK1G 

,XK26 

, XX3G 

f XX1P 

. XK2P 

, XX3P 

GENF 

27. 

• XKin 

,XK2R 

,XK3R 

, XK10 

, XX20 

, XK30 

GENF 

28. 

•XX 1U 

.XK2U 

, XK3U 

,xxin 

.XX2H 

,XX3n 

GENF 

29. 

• PV 

.PG 

.PP 

.PR 

, PO 

,DPO¥<  3,8) 

SENF 

30. 

REAL  LIFTR  , LIFT 

, L1FTA-L1FTN  . 

flACrt, 

HACHR, 

GENF 

31 

• ISP,  ISPF,  rtftCHV.L 

IFTV  . IRATED 

FfiAT 

32 

OIHENSION  TPHKIG). 

TSTH  10) 

GENF 

33. 

EOUI VALENCEt  TLP 1 ,TPH1 ),(  TLS 1 .TST1 ) 

GENF 

39. 

CDflrtON/ ST  ATE3/ 

STA7E30 

35 

•VARt 19) 

-DVAR  ( 19 ).VARL  ( 99) 

,DVftRL<  99 ) 

Y0(  9 ) 

,SVY< 10 ) 

5TATE30 

36 

•XLt  9 9) 

,YDP( 20,9 ) . YDS  (20.9) 

L05GAN 

,SI«GA* 

,SAV6P(  15) 

STATE3D 

37 

•SINP5I 

.C0SPS1 

.SINBHO 

,CO5RK0 

,OCCRHO 

,OCQR02 

STATE3D 

38. 

• SVBV  (9 

),  OflEGA 

,0l1ESft2 

9 

STATE3D 

39. 

• VOV 

-60  V 

,RBV 

, nov 

,PDV 

,00V 

STATE30 

90. 

•UOV 

, VD6 

. GOG 

,ROG 

, PD9 

,006 

STATE30 

91. 

• UOG 

, VDR 

. BDR 

,noR 

,POR 

,ODR 

STATE30 

92. 

• UDR 

. VDP! 

, SOW 

,flO  n 

,POfi 

, VDP 

STATE30 

93. 

•BOP 

,POP 

,00P 

, UDP 

, VDO 

t GOO 

ST  AT63D 

99. 

•P  DO 

,UDO 

, HTOV 

,HTDR 

STATE30 

95. 

REAL  MDP) 

. RDV,  NOR 

STATE3Q 

96. 

C0FMQN/STftTE3/ 

STATE3D 

97. 

•SIN2R0 

.COSZRO 

,C0526A 

STATE3D 

98. 

ENTRY  FH2010 

FH2 

99. 

XK1R  = AE*PAA 

FH2 

50 

ENTRY  FH2001 

FH2 

51. 

90  XK  IT  = 1. 

FH2 

52. 

ENTRY  FH 

2000 

FH2 

53. 

50  XXI  = T - 

FVAC  + AE*P A 

FH2 

59.  C 

FH2 

55 

RETURN 

FH2 

56. 

END 

FM2 
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SUBR0UT INE 
FH3 


Subroutine  FH3 


Entry  Point.  FH3010,  FH3001,  FH3000 


Purpose 

Subroutine  FH3  is  the  governing  equation  (XK1)  associated  with  the  thrust 
element  in  the  m-plane  control  vector  when  the  thrust  is  being  throttled  to 
maintain  a limit  total  acceleration. 

Description 

The  solution  of  the  in-plane  control  using  the  governing  equations  is  des- 
cribed in  Section  9 of  Volume  I.  This  subroutine  is  called  from  BLGCC^N. 


M1RIHAN  HATH 

i.YI’lHOL  SYMBOL 


CODE 


DESCRIPTION 


SUBROUTINE  USAGE 
SUBH  LOOE  YAll 


CODAE  cjsl*-tE)  ! See  iy nbo  I 


COSA  COSa  I See  syabol 


DB 


I Base  drag 


DBR  I Partial  of  base  drag  art  altitude 


DBAS  0 I Aerodynaalt  drag 


/GENE  /(  5 H 9 ) ACCEL  I COOAE 

BLR  I COOAE 
BL6  1 CODAE 
B L 7 I CODAE 
BL8  I COOAE 
FH3  I CODAE 
5QEA3  I CODAE 
VT  0 CODAE 

/AEC03  /(  8)  ACCEL  I COSA 

BLR  I COSA 
BL6  I COSA 
BL7  I COSA 
BLS  I COSA 
RH3  I COSA 
OUT  I COSA 
VT  n COSA 

(LBS)  /GENE  /(  537  ) ACCEL  I OB 

BLR  I DB 
BLS  I DB 
BL7  I DB 
BLS  I DB 
EQUA3  I DB 
FH3  1 DB 
OUT  I DB 
5DER3  1 DB 
VT  I DB 

/GENE  /{  536)  ACCEL  I DBR 

BLA  J DBR 
BL6  I DBR 
BL7  I DBR 
BLS  I DBR 
EQUA3  1 DBR 
FH3  I DBR 
VT  I DBR 

(LBS)  / GENF  /(  A97 ) ACCEL  I DRAG 

BL5  I DRAG 
BL7  1 DRAG 
BLS  I DRAG 
ENYPRfl  I 0RA6 
FH3  t DRAG 
OUT  5 DRAG 
PROP  B 0 DRAG 
PROPiN  D DRAG 
SOER3  1 DRAG 
VT  IS  DRAG 

/GENE  /(  5 3A ) ACCEL  l DRASA 

BLS  I DRA5A 
BL7  1 DRASA 
BLS  i ORAGA 
FH3  } DRASA 
VT  fl  DRAGA 

/GENF  /(  533)  ACCEL  I ORAGR 

BL5  I DRAGR 
BL7  I ORAGR 
BLS  1 DRAGR 
FH3  I DRAGR 
VT  FI  DRAGR 

/GENF  /(  532)  ACCEL  I DRAGV 

BLS  I ORAGV 
BL7  I DRAGV 
BLS  i DRAGV 
FH3  I DRAGV 
VT  n DRAGV 

/ AR COAT /(  12)  BL5  5 GflAX 

FH3  5 GflAX 
FIOOELA  I GflAX 
PROPB  I GflAX 
PRO P 1 N I GflAX 
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&31 


HATH 

svrnaoL 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


SUBROUTINE  USAGE 
SUBh  LODE  VAR 


I Gr ev 1 1 at  1 ona 1 acceleration  at  surface  of  the  earth  /GLOBAL/I 

(FT/SEC2) 


I Aeredynaaic  lift 


1 Partial  of  lift  art  a n g I e- of - atta cK 


I Partial  of  LIFT  art  aass 


I Partial  of  lift  art  altitude 


I Partial  of  lift  art  velocity 


earth  /GLOBAL/!  1)  ACCEL  I GR 
,eFr2,  BL5  I GR 

E0UA3  I GR 
FK3  I GR 
GEINP  I G 
GEINP  I GR 
GEINP  0 IG 
OUT  I GR 
PADS  1 I GR 
POBC  I GR 
REU3  I GR 
SDINP  I GR 
SIZE  I GR 
SIZ1  I GR 
SIZ2  I GR  . 
SIZ3  I GR 
SIZA  I GR 
SOflG  I GR 
STAU  I GR 

< LBS  ) /GENE  /(  A96)  ACCEL  I LIFT 

BLA  I LIFT 
BL5  I LIFT 
BLfe  I LIFT 
EHVPRrt  I LIFT 
FH3  I LIFT 
DOT  I LIFT 
PROPB  0 LIFT 
PROPIN  0 LIFT 
VT  D LIFT 

/GENF  /(  531)  ACCEL  I LIFTA 

BLA  I LIFTA 
BL5  I LIFTA 
BL6  I LIFTA 
FH3  I LIFTA 
VT  0 LIFTA 


Sinto-bg)  I See  sy«ho  I 


/GENF  /<  535  ) ACCEL 

BLA 
BL5 
BLfe 
FH3 
VT 

/GENF  /l  530)  ACCEL 
BLA 
BL5 
Bit 
FH3 
VT 

/GENF  /(  529)  ACCEL 

BLA 
BL5 
BLfe 
FH3 
VT 

/GENF  /(  55 T ) ACCEL 

BLA 
BL6 
BL7 
BL8 
FH3 
VT 


I See  syabol 


/AEC03  /( 


7)  ACCEL 
BLA 
BLfe 
BLT 
BL8 
FH3 
GUI  3A 
OUT 
VT 


I LIFTH 
I LIFT* 
I LIFID 

I lifth 

1 LlFTN 

0 LIFTN 

1 LTFTR 
1 LIFTR 
I LIF.TR 

I LIFTR 
I LIFTR 

0 LIFTR 

1 LI  FT  V 
I LIFTV 
I LIFTV 
I LIFTV 
I LIFTV 

0 LIFTV 

1 SIOAE 
I SIOAE 
I SIOAE 
I SIOAE 
I SIOAE 
I SIOAE 

0 SIOAE 

1 SINA 
I SINA 
I SINA 
I SINA 
I SINA 
I SINA 
n SINA 
I SINA 
Pi  SINA 


30  OCT  72  G 01-A6 
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DESCRIPTION 


5 T 0 RAGE 
BLOCK  LOL 


SUBROUTINE  USAGE 
ii  UBR  CODE  VAR 


I Thruat 


I Height 


0 First  control  rector  governing  equation  value 
corresponds  to  error  tn  thrust 


H Partial  of  governing  equation  ort  State  or  control 
vector  conponent 

n Partial  of  governing  equation  art  state  or  control 
vector  conponent 

n Partial  of  governing  equation  «rt  state  or  control 
vector  conponent 

n Partial  of  governing  equation  *rt  state  or  control 
vector  component 

ft  Partial  of  governing  equation  art  state  or  control 
vector  component 


fl  Partial  of  governing  equation  nrt  state  or  control 
vector  conponent 


/GENF 

/( 

HI  1 ) 

ACCEL 

I 

T 

blgcon 

n 

T 

BLH 

i 

T 

BL8 

i 

T 

BL7 

i 

T 

B L8 

i 

T 

EL2 

i 

T 

EQJA3 

0 

T 

FH1 

i 

T 

FH2 

i 

T 

FH3 

l 

T 

FHH 

i 

T 

IP1PUL 

! 

T 

OUT 

1 

T 

PROPB 

0 

T 

PROPIN 

0 

T 

REDS 

0 

T 

SDER3 

I 

T 

/ GENF 

/( 

H12  ) 

BL5 

1 

U 

ENVPRH 

I 

U 

E0DA3 

n 

u 

FH3 

l 

u 

OUT 

] 

III 

PDBC 

i 

w 

REU3 

1 

u 

TRTOSZ 

I 

u 

/GENF 

/{ 

572) 

BLGCON 

1 

XK1 

FH1 

0 

XXI 

FH2 

0 

XK 1 

FH3 

0 

XK1 

FHH 

0 

XXI 

I900ELA 

I 

XX 1 

/GENF 

/( 

581) 

BLGCON 

1 

XX 1 A 

FH3 

PI 

XX 1 A 

/GENF 

/( 

578  ) 

BLGCON 

I 

XK1D 

FH3 

N 

XX  1 D 

/GENF 

/( 

802  ) 

FH3 

ft 

xxin 

/GENF 

/( 

593) 

FH2 

0 

XK1R 

FH3 

N 

XX1R 

- 

FHH 

0 

XX 1R 

/GENF 

/( 

575  ) 

BLGCON 

1 

XX1T 

F HI 

0 

XX1T 

FH2 

0 

XX  IT 

FH3 

PI 

XX1T 

FHH 

0 

XK1T 

NODELA 

I 

XK  IT 

/GENF 

/( 

58H  ) 

BLGCON 

1 

XXIV 

FH3 

n 

XXIV 

FHH 

0 

XXIV 
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SUBROUTINE  FH3 
COrtnON/ AfiCDAT  f 


3. 

•SREF 

,EJ 

,*1SP 

.TMULT 

,QTMC 

- DTP  I 

4. 

•lATrt 

, I MODE 

,JAER 

,JPRO 

X 

.6  MAX 

5. 

•XLMAX 

HDMAX 

, GP1D0T 

.ALFflAX 

PHFlAX 

HAEA 

6 

• MAEB 

, HAEC 

, NAED 

,HAEE 

, HAEF 

, P1AEG 

T 

♦m 

,flI$P 

,mxcG 

,«zcg 

, P1UDA 

, nuDB, 

8 

• MOB 

, XCGR 

,ZCGR 

,XE 

,2E 

, XT 

9 

•DREF 

, flCND 

,RHGB 

, OMUIT 

, REflAX 

DIMENSION  ftRCDfit MO ) 
EDUI VALENC£(  SREF, ARCDA  > 
COMMON/ GENF/ 


14. 

*0nG<2Q> 

.OtlGPt  20.2 

. V AflO(  9 ) 

,TQL(9> 

SVAR<  10) 

,WDC(20) 

SENF 

15. 

*A(  9 9) 

, ACQN( 9 ) 

,BCONC  9) 

CQTI(9,9) 

,OCON(  9 ) 

,OTP 

GENF 

16 

♦ DTS 

'DT 

, DPSQ 

,0 

SENF 

U. 

*R 

,RE 

.MACH 

,PA 

,RQ 

,cs 

SENF 

18 

•VNU 

.PAR 

.RGR 

. CSfi 

,VNR 

,SU*S8 

GENF 

19. 

• SVSQ 

.TlrtEPH 

, TIMES 

,TQP 

,TOS 

,TR(9) 

SENF 

20. 

*TST(20) 

,TPH  ( 20 

1 0 1 S ( 20  ) 

.DIPCZO) 

,T 

SENF 

21 

•TLP  1(  20 

,TLS  1 (20 

,0IPl(2O 

, DISK  20  ) 

.TIRE 

,ORP 

SENF 

22 

•TMPR 

.LIFT 

, DRAG 

.TAX 

,TBURN 

.TBU120) 

SENF 

23 

24. 

* AE 
♦OR 

,QV  * 

, FP  OLD 
,FVAC 

,FPD 

.LIFTV 

,P1ACHR 

,MACHV 

SENF 

GENF 

25 

•LIFTR 

.LIFTA 

ORASV 

'drasr 

, CRAG A 

SENF 

26. 

* 

LIFT  PS 

. DBR 

,DB 

,I5P 

, ISPF 

SENF 

27. 

* 

ULFT 

aULFTV 

t ULFTR 

, ULFT A 

SENF 

28 

♦ XflCG 

.XMCGV 

,XP1CGR 

, XMCSA 

, xncGn 

COOAE 

GENF 

29 

30 

31 

•CULFT 
♦ COD 

common  / 

,CT 

. S I OAE 
GENF  t 

. CALPHA 
, XCG 

,CDE 
, ZCG 

, DEtT  AE 
,XJ 

,SI0 

SENF 

GENF 

GENF 

32 

33. 

• XJV 
•FflATEO 

, XJR 
.1RATEC 

, SH 

, GAHRAD 

,XKG 

,XXP 

GENF 

GENF 

34. 

•PI 

,P2 

>3 

XK1 

, XK2 

. XK3 

GENF 

35. 

♦XK1T 

. XK2T 

, XX3T 

. XK1D 

. XK2D 

, XK3D 

GENF 

36. 

• XK1A 

,XK2A 

. XK3 A 

, XK1V 

,XK2V 

,XX3V 

GENF 

37. 

♦ xxiq 

, XK26 

. XK3G 

,XK1P 

,XK2P 

. XX3P 

GENF 

38. 

• XK1R 

, XK2R 

. XK3R 

, XK10 

,XK20 

. XK30 

SENF 

39. 

♦ XKiU 

. XK2U 

. XK3U 

,XK1A 

,XX2M 

. XX3M 

GENF 

40. 

♦ PV 

,PG 

,PP 

,PR 

,P0 

,DPDY(3,8) 

GENF 

41 . 

REAL  LIFTS  , LIFT 

LIFTA  LIFTS 

, 

MACH. 

flACHR, 

GENF 

" k.  i.jr  in  f u*ri  . tir  in.Lir  I rt 

♦ ISp  ISPF,  MACHY,LIFTY  iRATED 
DIMENSION  7PHW  10I.TSTK  10  ) 

EOU1 VALENCE! TLP 1.TPH1 ), ( TLS1.TST1 > 
COMMON/ STATES/ 


* VAR( 14) 

, OVAR  UM),VARL  (' 

♦ XL(  9,9) 

. YDP<  20,9 ). YDS  (20 

*$I NPS1 

.C0SPS1 

, 51 NRHO 

•SYBY  l Y } , OMEGA 

, DMEGA2 

♦vov 

, GDV 

,RDV 

• UDV 

.VOG 

, GDS 

*uos 

,YDR 

,GDR 

• UDR 

, VOM 

,Gon 

• GDP 

, P DP 

,ODP 

♦ PDO 

,UO0 

, HTDV 

REAL  «DM  . KDV,  RDR 
COrtrtOM/STATE3/ 

♦SIN2R0 

. CQS2FC3 

, C0S2GM 

COMMON/ GLOBAL/ 

*£R 

,ER 

,ORGZ 

*,JJ0P(10) 

, IFATAL 

, NARC 

.OVARLt  99 ) 

, Y0( 9 ) 

.sm  io 

COSGArt 

SINGAR  * 

,SAYBP( 15) 

, COSRHO 

, OCQRHO 

, OC0R02 

'mdv 

#POV 

.ODV 

,RD6 

,PDG 

.006 

,MDR 

.POR 

,00fi 

,non 

,POfl 

,VQP 

, UDP 
.HTDR 

, VDO 

, GDC 

*sr  ,er  .onsz  .XLAMRF 

♦ ,JJOP(10)  , IFATAL  , HARC  . NBRAN 

♦ ,KTAB(Z0),ITAB(20)  .SIS  .ItAXTAB 

*,en  .psibf,ipfLgi.  ipflg2,ipflG3 

*,ITPS0  ,KS0L  .KGLOBLIB) 

CO(W0N/AECO3/ 


, YMJRF  , LUH 

,NFARC  , IDl  M J 

^IPFLGN.INEOFLIZO) 


66. 

* APHO 

, APHR 

, ALPHA 

, VOA 

, GDA 

.PDA 

. AEC03 

67. 

*S1NA 

.COSA 

, PHI  0 

,PHID 

, PHI 

, S1NPHI 

, AEC03 

68 

*C05PHI 

, GDPH 

.POPH 

, X LAMA ( 9 ) 

,XLA«P(9  ) 

, CDG 

, AEC03 

69 

» CDOM 

, clo 

,FK 

, XCGM 

, ZCGft 

. CLO M 

, AEC03 

70 

*Crt 

, Cma 

, char  #Crtrt 

, CrtO 

,cn[m 

,FXfl 

, AEC03 

71 

•CLAN 

.CL 

, CL  A 

,CL« 

AEC03 

72 

♦ CD 

,CDA 

, CDM 

AEC03 

73. 

A5F(X, 

Y)  = T1*X 

♦ T2*Y 

FH3 

ENTRY  FH3010 
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4,35 


76. 

ASSIGN  20  TO  I GO 

FH3 

77 

GO  TO  H 

FH3 

76 

ENTRY  FH3001 

FH3 

79. 

ASSIGN  90  TO  ISO 

FH3 

60. 

GO  TO  5 

FH3 

81 

ENTRY  FH3000 

FH3 

82. 

ASSIGN  50  TO  IGD 

FH3 

03. 

60  TO  5 

FH3 

89 

C 

FH3 

85 

9 

T 5 = -DRA6R  - D6R*C05A 

FH3 

66. 

T 6 = LIFTR  - DBR*51«A 

FH3 

87. 

5 

TCOAE  = T*GQDAE 

FH3 

68. 

TSDAE  = T*SIDAE 

FH3 

89. 

DBCA  = BB*CQ5 A 

FH3 

90. 

D6SA  = 08*5 I NA 

FH3 

91 

22  = -TSDAE  4 OBSA 

FH3 

92. 

YY  = -TCDAE  4 OftCA 

FH3 

93 

11  = -YY  - DRAG 

FH3 

99. 

12  = LIFT  - It 

FH3 

95 

T3  = ZZ  - DRA5A 

FH3 

96 

TA  " LIFTA  - YY 

FH3 

97. 

60  TO  I GO 

FH3 

98. 

c 

FH3 

99 

20 

XXIV  = ASFC -DRAfitf,  L1FTV ) 

FH3 

100. 

XXIV  = XXIV  + XX IV 

FH3 

101 

XK1R  = ASF<T5,  TO  1 

FM3 

102. 

XKlfi  = XK1R  4 XK1R 

FH3 

103. 

XKin  = T2*LIFT«  - SR*6HAX**2*N 

FH3 

109 

XKm  = xxirt  4 xx in 

FH3 

105. 

90 

XX IT  = A5F( CODAE.  SIDAE) 

FH3 

106. 

XK IT  = XX1T  4 XKlT 

FH3 

107 

XX ID  = ASF< TSDAE.  -TCOAE) 

FH3 

108 

XX10  = XX1D  4 XX10 

FH3 

109. 

XXI A = A$F<  T3.  TA) 

FH3 

no 

XK 1 A = XXI A + XXI* 

FH3 

111 

50 

XXI  = ASFITl,  12)  - CGftftX*U>**2 

FH3 

112. 

RETURN 

FH3 

113. 

ENO 

FH3 
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Subroutine  FH4 


Fnt  i y Points . FH4010,  FH4001,  FH4000 


Purpose 

Subroutine  FH4  is  the  governing  equation  (XK1)  associated  with  the  thrust 
element  in  the  in-plane  control  vector  when  the  airbreathing  propulsion 
option  is  used. 

Description 

The  solution  of  the  in-plane  control  is  described  in  Section  9 of  Volume  I. 
This  subroutine  is  called  from  BL,GC0N. 


rr\ 

>N\ 


FORTRAN  HATH 

SYrtBOL  SYrtBOL 


DESCRIPTION 


& TOR  AGE  SUBROUTINE  USAGE 

BLOCK  LOC  SUBR  CODE  VAR 


T 


TAIRB 

TAIHBH 

TAIRBV 

XKl 


XK1R 

XK1T 


XKl  V 


T 


1 

Thr  g»t 

( LBS  ) 

/ 6ENF  /( 

Hll  ) 

ACCEL 

! 

T 

BLGCON 

n 

T 

BLR 

i 

T 

BL6 

i 

T 

8L7 

I 

T 

BL8 

i 

T 

EL2 

i 

T 

EQUA3 

0 

T 

F+U 

i 

T 

FH2 

i 

T 

FH3 

i 

T 

FHH 

i 

T 

I roPUL 

i 

T 

OUT 

i 

T 

PROPB 

0 

T 

PROPIN 

0 

T 

REU3 

0 

T 

S HER  3 

1 

T 

1 

Airbreather  thrgst. 

< LBS) 

/AIRBRE/T 

1 ) 

E 311 A 3 

I 

TAIRB 

FHB 

I 

TAIRB 

I 

Partial  of  airbreather  thrust  URT 

a Itl tude 

/AIRBRE/T 

3 ) 

ACCEL 

I 

TA1RBK 

FHR 

I 

TAIRBH 

1 

Partial  of  airbreather  thrust  URT 

ve  ioclty 

/ A 1 R BRE/( 

2 ) 

ACCEL 

I 

TAIRBV 

FHR 

I 

TAIRBV 

□ 

first  control  vector  governing  equation  value 

/GENE  /( 

572) 

BLGCON 

1 

XKl 

corresponds  to  error  in  thrust 

FH1 

0 

XKl 

FH2  0 XKl 

FH3  0 XKl 

FHAr  0 XKl 

nODELA  I XKl 


0 

Partial 

of  governing 

equation 

art 

state 

or 

contro 1 

/ GENF 

/( 

593) 

FH2 

0 

XK)R 

vector 

coaponent 

PH3 

n 

XK1R 

* 

FHH 

0 

XK1R 

0 

Partial 

of  governing 

equation 

■rt 

st  ate 

or 

control 

/GENF 

/{ 

5T5) 

BLGCON 

i 

XK1T 

vector 

component 

FH 1 

0 

XK1T 

FH2 

0 

XK1T 

FH3 

n 

XK1T 

FHH 

0 

XK  IT 

AlOOELA 

i 

XK  IT 

0 

Partial 

of  governing 

equation 

or  t 

s-t  a t e 

o r 

contro  I 

/GENF 

/l 

58A) 

BLGCON 

i 

XK1V 

ve  ctor 

coaponent 

FH3 

rt 

XKl  V 

FH*t 

0 

XKl  V 
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FHH 


l 

Z. 

3. 

9. 

5 

6. 

7. 

8 

9. 

10. 

11. 

12 

13 

1M. 

15 

16 
17 
18. 

19 

20. 

21. 

22. 

23. 

29 

25 

26. 

27. 

28. 

29 

30 

31. 

32. 

33. 

39 

35. 

36. 

37. 

38. 

39 

90. 

91. 

92. 

93. 

99.  C 
95 

96. 

97.  C 

98. 

99. 

50 

51. 


SUBROUTINE  FH9 
CDMflON/GLOBAL/ 

♦ GR  ,ER  ,OMGZ 

♦,JJGPC10)  .IFflTAL  ,NARC 

♦ fKTAB<20),lTAB<20)  ,$IS 

*,G*  .PSIRF, IPFLGt, 

♦,1TPS0  , KSOL  ,K6L0Bl(8> 

COflPlON/bENF/ 


, XLAflRF  .YP1URF  ,LUM 
, NBR  AN  ,NF  ARC  ,ID(9) 
, MAXT  AB 

1PFLG2,IPFLG3,1PFLGH,1NEQFL<20> 


♦0«1S<  20) 
*A<  9,9) 
♦DTS 
♦R 

♦ VNU 

♦svsa 
♦TST( 20  > 
*T  LPll 20  ) 
♦TinpH 

♦ AE 

♦ OR 

♦ LI  FIR 


,OMGP(20,2),VARQ(  9> 
,AC0«(9)  ,BC0«t9> 


♦ XMCG 
♦CULFT 

♦ COD 

common 

♦ XJV 
♦FRATED 
♦PI 

♦ XK1T 

♦ XK1A 

♦ XKIG 

♦ XK1R 

♦ XK1U 
♦PV 

REAL  LIFT 
ISP,  ISPF 


,BT 

,RE 
, PAR 
,TlnEPH 
,TPH 
,TLS1 

, lift 

,FP 

,ay 

,LIFTA 

LJFTH 

,XMCGV 

,CT 

,51 DAC 
GENF  / 


, G 

,MACH 
,ROR 
.TIMES 
< 20 ) DISC  20  ) 

( 20  ) DIPK  20  ) 
.DRAG 
.FPOLO 
,FVAC 

!dbr 

ULFT 
, XrtCGR 
,CALPHA 
, XC6 


,TOL[  9 ) 

, COTI 19,9) 
, DPSQ 
,PA 
,CSR 
,TOP 

, OIP(  20 ) 

, QlSl(  20 ) 
,TAX 
, FPO 
AIFTV 
ORAGV 
,0B 

, ULFT V 
, XMCGA 
, Coe 

, ZCG 


,SVAR( 10) 
,DC0N19) 

^RO 

, VNR 

,TOS 

'time 
,tburn 
, MACHR 

'drasr 
,isp 
, ULFTR 
, XrtCGrt 
, DELTAE 
,XJ 


UOC( 20 ) 
,DTP 

,o$ 

,CS 

.SURSQ 

,TR<9) 

,W 

,omp 

,160(20 ) 

, MACH V 

. OfiAGA 
,ISPF 
, ULFTA 
COD  AE 
,5ID 


FHH 

GLOBAL 

global 

global 

global 

global 

RETAP 

GENF 

genf 

GENF 

GENF 

GENF 

6ENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 


XJR 

RATED 

P2 

,6H 

/ GftMRflD 

,XKG 

, XKP 

GENF 

>3 

, XK1 

, XK2 

. XX  3 

GENF 

GENF 

XK2T 

, XK3T 

,XK1D 

, XK2D 

, XX3D 

GENF 

XX2A 

, XK3A 

,XKSV 

, XK2V 

, XK3V 

GENF 

XK2G 

, XX3G 

,XKlP 

, XK2P 

. XK3P 

GENF 

XKZR 

, XK3R 

,XK10 

,**20 

, XK30 

9 

GENF 

XK2U 

, XX3U 

,xxin 

,XX2M 

t XX3M 

GENF 

PS 

,PP 

,P0 

,DPDY( 3, 8 ) 

GENF 

, w*r,  , LIFTA, LIFTM 
ttACHV. L1FTV  . IRATED 
DIMENSION  TPHl(lO). TSTl(lO) 

E0UIVALENCE(TLP1,TPHI ) .( TLS1.1ST1 ) 

COMMON/ AIRBRE/  TAIRB,TA1RBV,TAIR&H,SFC,5FCV,SFCH 
ENTRY  FH9O10 
XKIR  =-TAlRBH 
XK1V  =-TAIRBV 

ENTRY  FH9001 
XK1T  = 1. 

ENTRY  FK9000 
XK1  “ T - T AIRB 
RETURN 
END 


MACH,  MACHR, 


FA  AT 

GENF 

GENF 

FH9 

FH9 

FH9 

FH9 

FH9 

FH9 

FH9 

FH9 

FHH 

FHH 

FHH 

FHH 
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441 


FNTG 


Pu  rpose 

FNTG  controls  integration  of  forward  trajectory  and  all  subsidiary  functions 
Description 

FNTG  is  a subroutine  in  the  UNIVAC  version  of  the  program,  however,  in 
the  CDC  version  of  PADS  it  is  a "Program11  which  heads  up  the  largest 
overlay  m the  steepest  descent  module. 

The  logic  m this  program  is  geared  mainly  to  the  Runge-Kutta  numerical 
integration  subroutine,  RKUTTA,  Through  the  use  of  the  traffic  flag,  L. 
The  meanings  of  L are  listed  below. 


L = 

1, 

Evaluate  derivatives 

L,  = 

2, 

Check  cut-off  and  store  data 

L = 

o 

a. 

At  corner  point  or  print  time 

L. 

4, 

Restart  integration. 

442 


444 


MATH 

SYBBOL 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


5UBRDUI1NF  USAGE 
S'JBR  CODE  VAR 


alpha 

ot 

0 

Angle  of  attaeK  (RAO) 

/AEC03  /( 

3 ) 

BEROCO 

I 

ALPHA 

BLGCON 

PI 

ALPHA 

8L2 

I 

ALPHA 

FNTG 

0 

ALPHA 

PIAPiECO 

I 

ALPHA 

. 

P100ELA 

PI 

ALPHA 

PIO  DELB 

0 

ALPHA 

REU3 

0 

ALPHA 

VT 

I 

ALPHA 

APHO 

OC  . 

I 

Angle  of  attack  from  last  noalnal  trajectory 

/AEC03  /< 

1 ) 

AST3 

PI 

APHO 

o 1 d 

( DEG ) 

FNTG 

I 

APHO 

PIT  X 3 A 

1 

APHO 

OUT 

I 

APHO 

PROPB 

0 

AEZRO 

PROPIN 

0 

AEZRO 

arcda 

5r,f 

I 

Aerodynaaic  reference  ere*  (FT2) 

/ARCDAT/( 

1 ) 

BNT  G 
EQUA3 

I 

I 

ARCDA 

SREF 

FNTG 

I 

ARCDA 

FXOAT 

I 

ARCDA 

FXOAT 

0 

I ARCDA 

GEtNP 

PI 

ARCDA 

SDINP 

I 

ARCDA 

SIZIN 

I 

ARCDA 

SIZIN 

PI 

SREF 

THRUST 

I 

SREF 

VT 

I 

SREF 

DIP 

0 

Array  of  phase  end  integration  intervals  for_  trial 

/GENF  /( 

391) 

BNT  G 

I 

DiP 

tr  ajectory 

FNTG 

0 

DIP 

DIS 

0 

Array  of  arc  end  integration  intervals  for  trial 

/GENF  /( 

371 ) 

BNT  G 

I 

OiS 

tr  ajectory 

FNTG 

0 

DIS 

DT 

P5 

Integration  interval  (SEC) 

/GENF  /{ 

300  ) 

BNTG 

FI 

DT 

FNTG 

n 

DT 

REU3 

i 

DT 

RKTA3A 

i 

P 

RKTB3A 

i 

P 

STP3 

i 

DT 

YREF3 

0 

DT 

DTNC 

At 

I 

Integration  interval  (5EC) 

/ ARCOAT/( 

5 ) 

BNTG 

1 

DTNC 

FNTG 

I 

DTNC 

GEINP 

B 

DTNC 

PROPIN 

I 

DTNC 

OTP 

m 

Altered  integration  interval  reqd  to  hit  phase  cut 
off  Csdl  (SEC) 

/GENF  /( 

298  ) 

FNTG 

m 

DTP 

DTPI 

i 

Print  frequency  for  trajectory 

/ARCDAT/( 

8) 

FNTG 

I 

DTPI 

GEINP 

m 

DTPI 

DTS 

pi 

Altered  integration  interval  reqd  to  hit  arc  cut- 
off CsdJ  (SEC) 

/GENF  /( 

299) 

FNTG 

« 

DTS 

I ARC 

m 

Arc  nuaber 

/KCOOES/( 

1 H 6 ) 

A0ICB3 

I 

I ARC 

ADID3A 

I 

I ARC 

ADJUST 

I 

I ARC 

A$T3 

I 

1 ARC 

BNTG 

pi 

IARC 

ENVPRP) 

I 

I ARC 

FNTG 

n 

IARC 

GETIT 

I 

IARC 

PiOBELA 

I 

IARC 

PROPB 

i 

IARC 

PROPIN 

I 

IARC 

REU3 

I 

IARC 

SDINP 

m 

IARC 

STAU 

I 

IARC 

STP3 

I 

IARC 

TRT0S2 

I 

IARC 
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F OUTRAN 
SYmBOL 

t COR 

1 NO 


I NTB 


IOPEN 

IPFLG1 

I PH 


1 PST 

I SPH 
ISST 
I ST  ART 


I STOP 
ISTPP 
ITER 


I T I 


HATH 

SYP1BOL 


CODE 


I 


n 


I 


n 


i 


pi 


pi 


0 
0 

1 


PI 


PI 

I 


I 


DESCRIPTION 


Phase  sequence  erroy 


Flag  Indicates  ahether  on  first  nomine!  trajectory 
11ND  = 1) 


Branching  end  Intermediate  constraint  flag 


Closed  to  open-loop  control  saitch  ahen  equal  to  2 

IPFLG1/0  sgpresses  print-out  of  velocity  losses  and 
inertial  Euler  angles. 


Phase  nuaber 


Phase  counter  for  first  noatnai  trajectory 

Sign  of  phase  cut-off 
Sign  of  arc  cut-off 
Initialization  and  dtvergance  flag 


Arc  cut-off  flag 


Phase  cut-off  flag 


Trajectory  pass  Indicator. 
ITER  = 1.  CONSTRAINTS 

= l,  optimzation 

= 3,  50LUTI0N 


Opt  lalzed  arc  tine  flag 


SIORAC'E  SUBROUTINE  USASE 

BLOCK  LOC  SU4R  COOt  VAR 


/XCODES/l 

10  > 

ADJUST 

I 

I COR 

FNTG 

I 

ICOR 

PRP1SET 

I 

ICOR 

SOINP 

« 

ICOR 

/XCODES/t 

HI  ) 

AST3 

I 

INO 

BGET3 

I 

INO 

FNTG 

PI 

INO 

GUI  3 A 

I 

INO 

PITX3A 

I 

END 

PROPIN 

1 

INO 

/XCODES/t 

31  ) 

A0IC3A 

I 

I NTB 

BNTG 

I 

I NTB 

ENVPRPI 

I 

I NT  8 

FNTG 

I 

I NTB 

SOINP 

ra 

I NTB 

TEST 

1 

I NTB 

TRAN3 

1 

I NTB 

TRTOSZ 

1 

I NT  B 

/XCODES/l 

H2  ) 

FNTG 

pi 

IOPEN 

PROPIN 

0 

IOPEN 

/global/i 

69) 

FNTG 

1 

IPFLG1 

OUT 

1 

1PFLG1 

PDBC 

1 

IPFLB1 

PRINT 

1 

IPFLG1 

TRTOSZ 

0 

ipflsi 

/XC0DES/( 

H3> 

A01D3A 

1 

1 PH 

ADJUST 

I 

IPH 

AST3 

1 

I PH 

BNTS 

n 

IPH 

FNTG 

P! 

IPH 

GETIT 

I 

IPH 

GUI  3 A 

I 

IPH 

SOINP 

R 

IPH 

/XCOOES/I 

167) 

AST3 

I 

IPST 

FNTG 

n 

IPS! 

GUI  3a 

1 

IPST 

REU3 

I 

IPST 

/XCOOES/l 

H9  ) 

FNTG 

0 

ISPH 

STP3 

1 

ISP  H 

/XCODES/l 

195  ) 

FNTG 

0 

ISST 

STP3 

1 

ISST 

/XCODES/l 

197  ) 

AST3 

0 

ISTAHT 

BLGCON 

0 

istart 

BLYNE 

0 

ISTART 

FNTG 

1 

ISTART 

PIODELA 

0 

ISTART 

PROPIN 

0 

ISTART 

REU3 

1 

ISTART 

TEST 

pi 

ISTART 

TOPPI 

pi 

ISTART 

/XCOOES/I 

175) 

FNTG 

pi 

ISTOP 

STP  3 

1 

ISTOP 

/XCOOES/I 

176  ) 

FNTG 

pi 

ISTPP 

STP3 

1 

ISTPP 

/XCODES/l 

199  ) 

AST3 

1 

ITER 

FNTG 

1 

ITER 

SETIT 

1 

ITER 

PIG  DEL  A 

1 

ITER 

OUT 

1 

ITER 

PAY02 

n 

ITER 

PROPIN 

1 

ITER 

TEST 

pi 

ITER 

TOPPI 

pi 

ITER 

/XCODES/l 

30  ) 

ADJUST 

pi 

I T I 

FNTG 

I 

I T I 

SOINP 

0 

1 T I 
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FORTRAN  P1ATH 

SYPIBOL  SYPIBOL 

ITT 
1 VAR 

JGID 

JGII 


JPH 

JPS 

JS 


J ST 


K 


XPST 

XSOL 

KST 

L 


LUlfl 


NARC 


coot  DESCRIPTION 


U Arc  number  ahm  derivatives  mere  last  evaluated 
PI  Cut-off  variable  option  Indicator 


1 Control  option  flag  array 


PI  Control  option 


PI  Phase  cut-off  option  flag 


PI  Absolute  value  of  phase  cut-off  option  code 


PI  Absolute  value  of  arc  cut-off  option,  code 


1 Arc  cut-off  option  flag 


0 Storage  retrieval  flag  indicates  end  of  arc,  phase, 
or  data- 


Pt  Controls  logic  for  coapute  interval  during  adjoint 
i nte  gr  ati on 

I An  interna]  flag  that  has  the  saae  significance  as 
ITPSO. 


P)  Arc  or  phase  cut-off  flag 


PI  Integration  traffic  control  flag 

L = 1 neans  evaluate  derivatives 
= 2 check  cut-off 
= 3 print  or  cut-off  detected 


I Prograa  control  flag. 

LUP1  = 0.  Steepest  descent  only; 

LUfl  - 1 Steepest  descent  and  adjoint 
transformation  stored  on  tape, 

LHP!  = 2 Steepest  descent  and  01, 

LUfl  = 3 flL  only. 

I Number  of  subarcs  in  the  problem. 


storage  subroutine  usag 

BLOCS  LOC  SUBR  CODE  VAR 


/FNTG  /l» 

> 

FNTG 

u 

ITT 

/XC00ES/1 

150) 

FNTG 

Pi 

l VAR 

STP3 

0 

I VAR 

T0L3 

I 

I VAR 

/XCOOES/l 

32) 

BNTO 

r 

JGID 

FNTG 

i 

JGID 

SDINP 

n 

JGID 

/XCODES/t 

195  ) 

ACCEL 

i 

JGII 

BNTS 

0 

JGI  I 

DER3A 

1 

J G 1 1 

FNTG 

A 

JG1I 

GUI3A 

i 

JGII 

P100ELA 

i 

JGII 

P10DELB 

i 

JG1I 

P1TX3A 

i 

JGII 

PDV3A 

i 

JGII 

/XCODES/l 

72) 

BNTG 

i 

JPH 

FNTG 

pi 

JPH 

SDINP 

pi 

JPH 

/XCODES/l 

152) 

A0ID3A 

i 

JPS 

BNTG 

it 

JPS 

FNTG 

R 

JPS 

STP3 

i 

JPS 

T0L3 

i 

JPS 

/xcooes/t 

153  ) 

ADICB3 

n 

JS 

ADIC3A 

i 

JS 

A0ID3A 

i 

JS 

BNTG 

M 

JS 

FNT  S 

n 

JS 

PROPB 

i 

JS 

PfiOPIN 

l 

JS 

STP3 

I 

JS 

TDL3 

i 

JS 

/XC00£S/< 

112) 

A01CB3 

I 

JST 

BNTG 

l 

J ST 

FNT  S 

i 

JST 

SDINP 

A 

JST 

/XCOOES/l 

156) 

AST3 

0 

X 

FNTG 

D 

X 

6ET1T 

ft 

X 

IflODELA 

1 

K 

SDINP 

A 

X 

/XCOOES/l 

155  ) 

BNTS 

n 

XPST 

FNTG 

n 

XPST 

/SLDBAL/l 

99  ) 

FNTG 

i 

XSOL 

P ADS  1 

0 

XSOL 

SDINP 

n 

XSOL 

/XCODES/l 

157) 

ADJUST 

i 

XST 

FNTG 

n 

XST 

/XCOOES/l 

177  ) 

BNTS 

A 

L 

FNTS 

pi 

L 

OUT 

i 

L 

RKTA3A 

A 

L 

RKTB3A 

it 

L 

5D1NP 

R 

L 

/GLOBAL/1 

6) 

AST3 

i 

Lun 

FNTS 

i 

lur 

GEINP 

i 

L U PI 

P ADS  1 

A 

tun 

SDINP 

i 

LUPI 

TOPfl 

m 

LUR 

/SLOBAL/1 

18) 

FNTS 

i 

NARC 

GEINP 

n 

NARC 

PR0P1N 

i 

NARC 

SDINP 

i 

NARC 

SIZ1N 

i 

NARC 

447 
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I-  OUTRAN 
SYniJOL 


h A1H 
SYfl&QL 


DESCRIPTION 


st  prase 

BLOCK  IOC 


SOBRPUIINE  USAGE 
S lIBR  LODE  VAR 


be  perturbed  on  remainder  of  trajectory 


I Number  of  adjustable  parameters  In  trajectory 
problem. 


0 Number  of  phases  In  trajectory 


t Number  of  arcs  on  first  branch 


I Number  of  ares  prior  to  branch  point  or 
Intermediate  constraint 


D Number  of  arcs  in  traiector 


t Array  of  arc  cut  off  values  tsdl 


H Array  of  phase  cut  Off  values  tsdl 


N Phase  cut-off  value 


1H) 

ADJUST 

it 

NPAR 

FNTG 

I 

NP  A 

PIT  X3  A 

I 

NP  A 

toph 

D 

NP  A 

13) 

ADJUST 

I 

NPARA 

BNTS 

I 

NPARA 

FNTG 

I 

NPARA 

P1TX3A 

I 

NPARA 

PAYQ2 

I 

NPARA 

PRPISET 

I 

NPARA 

SOINP 

It 

NPARA 

STAU 

1 

NPARA 

TEST 

I 

NPARA 

TOPPI 

D 

NPARA 

HR) 

BNTG 

I 

NPH 

FNTG 

0 

NPH 

PfinSET 

1 

NPH 

SOINP 

n 

NPH 

TE5T 

i 

NPH 

TOPPI 

i 

NPH 

I3H  ) 

ADICB3 

l 

NSAB 

BNTS 

i 

NSAB 

ENVPRPI 

i 

NSAB 

FNTG 

I 

NSAB 

SDINP 

n 

NSAB 

TEST 

! 

NSAB 

TRAN3 

i 

NSAB 

TRTOSI 

I 

NSAB 

133) 

AD1CB3 

l 

NSB 

BNTG 

i 

NSB 

ENVPRn 

i 

NSB 

FNTG 

i 

NSB 

REU3 

! 

NSB 

$01  NP 

It 

N5B 

TEST 

I 

NSB 

TRAN3 

1 

NSB 

TRTOSI 

1 

NSB 

no  > 

BNTS 

1 

NST 

FNTG 

0 

NST 

PROPB 

1 

NST 

SDINP 

1 

NS 

SDINP 

n 

NST 

TEST 

i 

NST 

topd 

i 

NST 

TRAN3 

i 

NST 

n 

ADJUST 

n 

0N6 

FNTG 

1 

OfiS 

PRPISET 

is 

o«e 

PROPB 

I 

ONG 

SDINP 

pi 

0 PIG 

STP3 

I 

0P1G 

TDPfl 

D 

ionG 

21  ) 

ADJUST 

0 

0P1GP 

FNTG 

PI 

OPIGP 

PRPISET 

0 

OPIEP 

SDINP 

Pt 

OPIGP 

R9A  ) 

ADJUST 

0 

0P1P 

FNTG 

PI 

0P1P 

STP3 

I 

OP1P 
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FORTRAN 

SYP160L 


HATH 

SYHBOL 


DESCRIPTION 


storage 

6LGIK  LOC 


iUBRPUTINF  U5AGE 
SU8H  U)0£  VAR 


1 Radian  to  angle  conversion,  57.29577951 


/DATA  /(  2 


I Angle  to  radian  conversion,  .01795329252 


/D-ATA  /(  3 


U Last  tine  value  ehen  -derivatives  oere  evaluated  /FNTG  /t» 


M Tike  (elapsed) 


/GENF  /(  993 


M Phase  tine 


PI  Arc  tl«e 


M Trajectory  print  tl»e 


At  Elasped  tike  at  phase  Initiation 


(SEC)  /GENF  /(  318 


(SEC)  /GENF  /(  319 


/GENF  /(  995 


/GENF  /(  320 


2) 

BEROCO 

I 

DEG 

BLGCON 

I 

RAQ 

ENVPRH 

1 

RAD 

EBUA3 

I 

RAD 

F NT  G 

I 

RAO 

GU13A 

I 

RAO 

MOOELA 

I 

RAO 

PIT  X 3 A 

I 

RAO 

OUT 

I 

RAO 

P ADS  1 

0 

RAO 

SOI  NP 

I 

RAO 

7RTOSZ 

I 

RAO 

3) 

BUCO 

I 

RDI 

OER3A 

1 

RDI 

FNTG 

I 

RDI 

GUI3A 

I 

RDI 

MOOELA 

I 

RDI 

010  DELB 

I 

RDI 

P AOS  1 

D 

RDI 

PROPB 

I 

RDI 

PROPIN 

1 

RDI 

REU3 

I 

RDI 

SDINP 

I 

RDI 

50MG 

I 

RDI 

) 

FNTG 

Id 

STT 

79  ) 

ADJUST 

0 

SVAR 

BNTG 

I 

SVAR 

FNTG 

1 

SVAR 

PRHSET 

m 

SVAR 

REU3 

i 

SVAR 

SDINP 

it 

SVAR 

TEST 

i 

SVAR 

TOPM 

i 

SVAR 

TRTOSZ 

i 

SVAR 

993  ) 

A01CB3 

0 

TIME 

AST3 

i 

TIME 

BNTG 

m 

TIME 

C0N3 

i 

TIME 

0TF3 

i 

TIDE 

ENVPRM 

I 

TIME 

EQUA3 

I 

TIME 

FNTG 

n 

TIME 

MODELA 

i 

TIME 

OUT 

i 

TIME 

PDBC 

i 

TIME 

PROPIN 

i 

TIME 

REU3 

n 

TIME 

RKTA3A 

n 

TT 

RKTB3A 

19 

TT 

VREF3 

n 

TIME 

318  ) 

E9UA3 

0 

TIMEPH 

FNTG 

19 

TIMEPH 

GETIT 

I 

TIMEPH 

GUI3A 

1 

TI  MEPH 

OUT 

1 

TIMEPH 

319  ) 

AST  3 

I 

TIMES 

E0UA3 

0 

TIMES 

FNTG 

n 

TIMES 

GETIT 

i 

TIMES 

OUT 

i 

TIMES 

995  ) 

BNTG 

0 

TIMPR 

FNTG 

(9 

TIMPR 

RKTA3A 

I 

TP 

RKTB3A 

1 

TP 

320  ) 

BNTG 

M 

TOP 

E0UA3 

I 

TOP 

FNTG 

19 

TOP 
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4*S> 


EORTHftN  nATH 

SYnBIK  SYMBOL 


cooe 


DESCRIPTION 


SUBROUTINE  USAGE 
S UBH  CODE  V AR 


TOS 

n 

Elasped  tlae  at  arc  Initiation 

/GENE 

/< 

321) 

BNT  G 

n 

TOS 

E0UA3 

1 

TOS 

F NT  G 

Cl 

TOS 

tph 

0 

Array  of  phase  end  times  on  trial  trajectory  tsd] 

/GENE 

/( 

351  > 

FNTG 

0 

TPH 

TEST 

1 

TPH 

TST 

0 

Array  of  arc  end  flies  on  trial 

trajectory  Csdl 

/GENE 

/( 

331) 

A0ICB3 

1 

TST 

BNTG 

I 

TST 

FNTG 

0 

TST 

TEST 

1 

TST 

WORK 

i 

Working  array,  contains  T0PEN1, 

T0PEN2,  and  PH1UT 

/STS 

/< 

3 ) 

AOE93A 

I 

UORK 

FNTG 

I 

WORK 

P1Q0ELB 

0 

WORK 

HTX3A 

1 

UORK 

SDINP 

n 

WORK 

TEST 

m 

UORK 

30  OCT  72  G 0J-H6 


fNTG 


1 

PROGftAn 

FNT6 

FNTG 

2 

C 

CONTROLS  I NTEGR AT  ION  OP  FORWARD  TRAJECTORY 

COMN 

3. 

C 

AND 

ALL  SUBSIDIARY  FUNCTIONS 

COMN 

9 

C 

USES  TRAFFIC  FLAG  L =1  CALC 

OERIV.  .2 

TEST  FOR  CUT-OFF. 

COMN 

5. 

C 

3 PRINT 

OR  CORNERS. 9 RESTART 

COMM 

6 

COMRON  /XCOOES/ 

XCOOES 

7 

♦ 1T0  ( 9 ),  I COR 

(20),ITl 

, I NT& 

. JGID( 20, 

2I.JPH  (20.2), 

XCOOES 

8. 

•JST  (EOT 

, NCNST 

,N$B 

, NSAB 

HI  CNB 

, 

XCOOES 

9 

• I20P 

,ICOP 

, IFAW 

, I F Afl 

,IFB 

, I ND 

, 

XCOOES 

10 

* 1 OPEN 

,IPH 

, 15PH 

, I SST 

. I ARC 

, I ST  ART 

, 

XCOOES 

11.  * 

• ITCT 

.ITER 

, I VAR 

, JK 

.JPS 

,JS 

, 

XCOOES 

12- 

*KOP 

, XPST 

,K 

,KST 

.NAD 

NCA5E 

, 

XCOOES 

13. 

*NCN 

. NE8B 

, NEO 

, NOP 

,HPH 

, 

XCOOES 

19. 

*N$T 

, IPST 

, I PRI NT 

, 1 STN 

, IPHN 

, ISTNB 

, 

XCOOES 

15 

•IPHNB 

,IBLK1 

. I BLK2 

, ISTOP 

, ISTPP 

, L 

, 

XC00E5 

U. 

*1  FOB 

,NB 

.LB 

.MB 

, NPHP 

,NPHB 

, 

XCOOES 

17. 

•NCTIN 

. NEQF  . 

ILAB(8>.JPRP.J&iI.MTT.MPIN(20).JPl. 

JP2,  JP3 

XCOOES 

16 

COMMON/ GENF/ 

SENF 

19. 

*0MG(2Q) 

,0nSP(2O,2),VARQ(  9) 

,TOL(  9 ) 

, S VAR( 10) 

,UDC( 20) 

GENF 

20 

• A{  9,9  ) 

. ACDNC9)  , BOON!  9 ) 

, COTI ( 9,9 ) 

,DCON(  9) 

, DTP 

, 

GENF 

21 

*OTS 

,ot 

,6 

,DPSO 

,a 

,QS 

t 

GENF 

22 

*R 

,RE 

.HACK 

,PA 

,R0 

,CS 

t 

GENF 

23 

*VNU 

.PAR 

, ROB 

, CSR 

, VNR 

, SUMSQ 

/ 

GENF 

29. 

*SV58 

,TIMEPH 

.TIMES 

,TDP 

,TOS 

,TR( 9) 

GENF 

25. 

♦1ST ( 20 

,TPH 

< 20), DISC  20) 

, DIP( 20  ) 

t T 

, 

GENF 

26. 

*TLP1( 20 ) 

.7  LSI 

( 20 ), 01 P 1( 20  ) 

,0151(20) 

,TIME 

,OMP 

, 

GENF 

27. 

•TIMPR 

.LIFT 

.DRAG 

, T AX 

,TBURN 

,TBU( 20 ) 

, 

6ENF 

28 

*AE 

,FP 

, FPOLD 

,FPO 

, nACHR 

, MACHV 

, 

GENF 

29. 

*BR 

,0V 

,F  VAC 

,LIFTV 

6ENF 

30 

•LIFTR 

,LIFTA 

ORAGV 

, DRA6R 

, OR A&A 

, 

GENF 

31. 

♦ 

LIFTH 

'OBR 

,D& 

,ISP 

.ISPF 

, 

GENF 

32 

* 

ULFT 

, ULFTV 

, ULFTfi 

, OLFTA 

, 

GENF 

33. 

• XrtCG 

,XMC6V 

.XMCGR 

.XMC6A 

, XrtCGM 

, COO AE 

, 

GENF 

39 

♦CUIFT 

,CT 

, C ALPHA 

, CDE 

, BELT  AE 

,SID 

, 

GENF 

35. 

*COD 

.SIDAE 

,XCG 

, ZC6 

,XJ 

GENF 

36. 

common  / 

GENF  / 

GENF 

37. 

38. 

♦ XJV 
•FRATED 

, X JR 
, 1RATED 

,GK 

, GAMMAO 

, XKG 

, XKP 

• 

GENF 

GENF 

39 

*P1 

,P2 

>3 

XK1' 

, XK2 

,XK3 

, 

GENF 

90. 

• XK1T 

, XK2T 

, XK3T 

, XKlD 

, XK2D 

, XK3D 

, 

GENF 

91 

*XK1A 

, XK2A1 

, XK3A 

, XK1 V 

, XK2V 

, XK3V 

$ 

GENF 

92 

♦ XK1G 

, XK2S 

, XK3G 

, XK1P 

,XK2P 

, XX3P 

GENF 

93 

*XK1R 

, XK2R 

, XK3R 

,xxio 

, XX20 

, XK30 

GENF 

99 

* XK 1 U 

. XKZU 

, XK3U 

,XK1M 

. XK2M 

XK3H 

GENF 

95. 

*PV 

.PS 

.PP 

.PR 

,P0 

, OP  0Y<  3,8) 

GENF 

96 

REAL  LIFTR  . LIFT  , Ll FTA . LIFTfl  . 

MACH, 

MACHR, 

GENF 

97. 

* ISP.  ISPF.  (1ACHV 

, LI  FT  V . (RATED 

FRAT 

98 

DIMENSION  TPH1(  lO).TSTl(lO) 

GENF 

99 

EQlil  VALENCE!  TLP 1 , 

TFHD.CTLS1.TSTU 

GENF 

50 

C0rm0w/AEC03/ 

AEC03 

51 

♦ APHO 

. APHR 

, ALPHA 

VDA 

, GDA 

,PDA 

AEC03 

52. 

*51 NA 

, COS  A 

,PHI0 

,PHID 

, PHI 

.SINPHI 

AEC03 

53. 

• COSPHl 

, GDPH 

, POPH 

, XLAflA(  9) 

XLAMP( 9 ) 

,C00 

AEC03 

59. 

• COOrt 

.CLO 

,FK 

, XCGM 

, ZCGM 

, CLOM 

AEC03 

55. 

• CM 

,CMA 

, CMAM  , CHrt 

, CrtQ 

,CMOM 

, FKfl 

AEC03 

56. 

♦ CLAM 

.CL 

JCLA 

, CLM 

, 

AEC03 

57. 

50 

•CD  , CD A 

C0MMON/ST  ATE3/ 

, COM 

AEC03 

STATE3D 

59 

• VAR!  19  > 

, DVAR 

{ 19)  VAfiL  (99  ) 

, D VARL( 99  ) 

,Y0( 9 ) 

.5VV( 10) 

STATE3D 

60 

*XU  9.9) 
*5 I NP5I 

, YQP<  20 

,9  >, YDS  (20,9), 

COSGAM 

, S I NG Art 

,SAVBP(l15) 

STATE30 

61 

.COSPSI 

,51 NRHO 

, COSRHO 

,OCORHO 

,OC0R02 

STATE3D 

62. 

•SVBV  < 

9 ), OMEGA 

0MEGA2 

STATE30 

63 

* VDV 

,GDV 

,RDV 

,MDV 

,POV 

,ODV 

STATE30 

69 

*uov 

, VD6 

, GDG 

, RD6 

,PDG 

, ODG 

STATE3D 

65 

• UDS 

, VDR 

, 6DR 

, MDR 

, PDR 

,ODR 

STATE3D 

66 

♦ UDR 

, VDM 

, GOM 

,MDM 

,PDM 

,VOP 

STATE30 

67 

• GDP 

.POP 

.OOP 

, UDP 

,VOO 

, GOO 

STATE3D 

68 

• POD 

, UDO 

.HTOV 

, HTOR 

STATE30 

69 

real  non 

. MDV.  MDR 

STATE30 

70 

CGnmON/ STATES/ 

STATE30 

71. 

•5IN2R0 

. C0S2R0 

,C0$2GH 

STATE3D 

72. 

COnnON/AHCDAT/ 

ARCOAT 

73. 

•SREF 

,EJ 

-XISP 

,TMULT 

, QTNC 

, DTPI 

AHCOAT 

79. 

♦ I Ain 

,IrtODE 

. JAER 

,JPRO 

□ MAX 

, GrtAX 

, 

ARCOAT 

75 

♦ XLtlAX 

, HDMAX 

,GP1D07 

, ALFMAX 

, PHMAX 

, MAE  A 

r 

ARCOAT 
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76. 

*MAEB  ,MAEC  , RAED 

,HAEE 

,HAEF 

# HAEG 

, ARCDAT 

77. 

»MT  ,MISP  ,MXCG 

,MZC$ 

flUDA 

. MUDS 

, ARCDAT 

76. 

*MDB  ,XCGR  , ZCGR 

,XE 

,ZE 

, XT 

, ARCDAT 

79. 

♦OREF  ,MCND  ,RHOB 

, OHULT 

, REHAX 

ARCDAT 

80 

* .FRATE  , ARCDll) 

RETAP 

81. 

DIMENSION  ARCOAMOI 

ARCDAT 

62 

EOUI VALENCE!  SREF,  ARCDA ) 

ARCOAT 

63 

COMMON/ GLO  BAL/ 

GLOBAL 

89 

*GR  , ER  , OMGZ 

, XLAHRF 

, VHURF 

,LUH 

GLOBAL 

85 

•,JJOP( 10)  , IFATAL  . NARC 

, NBR AN 

,NF  ARC 

, I D(  9 ) 

GLOBAL 

86 

»,KTAB(ZG),ITAB120)  ,5IG 

.flAXTAB 

GLOBAL 

87 

»,GM  .PSIRF.IPFLGl, 

IPFLG2.IPFL63. IPFLGN, 

INEOFU  20) 

GLOBAL 

88. 

*,1TPS0  KSOL  ,KGLOBl(b) 

RETAP 

89 

COMMON/STS/ 

STS 

90 

•DPAV  .PMIN  .UORK 

( 20  ) . NUDS 

.IPC 

(7). NITER 

, STS 

91 

*HNGA(20,2).  HNGPt  20,2)  . AR(  200  > . IftOt 2C > . 

, 1 NP( 20  ) . I S V( 20  ) 

STS 

92 

COMMON/OATA/ 

DATA 

93 

*PJ  ,RAD  ,RDt 

,SC 

, UHF 

,THPF 

, DATA 

99. 

♦ FTNM  , CAR  , J0P1 

, J0P2 

, J0P3 

, J0P9 

OATA 

95 

DIMENSION  SSI  10  ) 

FNTG 

96. 

COMMON/PARAM/ 

PARAH 

97 

•lPOINTt  121.NPARA.NPA  .SPAR  At  9.12).  UITPD 

C9J.WTP 

( 12), 

PARAH 

98. 

*SPAR&(  9,12)  , PARAt  12J.DPARI  12)  #S2INV(9.9) 

PARAH 

99. 

*.DELP(9) 

PARAH 

100 

101, 

102 

103 

109 

105. 

106. 
107 
106. 
109 
110. 
Ill 
112. 
113 

119. 

115 

116. 

117. 

110. 

119 

120. 
121 
122. 
123 

129. 
125 
126. 
127. 
128 
129 

130. 

131 

132 

133 
139 

135. 

136. 
137 
138. 
139 

190 

191 
192. 
193 
199. 

195. 

196. 
197 

198. 

199.  . 
150 


REAL  HUB,  RUD,  I$PBf  I$PQ,  I0VEL,NNB,N0 

common  /sizing/ 

PHASE  II  SIZING  PARAHERERS 


SIZING 

SIZING 

SIZING 


C 

♦TZ,  VV<  3),  OP(IN),  EROR, 

*SV(28),  $0(37.5),  SEC  11),  TLAT, 

PHASE  1 SIZING  PARAMETERS 

PZ(  5 >, 
TLN6, 

VO, 

SHC  20,  SIZING 
SIZING 
SIZING 

♦WOO, 

ULOO, 

OUEB, 

owed. 

TOLWT, 

UPO 

TDRAT2,  SIZING 

*BK1 , 

BK2, 

BK3, 

BK9, 

ISIZE, 

TRAFLG, 

TWRATO,  SIZING 

•OKI , 
•AEXIT, 

0K2. 

TVACO, 

0K3 

0K9, 

PRFL6, 

IPASS, 

1 PS  M AX,  SIZING 

NO, 

WFO, 

IOVEL, 

ISPO, 

ISPB,  SIZING 

• XPL, 

TVACB, 

NNB, 

WED, 

UEB, 

WO. 

WLO,  SIZING 

♦ OVO, 

DVB, 

HUB, 

MUD, 

VSTG, 

UPO 

SIZING 

c 

*, JTVP, 

* SVOPSO 

BECO  . 

, SVDCON 

BSTG  , 
,IHUNT 

QRBI, 

, I0PST6 

ITNBW  , 

, I 5ZD( i4: 

ITNOW  , 

1 

SIZING 

UK 

. COMN 

INITIALIZATION 
SPECIAL  FLAGS  USED 

K STORAGE  RETRIEVAL  FLAG  = 1 NORMAL  ,2  PHASE  END 

3 ARC  END,  9 END  OF  DATA 
IND  =1  ON  STARTING  NOMINAL  TRAJ. 

=2  ON  TRIAL  OR  SOLUTION  TRAJ. 

KST  =0  DURING  NORMAL  INTEGRATION 
=1  DURING  PHASE  CUT-OFF 
=2  DURING  ARC  CUT-OFF 

=3  DURING  CONCURRENT  ARC  AND  PHASE  CUT-OFF 


ISTART  = 1 ON  STARTING  NON. 

= 2 ON  TRIAL 

' 6 MEANS  CONTROL  COMPUTATION  OIVERGANCE 

OR  EXCESSIVE  CHANGE  IN  STAGING  TIME 
< CAUSES  HALVING  DOWN  ) 

10PEN  =1  CLOSED  LOOP  CONTROL 
=2  OPEN  LOOP  CONTROL 

STT=-RAQ 
K = 1 

I NIT.  FORWARD  STORAGE 
CALL  BEGUR 
IND  =1 

1F( ISTART  NE  1 ) IND=2 

CLOSEO  LOOP  FLAG  ANO  SWITCHING 
IOPEN  =1 
TOPEN=UORK< 1 ) 

I PH  -l 
I PST  = I 

JPS  = IABS(  JPH( IPH,IND)) 

ISTPP=JP5-2 

ISPK=  I$I3Nt 1,JPH( IPH, IND)) 

OMP  = 0(1GP(  IPH.1N0) 

J6II=JGID< IPH, IND) 

TOP  = $ VAR( 1 > 

KST  =0 
ICOP=l 


TIME  SET 


COHN 

CONN 

COHN 

COHN 

COHN 

COHN 

COHN 

COHN 

COHN 

COHN 

COHN 

COHN 

COHN 

COHN 

COHN 

COHN 

COHN 

FNT6 

FNTG 

COHN 

FNTG 

FNTG 

FNTG 

COHN 

FNTG 

FNTG 

FNTG 

FNTG 

FNTG 

FNTG 

FNTG 

FNTG 

FNTG 

FNTG 

FNTG 

FNTG 
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151- 

tine  =tas=  svar( i) 

FNTG 

152- 

call  cam 

FNTG 

153. 

C 

IN1T  STATE  AVD  AUXILIARY  QUANTITIES 

CONN 

155. 

1 AfiC=  I 

FNTG 

155. 

C 

SET  DATA  FOR  FIRST  ARC 

COMM 

156 

CALL  READASC 9.ARCDA.51.IARC) 

FRAT 

157. 

C 

set  arc  cut-off  flags  . compute  interval  etc 

CONN 

158. 

JS  = I ABSl JSTl I ARC)) 

FNT6 

155. 

IST0P=J5“2 

FNTG 

160 

ISS7=  IS16NCl#JST<!ARCn 

FNT6 

161. 

DT=OTNC 

FNTG 

162. 

L=* 

FNTG 

163. 

TlrtPR  =TI«E 

FNTG 

16*1. 

C 

CALL  ARC  INITIALIZATION  LOGIC 

CONN 

165. 

CALL  PROP  IN 

FNTG 

166. 

«PST  = 1 

FNTG 

167 

c 

I-A  TEST  FOR  STARTING  NON.  TRAJ.  AND  IF 

CONTROL 

CONN 

168. 

c 

IS  ON  FILE  U.  IF  NOT  STARTING  NON. 

GO  TO  1-B 

CONN 

169. 

c 

IF  STARTING  NON.  BUT  NO  CONTROL  ON  FILE  GO  TO  11. 

CONN 

170. 

c 

ELSE  IMIT  STORAGE  RETRIEVAL  ARB  GO 

TO  II 

CONN 

171. 

IFCIND.NE.n  GO  TO  2 

RETAP 

172. 

IFtXSDL.EQ.  0)  GO  TO  10 

RETAP 

173. 

CALL  PHIH 

RETAP 

17*. 

CALL  STS1B 

RETAP 

175. 

CALL  AGETR 

RETAP 

176. 

GO  TO  10 

RETAP 

177. 

2 

CONTINUE 

RETAp 

176. 

c 

CONN 

179. 

c 

I -B  STORAGE  RETRIEVAL  INITIALIZATION  FOR 

TRIAL 

CONN 

180. 

c 

OR  SOLUTION  TRAJECTORY 

CONN 

181. 

CALL  PHIN 

FNTG 

182. 

Call  STSIN 

FNTG 

183. 

CALL  BGRA 

FWT6 

189. 

CALL  ASETA 

FNTG 

185. 

IF( JGll.LT.il ) ALPHA=APHO*ROI 

POU 

166. 

c 

CONN 

187. 

c 

I-C  IF  TRIAL  TRAJECTORY  GO  TO  I-B  ,ELSE  WHEN 

SIZING  FLAG  IS 

CONN 

168. 

c 

SET  SAVE  INITIAL  CONDITION 

CONN 

189 

1 Ft I1EA.NE.3>  80  TO  8 

PHI  LZ 

190 

IFCLUN.LE.l. AND. JTYP. £0.0)60  TO  10 

PHVSZ 

191. 

CALL  INTER1 

PH1SZ 

192. 

GO  TO  10 

PH1SZ 

193. 

c 

CONN 

19*. 

c 

I-B  RETRIEVE  DATA  FOR  FIRST  CONTROL  AND 

PARAMETER  CALC. 

CONN 

195. 

c 

ON  TRIAL  TRAJECTORY 

CONN 

196. 

fi 

CONTINUE 

PH1SZ 

197. 

CALL  6GRB 

FNTG 

198- 

CALL  6SET 

FNTG 

199. 

TJKEPH=TI«E-TDP 

FNTG 

200. 

TlflES=TIflE-TOS 

FNTG 

201. 

CALL  GETIT 

FNTG 

202. 

c 

IF  ANY  PARAMETERS,  PERFORM  INITIAL  STATE  CALC. 

CONN 

203. 

c 

AND  CALCULATE  CONTROL 

CONN 

209. 

iFt  NPARA.GT.O } CALL  ADJUS 

FNTG 

205. 

CALL  flTX 

FNTG 

2G6. 

CALL  fiTXl 

FNTG 

207. 

JSK=1 

FNTG 

208. 

c 

CONK 

209. 

c 



II  INTEGRATION  ROUTINE 

CONN 

210. 

10 

CALL  RKUTTA 

FNTG 

211. 

c 

I I-A  TRAFFIC  FLAG  DIRECTOR 

CONN 

212. 

GO  TO  ( 20,90,380  >. L 

FNTG 

213. 

c 

III  CALCULATE  EQUATIONS  OF  KD1I0*  DERIVATIVES 

CONK 

219. 

2C 

CALL  EOUA 

FNTG 

215 

CALL  AOOElA(  ITT  STT> 

FNTG 

216. 

c 

II I-A  COMPUTE  CONTROL  AND  DERIVATIVES 

CONK 

217. 

30 

STI  - TIME 

FNTG 

218. 

ITT  = 1 ARC 

FNTG 

219. 

c 

1IJ-B  TEST  FOB  CONTROL  01 VERSANCE 

CONN 

220. 

IFt ISTART. NE.6  > 

FNTS 

221. 

c 

IH-C  CHECA  CUT-OFF  REFINEMENT  FLAG 

CONK 

222. 

ISO  TO  CIO  3701, ICDP 

FNTG 

223 

CALL  OUTERS 

P019 

10 

10 


HO— i380 


1370 


01**16 


1 


IV  A RC  CUT-OFF  AN 0 PHA5E  CUT-OFF  TESTING 

IV-R  IS  CUT-OFF  ALREADY  IN  PROCESS 

NO  - 1V-&  , YES  - VIII 

40  1FIKST  NE  0)  GO  TO  3H0 

IV-B  PHASE  CUT-OFF  TESTS 

IF  OETECTEO  IN  LESS  THAN  NEXT  INTERVAL 

SET  KST  =1  AND  COMPUTE  DTP  (INTERVAL  TO  HIT  ORP  ) 

ALSO  SET-UP  OATA  TO  REFINE  DT  (CALL  PSD) 

I F(  JPS-2  ) 50,60,70 

50  IFmnE^DT.LT.OnP-l.E-7)  GO  TO  ICO 
OTP  = QRP  - TIRE 

GO  TO  90 

60  IF(  TlrtEPH  + OT.LT.OnP-1 -E-T  ) GOTO  100 
OTP=  OftP  - TIREPH 

SO  TO  90 

70  CALL  FHSTOP  llW  ) 

IF( I Vfi .£0 .0  > GO  TO  100 
IVARslSTPP 

IFtJPS.GT  10)  CALL  SETFP0 
80  CALL  PSDt  I VAR, ORP) 

DTP  ^ DTF( 1 VAR  ORP  > 


IV-C  ARC  CUT-OFF  TESTS.  IF  DETECTED 
SET  KST  =2  AND  COWPUTE  OTS 

100  IFtJS  -2  ) 110,120,130 

110  IF( T 1 ttt  + OT  LT  OflG( I ARC )-l  E-7 ) GO  TO  220 
OTS  = 0*G(  1 ARC)-  TIME 

GO  TO  150 

120  I Ft  TIRES  +OT-LT  OflG(lARC)  -i  E-7)  GO  TO  220 
OIS  = OrtGUARC)  - TIRES 

GO  TO  150 

130  CALL  STSTOPIIVR  ) 

IF(  IVR.ED  0)  GO  TO  220 

1 V-D  TEST  FOR  STATE  INEQUALITY  CUT-OFF  SITUATION 

WHERE  CUT-OFF  IS  NOT  REACHED  (IVAR  LESS  THAN  ZERO) 
ALSO  TEST  FOR  CONCURRENT  PHASING 
IF  SITUATION  EXISTS,  MAKE  CURRENT  TIRE  A CUT-OFF  TIRE 
IFC IVAR.SE.O)  GO  TO  135 
KST=2 

IFC OrtP  EO  OHG< 1 ARC ) ) KST=3 
GO  TO  IRQ  

135  CONTINUE 
I VAfl^J  STOP 

140  CALL  PSD(  IVAR.ORSt  IARO) 

OTS  = DTF1  1VAR,QRS(  IARC)V  ) 

150  IFC KST  NE.l)  60  TO  200 

IV-E  CONCURRENT  EVENT  TEST 
IF(  ABS(OTS-DTP  ).LT. 00001  ) GO  TO  190 
I F t DTS  - OTP)  200,200,160 

IV-F  PHASING  ONLY  , CHECK  FOR  PHASE  SEQUENCING 

; ON  FIRST  NOMINAL  TRAJECTORY 

160  IF t I ND  EO.l  ANO.ICORC IPST)  GT  1PH)  GO  TO  630* 

DT  = OTP 
KST  - 1 

; IV-6  SET  EVENT  TIME  ( STILL  APPROXIMATION) 

170  TI41PR  = TIRE  *QT 
1=4 

; IV-H  TEST  FOR  HAVING  PASSED  CUT-OFF 

IFC  OT  GE.  1 E-H)  GO  TO  250 

: CUT-OFF  HflE  PASSEO, TREAT  CURRENT  TIRE  AS  CORNER 

ISO  1=2 

DT  =OTNC 

GO  TO  ( 600, 230, 230), KST 
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1 5 G-— 1 60  70- 


[10— il20-i  130- 


FNTG 

FMTG 

CORN 

CORN 

CORN 

CORN 

CORN 

APR27  135- 


FNTS 

CORN 

FNT6  1 90“ 

FNTS 

CORN 

CORN 


lt 

ri 

rr 


SET  CONCURRENT  EVENT  STATUS 

HD  KST  =3 

60  TO  210 

SET  ARC-CUT-OFF  EVENT  STATUS 

200  KSI  ~Z 

210  DT  = DTS 
60  TO  170 

TEST  CUT-OFF  FLAG  AFTER  ARC-CUT-OFF  DETECTED 

220  1 Ft KST  EQ.ll  60  TO  160 

GO  TO  250 

230  TIflPR=TinE 

SAVE  TIME  AT  ARC  TERMINUS  ANO  SAVE  CURRENT  DERIVATIVES 
ALSO  SAVE  TRUNCATED  COMPUTE  INTERVAL 
TST< 1ARC1-TINE 
290  CALL  SVADY5 
DISC  I ARC  )=DT 

TEST  FOR  CONCURRENT  EVENT 

1ft K5T  EQ  3 > GO  TO  600 

250  CONTINUE 

V  STORE  TRAJ.  DATA 
I FC ITER  EG. 3)  60  TO  330 
CALL  ASTO 
260  CONTINUE 

VI  * * * 

OPTIMAL  STAGE  TIME  CALCULATION 
VI  -A  TEST  FOR  OPTIMAL  STAGING 
1F( IT!  EQ  0 > GO  TO  290 
I Ft 10PEN.EQ.2)  60  TO  280 
IFtJSK  EO.O)  60  TO  270 
JSK  =0 
GO  TO  280 

VI-6  CLOSED  LOOP  CONTROL  CALCULATION  OF  TR  VECTOR 

270  IFtJGII  LE.10)  CALL  GETlT 
l Ft KST  EO  0)  CALL  «TX 

Vl-C  CALCULATE  CONTROL  A NO  PARAMETER  CHANGES 

280  CALL  MTXl 

VI-C  CALCULATED  NEW  ARC-TIME  CUT-OFF 
CALL  ADJUI 

GO  TO  320 

290  CONTINUE 

VII  TR  LOGIC  UITH  NO  OPTIMAL  STAGING 

lFt  IND  EO.I.OR.IOPEN.EO  2)  GO  TO  320 
IFtJGII  -LE.10I  GO  TO  320 

I F C JSK  EO.O)  GO  TO  300 
JSIC  - 0 

GO  TO  310 

300  CALL  WTX 

310  I Ft  TIME  GT  T0PEN1  10PEN  =2 

! VII  SAVE  CURRENT  STATE  AND  START  NEXT  INTERVAL 

320  CALL  SAVVR 

GO  TO  10  

330  IFtLUM  NE  0>  CALL  ASTOF 
CALL  SAVVR 
GO  TO  10 

: VIII  INTERMEDIATE  CUTTQFF  LOGIC 

390  1F(KST  GT  3)  GO  TO  350 
KST  = 9*KST 
60  TO  10 

1 IX  AT  APPROXIMATE  CUT-OFF  TIME 

350  KST - KST  /H 

GO  TO  ( 590, 360, 360), KST 
I X- A IF  T I rttD  ARC,  CUT-OFF  IS  PRECISE  ELSE 
REFINE  STATE  AND  TIME  AT  CUT-OFF 

360  iFtJS  LE  2)  SO  TO  230 

IFt  TQLFt C J.EO  0 ISO  TO  230 
CALL  YREFt  I VAR,OMS< I ARC  ) > 
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oS  r 


359 

360 

I COP  =2 
GO  TO  20 

FNTG 

fntb 

361 

370 

1C0P  =1 

FNTG 

362 

GO  TO  ( too, 230, 230). KST 

FNTG 

230  — 

363 

C 

X AT  CORNER  POINT  OR  PRINT  T1  RE(  SOLUTION  ONLY) 

CORN 

364 

380 

1 Ft  ITER  NE  2 ) CALL  OUT 

FNTG 

365 

IF  ( K ST  EQ  0)  GO  TO  540 

FNTG 

540  — 

366 

GO  TO  t 460,390, 390), KST 

fnts 

390-1 

367 

C 

»-A  UPDATE  DATA  AND  INITIALIZE  FOR  NEXT 

ARC 

CORN 

\ 

368 

390 

1 ARC=IARC+1 

fmts 

369 

1F< I ARC  GT  NARC)  GO  TO  400 

fnts 

400—j 

370 

CALL  RE  ADRSt  9,ARC0A,51. IARC ) 

FRAT 

3 n 

DT=  DTNC 

FNTG 

372 

J5-IABS(J5T(IARC)) 

APR27 

373 

CALL  PROP  1 N 

FNTG 

374 

GO  TO  410 

fnts 

375 

c 

X-e  AT  END  OF  LAST  ARC  CHECK  PHASE  SEQUENCING 

CORN 

376 

c 

ON  FIRST  NOMINAL  ELSE  END  TRAJECTORY 

CORN 

377 

400 

IFt 1 NO  EQ  2 1 GO  TO  580 

FNTG 

378 

IFtiCORt  IPSD.NE  IPH)  SO  TO  580 

FNTG 

379 

JPHl IPST,2)=JPH( IPH, 1 ) 

FNTG 

380 

ORGPt 1PST,2)=  0H6P(IFH,1) 

FNT6 

381 

CALL  RN5ET 

fnts 

382 

GO  TO  580 

FNTG 

383 

c 

X-C  BRANCHING  LOGIC  AND  INTERRED! ATE  CONSTRAINT  TESTS 

CONN 

384 

c 

CORN 

385 

HlO 

CONTINUE 

fnts 

386 

1 F ( INTB-l  ) 440, 420,430 

FNTG 

420  — 

387 

c 

CHECK  FOR  INTERMEDIATE  CONSTRAINT  AT  ARC  INITIATION 

FNTG 

j 

388 

420 

I Ft  I ARC- 1 EQ  NSB)  CALL  I NTBC 

fnts 

389 

GO  TO  440 

fnts 

390 

430 

I Ft  I ARC- 1 EQ  NSB)  CALL  BR$T 

FNTG 

391 

IFtlARC-l  NE  MSB  +MSAB  ) GO  TO  440 

FNTG 

440  — 

392 

CALL  BRIN 

FNTG 

393 

TOPEN=UORK(  2) 

fnts 

394 

I Ft  T IRE  LE  TOPEN)  10PEH=1 

FNTG 

395 

c 

X-0  WEIGHT  DISCONTINUITY 

conn 

396 

4 40 

CALL  RSDISC 

FNTG 

397 

450 

CONTINUE 

FNTG 

398 

TOS=  TIME 

FNTS 

399 

1 Ft  I ND  EQ  1 ANO  KSOL  NE  0)  CALL  ST  GIN 

RETAP 

400 

1ft  1N0  EQ  2 > CALL  STGIN 

FNT6 

401 

1ST  0P  = J5~2 

FNTG 

402 

ISST  s JSIGNt  1,  JSTt I ARC  ) ) 

FNTG 

403 

1F(XST  EO  2)  80  TO  500 

FNTG 

500  — 

404 

GO  TO  470 

fnts 

H70  — 

405 

4 60 

KPST  =1 

FNTG 

j 

406 

470 

CONTINUE 

FNTS 

407 

c 

X-C  PHASE  CORNER  POINT  AND  NEXT  PHASE 

INITIATION 

CORN 

408 

IFt 1 ND  EO  2 ) GO  TO  530 

FNTG 

409 

IFt ICOflt IPST  ) GT  IPH  ) GO  TO  480 

FNTG 

480—1 

410 

JPH(  IPST, 2 ) = JPHCIPH,!) 

FNTG 

411 

ORGPt  1 PST, 2 ) = OMGPCIPH,!) 

FNTG 

412 

call  MNSET 

FNTG 

413 

IPST  = IPST  *1 

FNTS 

414 

480 

IPH  “IPH+1 

fnts 

415 

4S0 

TOP=  TIRE 

fnts 

416 

JPS=  I ABS(  JPH(  IPH, I NO)) 

FNTS 

417 

CP-1 . 

FNTG 

418 

I$TPP=JPS-2 

fnts 

419 

IFt 1STPP  EO  2)  CP=ROI 

FNTG 

420 

ISPH=  I S I CMC  1 , JPHt IPH . I HD ) ) 

FNT6 

421 

J6XI=jetDC IPH,  IMO> 

fnts 

422 

QMP  = ORGPt  I PH  I ND ) 

FNTG 

423 

IFt INO  EO  2)  CALL  PHIH 

FNTG 

424. 

[F( I NO. EO  1 AND  KSOL  NE.O)  CALL  PHIN 

RETAP 

925. 

DT-DTNC 

FNTS 

426. 

c 

CORN 

427 

c 

X-D  CONTINUE  NEXT  ARC  INITIALIZATION  AND 

SET 

CORN 

\HlO-i 


580- 

580- 


580H 
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SUBR0UT INE 
FXDAT 


Subroutine  FXDAT 


Purpose 

Subroutine  FXDAT  fixes  floating  point  numbers  in  the  /ARCDAT/  common 
block,  establishes  some  presets,  and  prints  the  data  contained  in 
/ARCDAT/. 

Description 

In  addition  to  fixing  input  option  flags  and  curve  numbers,  FXDAT  also 
establishes  presets  if  certain  critical  data  has  not  been  input.  After  this, 
it  prints  out  the  arc  data. 

FXDAT  is  called  from  subroutine  GEINP  for  each  set  of  arc  data.  The  single 
argument,  N is  the  arc  number. 


V'l 


FORTRAN 

SYMBOL 


ARCOA 


frate 


I ARCOA 


I ATM 

I MOOE 

MT 

N 

omult 

rhob 

T MULT 


MATH 

SYMBOL 


s 


r *f 


S 


r«f 


= 0 OR  1 


P 


b 


T 


BU  It 


coot DESCRIPTION 

1 Aerodynamic  rtf er*nce  irti 

I Input  rated  vicuua  thrust  per  engine 
® Aerodynamic  reference  area 

I Atmosphere  option  flag 

n Control  mode  option  flag 
I Curve  number  -thrust  table 

I Arc  number 

0 Heating  flag  multiplier 

0 fttaosphere  base  density  for  heating  calc 
n Thrust  multiplier  or  number  of  engines 


STORAGE  S UHflQ  III  I NF  USAGE 


BLOCK 

IOC 

SUBR 

CODE  VAR 

< FT^  ) 

/ARCOAT/T 

1 ) 

BNTG 

I 

ARCOA 

E0UA3 

I 

SREF 

FNTG 

I 

ARCOA 

FXOAT 

I 

ARCDA 

FXOAT 

0 

1ARCDA 

GEINP 

It 

ARCOA 

SOI  NP 

I 

ARCDA 

5 1 Z I Al 

I 

ARCDA 

SIZIN 

m 

SREF 

THRUST 

i 

SREF 

VT 

i 

5 REF 

( LBS  ) 

/ AR  COAT  H 

42  ) 

EQUA3 

I 

FRATE 

FXDAT 

I 

FRATE 

PROPB 

I 

FRATE 

PROPIN 

i 

FRATE 

SI  ZIN 

0 

FRATE 

(FT2) 

/ ARCDAT/( 

1 > 

BNTG 

i 

ARCDA 

ESUA3 

i 

SREF 

FNT6 

i 

ARCOA 

FXOAT 

i 

ARCDA 

FXDAT 

0 

I ARCOA 

GEINP 

n 

ARCOA 

5DINP 

i 

ARCDA 

SIZIN 

i 

ARCDA 

5IZIN 

n 

SREF 

THRUST 

1 

SREF 

VT 

I 

SREF 

/A«CDAT/< 

7) 

EBUA3 

I 

I ATM 

FXDAT 

I 

I ATM 

OUT 

I 

I ATM 

PDBC 

I 

I ATM 

VT 

1 

I ATM 

/ Afi  COAT/T 

8 ) 

FXOAT 

n 

I MODE 

SOI  NP 

I 

I MODE 

/ ARC0AT/( 

25  ) 

FXDAT 

I 

MT 

PROPB 

I 

MT 

FfiOPIN 

I 

MT 

THRUST 

1 

MT 

/FXDAT  n* 

) 

FXOAT 

I 

N 

/ ARCDAT/( 

40  ) 

DER3A 

I 

SMULT 

FXDAT 

0 

amuLT 

PDY3A 

1 

aMULT 

1 1 a t i o n 

/ ARCOAT / ( 

39  ) 

DER3  A 

I 

RHOB 

( LB/FT**3 ) 

FXDAT 

0 

RHOB 

PDY3A 

I 

RHOB 

/ARCOAT/f 

4 ) 

E9UA3 

I 

TMULT 

FXOAT 

M 

T MULT 

PROPB 

l 

TMULT 

PROPIN 

I 

TMULT 

SIZIN 

0 

TMULT 

30  OCT  72  G. 01-46 


Lt  < \ 


UNOS. 


/.UN06./I  } 


BllCO 

0 

UNO  6 . 

BNDRY  C 

0 

UNOS. 

CRASH 

0 

UNOS. 

FRENCH 

0 

. UN06 . 

FXOAT 

0 

. UNOS ■ 

GEINP 

0 

UNG6. 

HUNT 

0 

•UNO*. 

INEDIT 

0 

.UN06. 

ITERS 

0 

UN06. 

P100ELA 

0 

UN06 . 

nonj 

0 

UNOS. 

hpsi 

G 

UN06 . 

OUT 

0 

UNOS. 

PAY02 

G 

UNO  6. 

PRINT 

0 

. UN06 . 

PRINTV 

0 

. UNDO. 

PRINTS! 

0 

.UNOS. 

PRITEO 

0 

■UNOS. 

PR1TVA 

Q 

-UNOS. 

PROPIN 

0 

UNO*. 

PROTHR 

0 

.UNOS. 

PRUITSM 

0 

. UNOS . 

RANGE 

0 

. UNOS . 

S 

G 

. UNOS 

501  NP 

G 

UNOS. 

SIZE 

G 

.UNOS. 

SIZIN 

0 

UNOS. 

SIZOUT 

0 

.UNOS. 

SOLVE 

0 

.UNOS. 

SPLICO 

G 

• UNOS 

5PLIZ 

G 

.UNOS. 

SPLYNE 

0 

.UNOS. 

SSSP 

0 

.UNOS. 

STAU 

0 

•UNOS. 

STPIT 

G 

.UNOS. 

SUrtOUT 

G 

.UNOS. 

TAB1N 

0 

•UNOS. 

TEST 

0 

UNOS. 

VEHOF 

0 

. UNOS. 

SIT5CH 

0 

. UNOS. 

UT  VOL 

0 

•UNOS. 
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FXOAT 


16. 

EGUl VALENC£< SREF.ARCDA) 

ARCDAT 

17. 

DIMENSION  lARCDAtl) 

FXOAT 

18 

EQUIVALENCE  U AfiCD A, ARCDA ) 

FXDAT 

19 

DO  10  1=7.10 

FXDAT 

20. 

10 

lARCDAt I )=ARCDAC I) 

FXDAT 

21. 

00  20  1=18.31 

FXDAT 

22. 

20 

1ARCDAI I )=  ARCDAtl ) 

FXDAT 

23. 

1 ARCDA(38)  = ARC0A(38) 

FXDAT 

24 

IF< I ATH-1  ) 30,40.50 

FXDAT 

30  — 

25 

C 

62  STANDARD 

FXOAT 

,1 

26 

30 

RHO0  = 2 37 69 05 4E— 3 

FXDAT 

27. 

GO  TO  60 

FXDAT 

60—j 

28. 

c 

S3  P»T 

FXDAT 

29 

40 

RHOB  = 2 2964063E-3 

FXOAT 

* 

30. 

GO  TO  60 

FXDAT 

60— 

31 

50 

Qf1ULT=0. 

FXDAT 

<_ 

32 

RHOB  =1. 

FXDAT 

33 

60 

CONTINUE 

FXDAT 

m 

34 

IF<  TWULT  ST . 0. > GO  TO  65 

FRAT 

65—i 

35 

IF<  FR ATE  ST.O.OB.HT  NE.O)  TRULT  =1 

FRAT 

Jj 

SUBROUTINE  FXDAT(N) 


3- 

C 

FIXES 

floating 

POINT  NUMBERS  IN  ARCDAT  (INPUT  DATA) 

4. 

c 

C 

ANO 

ESTABLISHES 

SOME 

PRESETS  ALSO 

PRINTS 

DATA 

5 . 

6 

if 

COrmON/ ARCDAT/ 

7. 

•SREF 

,EJ 

,X1SP 

.TflULT 

,DTNC 

, DTP1 

8 

*1  ATM 

, I RODE 

, J AER 

t JPRO 

, QflAX 

, GMAX 

9. 

• XLrtAX 

, HOttAX 

.SHOOT 

, ALf MAX 

,FHMAX 

. flAEA 

10. 

•HAEB 

.P1AEC 

.MAED 

, HAEE 

,MAEF 

, (1AE6 

11 

*MT 

#MSP 

, fixes 

,MZCG 

. nuDA 

ftUDB 

12. 

♦nos 

, XCGR 

,2C6R 

z XE 

,ZE 

,XT 

13. 

♦ OREF 

,flCND 

, RHOB 

#QnULT 

,REMAX 

- .FRATE  , 
DIMENSION 


ARCO(9> 

ARC0A(40) 


FXDAT 

conN 

conN 

CQflN 

conN 

ARCOAT 

ARCOAT 

ARCDAT 

ARCOAT 

ARCOAT 

ARCDAT 

ARCOAT 

ARCOAT 

RETAP 

ARCOAT 


36  65  CONTINUE  FRAT 

37.  IF( IrtfOE.EO.O)  IflODE=l  FRAT 

38.  WRITEt 6.70)  W t AfiCDAt I )|-1.I7).<  ARCOA(  J ) . J=32. 37 ) ,ARCDA(4l)f  FXDAT 

39.  * ARCDAt  H$.  > FRAT 

40.  1CARCDA(K>,  FXDAT 

HI.  2X=18,31>,ARCDA(38>  FXDAT 

HZ  RETURN  FXDAT 

43  70  F0RrtAT(//17H  DATA  FOR  SUBARCI3  / 5X,5HSREF=E12 . 6. 4X, 9HN0Z. AREA=E1  FXDAT 

HH  12  6,9X,4HI5P=F7  3,9X,9HTH  F1ULT=F5  2,12X,  8H0ELTA  T=F9.5/  FXDAT 

95  2 1 OH  PRT  flULT=FS. 1 , 1 1 X, 9 HAT  PI  GPTN=I2, 1 4X  9HCNT .MQDE-I 3.13X.9HAER  OP  FXDAT 

46.  *TN=I3,13X,9HPR0  0PTN=I3/  5X, 5KQrtAX=F7  2, 13X, 5HGrtAX=F6  3,  APR27 

47.  4 1 OX. 9HMAX  LIFT=EI2.6,  FXDAT 

48.  5 5X  8HHEAT  FXDAT 

49  6 RT-El2.6,7X,6HGH0QT=El3.6/3X,7HALFnAX=F7-3. 1 IX, 7HPHinAX=,F7 .3  P014 

50.  7,llX,  7HXCGREF=F8.3, 10X.  7H2CGREF=F7  3.I3X,  5HXENS=F8.3/  FXDAT 

51  ♦ 5X,  5HZENS=F7.3,12X,6HXTAIL=F8.3,12X  , 5HDREF=F7 .3, 1 IX. 6HRERAX=  P014 

52  * E12.4,11X,6HFRATE=E12.4/  NOS 

53  X15H  TABLE  NUNBERS/4X. 6KAERQ  A14,7H  AERO  BI4.7H  AERO  CI4.7H  AERO  D FXOAT 

54  AI4,7H  AERO  £I4,7H  AERO  FI4,TH  AERO  GI4,7H  T HRUST 1 4, 7H  ISP  LSI4,  FXDAT 

SST  B7H  XCG14.7H  ZCGI 4/  4X.6HUIND  AI4.7H  UIND  B14  FXOAT 

56  C,7H  BASE  DI4.7H  CND14 ) FXOAT 

57.  END  FXDAT 
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Subroutine  GETIT 


Entry  Points.  STGIN,  PHIN 


Purpose 

GETIT  controls  trajectory  and  adjoint  data  fetching  during  forward  trial 
trajectory  integration. 

Desc  ription 

GETIT  retrieves  data  by  calling  subroutines  AGETA  and  BGET.  The  main 
intent  of  the  logic  in  this,  routine  is  to  retrieve  data  from  the  adjoint  and  old 
nominal  trajectory  at  as  near  the  current  arc  time  as  possible.  (Arc  time 
rather  than  elapsed  time  is  the  independant  variable  in  the  program).  No 
data  interpolation  is  done. 

Entry  points  STGIN  and  PHIN  are  called  by  FNTG  at  the  beginning  of  each 
arc  and  phase  respectively  to  locally  define  total  arc  and  phase  durations. 


GETIT  is  called  by  MODELA. 


DESCRIPTION 


STORAGE 
8L0LK  LOC 


SU8R  1006 


DOT 

u 

Difference  between  stored  end  current  arc  tine 

/GETIT  /(* 

) 

GETIT 

U 

DOT 

0IP1 

I 

Phase  initial  tines  for  nontnal  trejectorj  IsdJ 

/GENE  /( 

153  ) 

GETIT 

I 

DIP  1 

SOI  NP 

M 

DIP1 

TEST 

0 

D!P1 

1 0PM 

I 

DIP1 

01S1 

I 

Arc  Initial  tines  for  nontnal  trajectory  E s d 3 

/ GENF  /< 

*)73 ) 

GETIT 

I 

DIS1 

SDINP 

m 

0IS1 

TEST 

0 

DIS1 

TOPM 

i 

0IS1 

TRAN3 

i 

DIS1 

DPHT 

u 

Stored  phase  duration 

/GETIT  /(* 

) 

GETIT 

u 

DPHT 

DST 

T U 

Stored  arc  duration 

/GETIT  /<* 

) 

GETIT 

u 

OST 

OLD 

FTIME 

I 

Tine  at  ohich  trajectory  data  set  is  stored. 

/R£Tfi£V/( 

1 ) 

AGETB3 

0 

FTIME 

(SEC) 

AST3 

D 

FT  I ME 

GETIT 

I 

FTIME 

TRAN3 

I 

FTIME 

] ARC 

I 

Arc  nuaber 

/XC0DES/( 

116  ) 

ADI CB3 

1 

I ARC 

A0ID3A 

I 

I ARC 

ADJUST 

I 

I ARC 

AST3 

I 

I ARC 

BNTG 

M 

IARC 

ENVPRM 

1 

I ARC 

FNTG 

M 

IARC 

GETIT 

I 

IARC 

NODELA 

I 

IARC 

PROPB 

I 

IARC 

PROP  I N 

I 

IARC 

REU3 

I 

IARC 

SDINP 

n 

IARC 

5TAU 

i 

IARC 

5TP3 

i 

IARC 

TRTOS  Z 

i 

IARC 

I PH 

I 

Phase  nuaber 

/ XCODES/C 

103  ) 

ADID3A 

I 

I PH 

AUJUST 

i 

I PH 

AST3 

i 

IPH 

BNTG 

M 

IPH 

FNTG 

M 

IPH 

GETIT 

1 

IPH 

GUI  3 A 

I 

IPH 

SO  I NP 

n 

IPH 

IPHN 

I 

Stored  history  data  phase  nuaber 

/XCOOES/( 

170) 

AGETB3 

M 

IPHN 

AST3 

n 

IPHN 

GETIT 

I 

IPHN 

I STM 

I 

Stared  history  data  arc  nuaber 

/ XCOOES/( 

1 69  ) 

AGETB3 

0 

I STN‘ 

AST3 

0 

ISTN 

’ 

GETIT 

i 

ISTN 

TRAN3 

i 

ISTN 

ITER 

I 

Trajectory  pass  indicator. 

/ XCQOES  /( 

119  > 

AST3 

i 

ITER 

ITER  = 1,  CONSTRAINTS 

FNTG 

i 

ITER 

= 2,  OPTIMIZATION 

GETIT 

i 

ITER 

= 3,  SOLUTION 

MODELA 

i 

ITER 

OUT 

i 

ITER 

PAY02 

n 

ITER 

PROPIN 

i 

ITER 

TEST 

M 

ITER 

TOPM 

M 

ITER 

K 

PI  Storage  retrieval  flag  Indicates  end  of  arc. 

phase, 

/ XCDOES/( 

156) 

AST3 

0 

X 

or  data. 

FNTG 

0 

K 

GETIT 

n 

K 

DOOELA 

I 

K 

SDINP 

n 

K 

IIMEPH 

T 

I Phase  tine 

(SEC) 

/GENF  /( 

318  ) 

EQUA3 

a 

TIMEPH 

P 

FNTG 

M 

TIMEPH 

GETIT 

I 

TIMEPH 

GUI3A 

I 

TIMEPH 

OUT 

I 

TIMEPH 
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fOHlRAN 

SYRAOL 

RATH 

SYRBOL 

CODE 

DESCRIPTION 

STORAGE 

SUBROUTINE 

USAGE 

BLOCK 

LOC 

5 UBfi  i 

CODE 

VAR 

tires 

T 

I 

Ar  c t 1 fts 

(SEC)  /GENF  /< 

319  ) 

AST  3 

I 

TIRES 

E0UA3 

0 

TIRES 

FNTG 

f! 

TIRES 

GETIT 

I 

TIRES 

OUT 

I 

TIRES 

TRS 

u 

Stored  current  ire  tliae 

/GETIT  /<* 

) 

GETIT 

U 

TRS 

TPHl 

I 

Phase  end  tines  for  nominal  trajectory 

/GENF  /( 

A13  ) 

BNTG 

I 

TPHl 

GETIT 

I 

TPHl 

SDINP 

0 

TPHl 

- 

TEST 

0 

TPHl 

TOPR 

I 

TPHl 

TST1 

I 

Arc  end  tines  for  nominal  trajectory 

/GENF  /( 

H33  ) 

BNTG 

I 

TST1 

GEtIT 

I 

TST1 

PROPIN 

I 

TST1 

SDINP 

0 

T5T 1 

TEST 

0 

TST1 

TOPR 

I 

TST1 

TRAN3 

I 

TSTl  ' 

TRTOSZ 

I 

TSTl 
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GET  IT 


SUBROUTINE  6ETJT 

CONTROLS  STORAGE  FETCHING  FOR  FORWARD 
X IS  THE  KEY  FLA6 
X=I  NORrtAL  PROGRESSION 

K— 2 HUNG  UP  AT  PHASE  END  POINT 

K = 3 HUNS  UP  AT  ARC  END  POINT 

K = 4 AT  END  OF  STORED  DATA 


TRAJECTORY 


10. 

COMMON/ RETREV/  FT 1ME.BTIME . HATA(  2 l.RAXB 

11. 

CORPION/RETREV/ 

12 

•NBUFA(2> 

, I BUF1 

, 1 BUF2 

,NBFA 

.NBFB 

,m  XA 

13 

• HIXB 

,rxa 

,rxb 

,NPTA 

,NPTB 

, IBLKB 

14 

15 

* , NBUFB  .IBUFB 

CORRON  /XCODES/ 

16. 

*1  TO  (9) 

, I COR  ( 20  ), ITI 

,intb 

J SI  D( 20, 

2 >, JPH  (20,2 

17. 

*JST  ( 20  > 

NCNST 

,NSB 

, NS  AB 

,N!CNB 

18 

*I20P 

,ICOP 

, IFAU 

,1  FAR 

, IFB 

, I NO 

19. 

• IOPEN 

, IPH 

,ISPH 

,ISST 

, 1 ARC 

, I START 

20. 

*ITCT 

,iter 

, I VAR 

,JK 

,JPS 

,JS 

21. 

•XQP 

, KPST 

,K 

,XST 

.NAD 

,NCASE 

22. 

• NON 

,NEOB 

, NEO 

,«0P 

,NPH 

,N 

23. 

•NST 

,IPST 

, IPRI NT 

, ISTN 

, IPHN 

, I STNB 

24. 

♦IPHNB 

, I BLX1 

, I B LX  2 

,ISTQP 

, ISTPP 

, L 

25 

*1  FOB 

,NB 

.LB 

.HB 

.NPHP 

,NPHB 

26. 

•NCT1N 

,NEOF  . ILAB(8  >,JPRP .JSIl .RTT.RPIN{20  J.JPl . 

JP2, JP3 

27 

CORRQN/ GENF/ 

28. 

*0nJ6( 20  > 

,0flSP(20, 

2 ),  V ARO(  9 ) 

,TOL(  9 ) 

.SVARt 10) 

i UDC(  20  ) 

29. 

*A( 9,9  ) 

, ACON( 9) 

, BCONC  9 ) 

jCOTIO.V) 

,0C0N(9> 

.DTP 

30. 

*DTS 

, DT 

,G 

,DPSO 

,a 

,0S 

31 

,RE 

,RACH 

,PA 

,R0 

,CS 

32 

•VNU 

,PAR 

,ROR 

,CSR 

, VNR 

.sunso 

33 

*5V$0 

, TIREPH 

.TIRES 

.TOP 

,TOS 

,TR( 9 ) 

34 

•TSTI20) 

,TPH  (20)^015(20) 

.0IPC20) 

,T 

,w 

35. 

*TLPU  20 > 

.TLSI  (201.0IP1(20) 

,0151(20) 

,T1*E 

,ONP 

36. 

*T I RPR 

, LIFT 

.DRAG 

.TAX 

, TBURN 

,TBU(20 ) 

37. 

» AE 

,FP 

,FPOLD 

, FPD 

, flACHR 

,MACHV 

38 

•OR 

,0V 

, FVAC 

, LIFT  V 

t 

39 

•LIFTR 

,LIFTA 

DRA6V 

,ORASR 

DRAGA 

40 

* 

LIFTR 

'dbr 

,DB 

,ISP 

, ISPF 

41. 

* 

ULFT 

,ULFTV 

, ULFTR 

, JLFT  A 

52. 

•XRCG 

, XRCGV 

, XRCGR 

, XRCGA 

,x«CGn 

,CQDAE 

43. 

♦CULFT 

, CT 

, CALPHA 

,CDE 

, DELTAE 

,S1D 

44. 

•COD 

.SI  DAE 

, XCG 

,ZC6 

, XJ 

H5. 

COMMON  / GENF  / 

46 

•XJV 

, X JR 

,6H 

, GARRAO 

_XX6 

,XXP 

47 

•FRATED 

I RATED 

48 

• PI 

,P2 

,P3 

XK1 

. XX2 

, XK3 

49 

•XKIT 

,XK2T 

, XK3T 

,XKlD 

,XX2D 

, XX3D 

50 

• XX  1 A 

, XK2A 

,XX3A 

,XX1V 

XK2V 

, xxav 

51 

•XK1G 

, XX2G 

, XK3G 

, XK1P 

, XK2P 

,XX3P 

52. 

•XX1R 

,XX2fi 

, XK3R 

,XK10 

. XX  20 

, XX3D 

53 

• XX1U 

,XK2U 

. XK3U 

,xkih 

,XXZH 

,xx3n 

54 

• PV 

,PS 

,PP 

.PR 

,P0 

,DPQY( 3,8) 

55 

real  liftr  , LIFT 

. L1FTA. LIFTR  . 

MACH, 

ftACHR, 

56. 

* ISP,  ISPF 

, «ACHV,L 

IFTV  , IRATED 

1 

57 

DIMENSION 

TPHK  10). 

TSTK10) 

58. 

EQUI VALENCE! TLP 1 . TPH1 ) A TlSI .TSTl ) 

59 

GO  TO  ( 10 

,100,110. 

120), K 

60 

C I LOOP  IF 

ARC  NO  GT. 

STORED  ARC  NUMBER 

61 

10  I F ( I ARC- 

istn)  mo 

,30,20 

62 

20  CONTINUE 

63 

CALL  AGETA 

64 

IF  (ITER  NE  3)  CALL 

BGET 

65 

GO  TO  10 

66 

30  1F(  IPH  NE 

iPHN)  GO 

TO  150 

67 

IF  ( TIRES 

•GT.  DST ) 

GO  TO  50 

68 

IF  ( TIREPH.GT  OPHT ) GO  T080 

69 

C II  LOOP  IF 

CURRENT  ARC 

TIME  6T 

STORE  ARC 

TIME 

10 

40  T(nS  = FTlRE- 

TST1C I ARC ) 

71. 

DOT=TIrtES- 

TRS 

n 

1 F( ABSt  DDT  1 LE.l.E- 

3)  GO  TO  no 

73. 

I Ft DDT.LT 

l.E-51  GO 

ID  130 

GET  IT 

CORN 

COttN  T 

CORN 

CORN 

CO«N 

CORN 

CORN 

CORN 

RETREV 

RETREV 

RETREV 

RETREV 

RETREV 

XCODES 

X COOES 

XCODES 

XCODES 

XCODES 

XCODES 

XCODES 

XCODES 

XCODES 

XCODES 

XCODES 

XCODES 

GENF 

GENF 

GENF 

GEWF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

FRAT 

6ENF 

GEWF 

6ETIT  10- 
CORN 

GET IT  ItP 


GET  IT  p 
6ETIT  ISO 
GETIT  I 
CORN  I 


llOO ill©-*l2D- 
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79 

n 

76 

77 

78 


66 
8 7. 
88 


92 

93 


CALL  AGETA 

I F< ITER  ME  3)  CALL  BSET 
II-A  STOP  SEARCH  IF 
IFtK  EQ.9)  60  70  130 
GO  TO  HO 


END  OF  STORED  DATA 


GETIT 
GET  IT 
COMM 
GETIT 
GETIT 


79  50  iFtTnS  GE  DST  ) GO  TO  70 

80.  C I l-B  STOP  LOOP  IF  ARC  TIME 

81  C DURATION  (SET  K=3> 


GREATER  THAN  STORED  ARC 


82  60  CALL  AGETA 

83  I F C ITER  NE.3)  CALL  BGET 

89  T H$=FTlrtE-T5T 1( I ARC) 

85  GO  TO  130 


70 


K=3 

GO  TO  130 

III  STOP  IF 


PHASE  TIME  GT  5T0RED  PHASE  DURATION 


89.  80  TflPsFT I RE-TPH1C IPH) 

90  IFITWP.GE  OPHT ) 60  TO  90 

91  60  TO  60 


90 


K-2 

GO  TO  130 


99  100  1 Ft IPH  LE  IPHN)  GO  TO  130 

95.  K si 

96  GO  TO  20 


GETIT 

CORN 

COrtN 


90- 

TTo= 


GETIT 

GETIT 

GETIT 

GETIT 


GETIT 

GETIT 

CONN 


1 1 30H  I 


13QH 


1 1 30- 


GET  I T 
GETIT 
GETIT 


GETIT 

GETIT 


GETIT 

6ETIT 

GETIT 


130- 

Tjr- 


"TtH^ 


97 

98 

99 


llGO 


I Ft  I ARC. LE  ISTN)  GO  TO  130 
K— 1 

GO  TO  20 


120  CONTINUE 


101  130  RETURN 

102.  C IV 

103.  C ENTRY  POINTS  SET-UP  ARC  AND  PHASE  DURATIONS 

109  C PRO n STORED  DATA  TO  CORRESPOND  TO  CURRENT 

105  C ARC  AND  PHASE 

106  ENTRY  STSIN 

107.  OST  = DISK  I ARC)  - TSTl(IARC) 

108  RETURN 

109  ENTRY  PKIN 

110  DPHT  = DIP l<  IPH  )-  TPHK  IPH  > 

111  RETURN 


GETIT 

GETIT 

GETIT 


20- 


GET  IT 


GETIT 

CORN 

CO  AN 

CONN 

CONN 

GETIT 

GETIT 

GETIT 

GETIT 

GETIT 

GETIT 


112.  190  CONTINUE 

113  CALL  OUT 

119  1 Ft  1 COP  NE  2)  CALL  5TPIT17) 

115  GO  TO  160 


GETIT 

GETIT 

GETIT 

GETIT 


& 


nt 


in 

116 


150  CALL  STP1K8) 


HO 


RETURN 

END 


SETIT 


SET  JT 
GETIT 
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Sab  routine  GUI3A 


Entry  Point.  GUID 


Pa rpObC 

GUI  iA  computes  simple  nonoptimal  control  for  steepest  descent  "starting 
solution. 

Description 

The  local  option  flag  JGII  determines  which  control  calculation  is  used. 
This  routine  is  called  from  MODELA. 


ill  I 


\ (HI  1 11  AN 

‘ivnnuL 

rml  H 

Symbol 

code 

DESCRIPTION 

,E 

SlIBAOUT  1 .<F 

USAGE 

block 

SUBR  LOUE 

VAR 

APHK 

0( 

n 

Angle  of  *1 1 »ek 

( DEG  ) 

/AEC03  /( 

2 ) 

AGE  T B 3 

0 

AP  HR 

AST  3 

n 

APHR 

BEROCO 

i 

AP  HR 

9LGC0N 

0 

APHR 

GUI3A 

n 

APHR 

nOOELA 

n 

APHR 

mODELB 

i 

APHR 

(AT  X 3 A 

0 

APHR 

OUT 

i 

APHR 

COSPHI 

ft 

See  s jr *b o 1 

/AEC03  /< 

13) 

ACCEL 

i 

COSPHI 

BLR 

i 

COSPHI 

GU13A 

n 

COSPHI 

FIODELA 

n 

COSPHI 

flGDELB 

ft 

COSPHI 

OUT 

i 

COSPHI 

GAD 

7 

i 

Relative  flight  path  angle 

( RAO  ) 

/ST  ATE3/( 

2) 

E0UA3 

i 

GAM 

GUI  3A 

i 

GAM 

OUT 

i 

GAM 

IND 

i 

Flag  indicates  whether  on  first 

no« i na I trajectory 

/XCOOES/I 

Ml  ) 

AST  3 

i 

I NO 

( I ND=1 ) 

BGET3 

i 

IND 

FNT  G 

n 

I NO 

GUI  3 A 

l 

IND 

MTX3A 

i 

IND 

PROPIN 

i 

IND 

I PH 

i 

Phase  number 

/XCGDE5/( 

M3 ) 

AD1D3A 

i 

I PH 

ADJUST 

i 

1 PH 

AST3 

i 

IPH 

BNTG 

ft 

1 P H 

FNTG 

n 

IPH 

GETIT 

i 

1 PH 

GUI  3 A 

i 

IPH 

SD1NP 

n 

IPH 

I PST 

i 

Phase  counter  for  first  nowlnal 

trajectory 

/XCODES/t 

1ST  ) 

AST  3 

i 

1 PST 

FMTG 

n 

I PST 

GUI3A 

i 

IPST 

REU3 

i 

IPST 

JGI 1 

i 

Control  option 

/XCODES/l 

M5  ) 

ACCEL 

i 

JGI  I 

BNTG 

0 

J GI I 

0ER3A 

I 

JGI  I 

FNTG 

n 

J GI  I 

GU13A 

i 

J GI  I 

P10DELA 

i 

J GI  1 

P10DELB 

i 

J GI  I 

(1TX3A 

i 

JGI  I 

PDY3A 

i 

J GI  I 

CINGA 

n 

Control  history  curve  number 

/STS  /{ 

32  ) 

GUI  3 A 

ft 

PINGA 

SDINP 

ft 

(INGA 

SDINP 

i 

TAL 

J1NGP 

n 

Control  history  curve  number 

/STS  /( 

72) 

GUI3A 

ft 

flNGP 

SDINP 

ft 

RNGP 

SDINP 

i 

UTPI 

PH1D 

4> 

ft 

Bank  angle 

t OEG  ) 

/ AEC03  /( 

10  ) 

AGETB3 

0 

PHID 

AST3 

ft 

PHID 

GUI3A 

n 

PHID 

nODELA 

ft 

PHID 

MODELB 

i 

PHID 

PIT  X3  A 

0 

PHIO 

OUT 

i 

PHID 

PHI  R 

* 

n 

Bank  angle 

( RAO  ) 

/ AEC03  /< 

11  ) 

GU13A 

ft 

PHIR 

DODELA 

ft 

PHI 

rtDDELB 

ft 

PHI 

OUT 

i 

PHI 

PSI 

i 

Ai i aut  h 

/ST  ATE3/( 

5 ) 

E3UA3 

i 

PSI 

GUI3A 

i 

PSI 

OUT 

i 

PSI 
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I UK  1 1<  (IN 

;.v  piuo  i 


IIAl  H 
jVI'IBllL 


i ont 


DESCRIPTION 


S I Oh  ASP 
A l J 1 K L C t. 


UBROUT  INF  US  ft G E 

subh  t out  var 


RAD 


1 Radi  an  to  tnglt  c o n *er $ I on , 57.29577951 


RDI 


1 Angle  to  radian  conversion,  .07795329252 


SINA 

s i n« 

ft 

See  symbol 

THL 

) 

Steering  ait  nut h attitude* 

THLR 

u 

Steering  azimuth  attitude. 

THP 

I 

Steering  pitch  attitude. 

THPR 

*P 

u 

Steering  pitch  attitude. 

TlflEPH 

T 

I 

Phase  tiae 

P 


/DATA 

/( 

2 ) 

BEROCO 

! 

OEG 

BLGCON 

I 

RAO 

ENVPRfl 

1 

RAD 

E0UA3 

I 

RAD 

FNTG 

I 

RAD 

GUI  3 A 

1 

RAD 

FlOOELA 

1 

RAD 

(1TX3A 

I 

RAD 

OUT 

1 

RAD 

P ADS  1 

0 

RAO 

SOINP 

I 

RAO 

TRT05Z 

1 

RAO 

/DATA 

/( 

3) 

BLICO 

I 

ROI 

* 

DER3A 

I 

RDI 

FNTG 

I 

ROI 

GUI  3 A 

I 

ROt 

(OODELA 

I 

RDI 

(TO  DELB 

I 

RDI 

PADS  1 

□ 

RDI 

PROPB 

I 

RDI 

PROP  IN 

I 

RDI 

R-EU3 

I 

RDI 

SD1NP 

I 

RDI 

SOmG 

I 

RDI 

/AEC03 

/( 

7 ) 

ACCEL 

I 

SINA 

BLH 

I 

SINA 

BL6 

1 

SINA 

BL7 

I 

SINA 

BL8 

I 

SINA 

FH3 

I 

SINA 

GUI  3 A 

n 

SINA 

OUT 

f 

SINA 

VT 

m 

SINA 

( DEG  > 

/GUI3A 

/(* 

> 

GUI3A 

i 

THL 

(RAD  ) 

/GU13A 

/(  » 

) 

GUI  3A 

u 

THLR 

( DEG) 

/GU13A 

/(  * 

) 

SUI3A 

1 

THP 

( RAD) 

/GUI3A 

/(  * 

) 

GUI  3A 

u 

THPR 

(SEC) 

/ GENF 

/( 

318  ) 

EQE1A3 

0 

TIDEPH 

FNTG 

n 

TIDEPH 

GETIT 

i 

TIKEPH 

GUI3A 

I 

TIPIEPH 

OUT 

i 

T1  rlEPH 
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GU I 3ft 


1. 

2. 


SUBROUTINE  GU13A 


GUI  3ft 

COrtN 


3.  C 

COMPUTES  SIMPLE 

NQN-OPTIMAL 

CONTROL 

CQMN 

9 

COMMON/ GENF/ 

GENF 

5. 

*QMG(  20 ) 

,0MSP(20.2) 

,VARQ( 9) 

,TOH  9) 

, SVAR! 10> 

,VJCC(  20  > 

GENF 

6 

♦ A!  9,9  > 

, ACON! 9 ) 

, BCDNl  9 ) 

,C0TI! 9.9  ) 

, OCON!  9 ) 

.DTP 

GENF 

7. 

♦ OTS 

,DT 

,6 

, DPSO 

, Q 

,as 

GENF 

8 

♦ R 

,RE 

.MACH 

,PA 

, RO 

,C$ 

SENF 

9 

* VNU 

,PAR 

,ROR 

,CSR 

, VNR 

SUMSO 

GENF 

10. 

♦ SVSQ 

,TIMEPH 

, TIMES 

,TOP 

,TOS 

-TEC  9 ) 

GENF 

11 . 

♦TST( 20) 

,TPH  (20) 

,0IS( 20) 

,DIP(2G) 

,T 

SENF 

12 

♦ TLPH20) 

,TLS1  t 20 ) 

.0IPK20) 

, DISK  20) 

,TIRE 

,OMP 

GENF 

13. 

♦TIMPR 

, LIFT 

f DRAG 

,TAX 

,TBURN 

,T8Ut  20 ) 

GENF 

19. 

♦ AE 

,FP 

,FPQLO 

j fpd 

,MACHR 

, MACHV 

GENF 

15. 

♦ OR 

,0V 

, FVAC 

, LIFT V 

SENF 

16. 

♦LIFTR 

, LI  FT  A 

OfiASV 

.DRA6R 

.OBASA 

GENF 

17. 

♦ 

LIFTM 

, DBR 

,0B 

,ISP 

, 1SPF 

GENF 

18. 

* 

ULFT 

, ULFT  V 

, ULFTR 

, ULFTA 

GENF 

19. 

♦xmcg 

,XMCGV 

-XMCGR 

, XMCGA 

, XMCGM 

. COOAE 

GENF 

20. 

♦CULFT 

> CT 

, CALPHA 

,CDE 

, CELT  AE 

,S10 

GENF 

21. 

♦ COD 

SI  DAE 

. XC6 

, ZC6 

GENF 

22. 

COMMON  / 

GENF  / 

GENF 

23 

♦ XJV 

, XJR 

,GH 

,GARMAD 

, XKS 

f XKP 

GENF 

29 

♦FRATED 

, IRATEO 

/ _ 

GENF 

25-  »P1  ,P2  ,P3  , XK1  ,XX2  ,XK3  _ GENF 

26  *XK1T  ,XK2T  ,XK3T  ,XK1D  , XK20  , XK30  , GENF 

27.  ♦ XKlft  ,XK2A  ,XK3A  ,XK1V  . XK2V  'XK3V  , GENF 

28.  *XK16  XK2G  -XK3G  ,XK1P  , XK2P  . XK3P  , GENF 

29.  *XX1R  , XK2R  ,XK3R  -XK1Q  ,XK20  ,XX30  , GENF 

30  * XK 1 U , XK2U  , XK3U  ,XK1M  ,XK2 H ,XK3M  , SENF 

31  *PV  .PS  ,PP  -PR  ,P0  DP  DY(  3 , 8 ) SENF 

32-  REAL  LI FTR  , LIFT  , LlFTft, LIFT N , MACH,  flftCHR,  GENF 

33.  ♦ ISP,  1SPF,  MACHV, LlFTV  . I RATED  FRAT 

39  DIMENSION  TPHl! 10 ),TSTl(  10)  GENF 

35  EQUIVALENCE! TLP1.TPH1).(TLS1,T5T1>  GENF 

36  common  /XCODES/  XCOOES 


37 

♦ 1TQ 

( 9 ), ICOR 

(20 ),  IT I 

,I«TB 

, J SI  D(  20 

<20 

,2),  XCOOES 

38 

♦JST 

(20) 

, NCNST 

,nsb 

, NSAB 

, N[CN3 

. XCODES 

39. 

♦ I20P 

,ICOP 

IF  AU 

^ I F AR 

,IFB 

, mo 

, XCODES 

90 

♦IOPEN 

, IPH 

, ISPH 

, 1 SST 

, 1 ARC 

.ISTART 

, XCODES 

91. 

♦ ITCT 

.ITER 

-I  VAR 

,JK 

,JPS 

,JS 

. XC00E5 

92 

♦ KOP 

, XP5T 

,AST 

,NAO 

-NCASE 

. XCOOES 

93 

♦ NCN 

, NEQB 

, NEQ 

.HOP 

, NPH 

,N 

# XCOOES 

99. 

♦ NST 

, 1PST 

, IPR1NT 

,ISTN 

, IPHN 

. I5TNB 

. XCOOES 

95. 

♦IPHNB 

, 1BLX1 

, I BLX2 

, I STOP 

, I5TPP 

,L 

, XCODES 

96. 

♦ IFOB 

, NB 

, LB 

Bft 

, NPHP 

, NPHB 

, XCOOES 

97. 

48. 

♦NCTIN  ,NEQF 

COMMON/ ARCDAT/ 

,ILAB(8)#JPRP 

.JGII.HTT, 

MPIN(20),JPI 

, JP2, JP3 

XCOOES 

ARCDAT 

99 

♦SREF 

,EJ 

,XISP 

.TMULT 

,DTNC 

-DTPI 

50 

*1  ATM 

.IMODE 

, J AER 

, JPRO 

, QMAX 

SrtAX 

51. 

♦XLMAX 

HDMAX 

, 6MD0T 

, ALf RAX 

,PHMAX 

,MAEA 

52 

♦ MAEB 

, MAEC 

, RAEO 

,MAEE 

, MAEF 

-MAE6 

53. 

♦ MT 

, Ml  SP 

.MXCfi 

,MZCS 

.MblDA 

,MUOB 

54 

♦ MDB 

, XC6R 

, ZCGR 

,XE 

, ZE 

,XT 

55. 

♦ DREF 

,MCHD 

, R HOB 

, OMUL! 

, REMAX 

56 

57 

58 

59. 

60. 
61. 
62 
63 
69. 
65 
66. 

67. 

68. 

69 

70 

71. 

72. 

73. 
79 
75 


T , r cniL  nnuu\  T J 

DIMENSION  ARCDA( 90  ) 

EQUI VALENCE!  SREF, ARCOA) 

COMflON/DATA/ 

*PI  ,RAD  ,R01  ,SC  ,UHF 

♦FTNM  CAR  ,J0P1  ,J0P2  .J0P3 

COMMON/STS/ 

♦OPAY  , P Ml  N , UORK  <20),NtfDS  ,IPC 


*t1NSA(20  2)>NGP{20,2)'  ,AR<200)  JaD<  20)  , I NP(  20  ),  ISV(  20  ) 
COrtflON/GLOBAL/ 


TftPF 
,J0P9 

( 7 >,  NITER 


, XLArtRf 
N&RAN 

, MAXTAB 

IPFLG2, IPFLS3,  IPFLG9  1 NEQFL!  20 


, YMUfiF 
f UP ARC 


*GR  .ER  , QMGZ 

»,JJOP<10>  I FATAL  ,NARC 

* ,KTAB(20).ITAB(20)  ,SI6 

*,6M  , PSIRF, IPFLG1 , 

* . ITPSO  ,KSOL  .XGLOBLl 8) 

COMMON/ST  ATE3/ 

* VAR!  19  ) , 0 VAR  (19),VARL  (99)  ,DVftRL!99)  ,Y0(9> 

♦XL! 9,9 ) /YDP<20,9),VDS  < 20, 9 ), COSGAM  ,S1NGAM 

,S1NRH0  , COSR  HO  , OCORHO 

, 0ME5A2  , 


, LUM 

,ID(  9) 


*sinp£i  ^COSPSl' 
♦SVBV  t 9),  OMEGA 


.SVY(  10) 
SAVBP!  15) 
,CCGRG2 


ARCDftT 

ARCDAT 

ARCDAT 

ARCOAT 

ARCDAT 

ARCOAT 

ARCDAT 

RETAP 

ARCOAT 

ARCDftT 

DATA 

DATA 

DATA 

STS 

STS 

STS 

global 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

RET  AP 

STATE3D 

STATE30 

STATE30 

STATE3D 

5TATE30 


20  DCT  72  G. 01-96 


76. 

♦ VDV  ,GQV  ,ROV  ,no V 

.POV 

,ODV 

STATE3D 

77 

*UOV  ,VOG  ,GDG  ,RDG 

) P 0 G 

, OOG  , 

STATE30 

78. 

♦ UOG  , VOR  , GOR  .rtOR 

, PDR 

,00b 

STATE3D 

79 

♦ UDR  ,VQ«  ,GOrt  fflOB 

,popi 

,vop 

STATE3D 

80 

♦GOP  ,POP  .OOP  , HOP 

, VDO 

,GDO 

STATE3D 

81 

♦ PDO  , UQO  ,HTOV  , HTOR 

STATE30 

82 

real  non  , AOV,  flOR 

5TATE30 

83. 

C0Pifl0N/STATE3/ 

STATE3D 

89. 

♦SJN2R0  . CQS2R0  . C0S2GH 

STATE3D 

85 

EQUIVALENCE  <VAR(1>,V>  ,1  VARt  2) . SAN ) ,C  VARC  31,  ALT  ) , 

(VAR(4),fl>  , 

EQUV3 

86 

*<  VARC  51.PS1  ),C  VARC  6)#RH0),<  VARt  7 >,  HU  >,  C V ARC  8 >,  Hi  ) , 

( VARC9  )#SQ2 >, 

E0UV3 

87. 

♦ (DVARC  1 )_VB).(DVAR(2).GB),<  DVARC  3 ) . HD  M DVARC  4 ) ,H0 >, 

C DVARC  5 ) . PO ) . 

EQUY3 

68 

♦ ( OVARC  6 ),0D),<  DVARC  7),UD ) , < DVARC  8 ) . HTD  >,  ( DVARC 9 1.SQ2D1 

EQUV3 

89 

REAL  N, WU.RD 

E0UV3 

90 

CQnnON/AECG3/ 

AEC03 

91 

♦ APHO  ,APHR  .ALPHA  ,VOA 

, GOA 

,P0A 

AEC03 

92. 

♦ SINA  . CDS A ,PHI0  ,PHJO 

.PHI 

SIMP  HI  , 

AEC03 

93. 

♦CQSPHI  , GDPH  . PDPH  tXLArtAC9l 

,XLArtP(9) 

,CDO 

AEC03 

99. 

♦ CDOA  , CLO  ,FX  .XCSrt 

, ZCGH 

,CLon 

AEC03 

95. 

*cn  ,cwa  ,c«An  .cnn  ,cno 

f cnon 

,F««  , 

AEC03 

96 

♦CLAW  ,CL  , CLA  ,CLfl 

AEC03 

97 

♦CD  . CDA  ,CD« 

AEC03 

98 

EQUIVALENCE  { PH1R,PHI ) 

10 

99 

ENTRY  6U10 

10 

100 

GO  TO  C10,20,90>.JfiIl 

GUI  3 A 

10— j 

20-i 

>0 

101 

C 

I AR HR  AND  PHID  FUNCTIONS  OF  PHASE 

Tine 

COHN 

_ J 

102 

10  CALL  T&LKCrtNGAt IPH.IND J.TIREPH, APHR ) 

6UI3A 

103 

CALL  TRLKt  WNgPt  I P H, 1 ND  1 , T IrtEPH, P HI D > 

GUI  3 A 

109. 

RETURN 

6U13A 

105 

c 

COHN 

106 

c 

II  PITCH  AND  YAU  STEERING  ATTITUDES 

CORN 

, 

1 07 

20  CALL  T6LKinNGAUPK,lNB>,TIHEPR,THP  > 

9UI3A 

108 

CALL  TBLXlnNGPC  I PH,  INO  ),  T I PIEPH.THL  ) 

GUI3A 

109 

THPH  =THP*ROI 

GUI3A 

110 

THLR  =THL»ROI 

GUI3A 

111 

ALL  = T MLR  - PSI 

GUI3A 

112 

ALP  = THPR  - GA« 

GU13A 

113 

l Ft  ALL .HQ  0.)  GO  TO  60 

GUI3A 

60- — 

119 

IFCALP  EQ  0. ) SO  TO  70 

GUI  3 A 

T0-. 

115 

GALL  = 5INCALL1 

GUI3A 

116 

SALP  = SIA(ALP) 

GUI  3 A 

117. 

PH1R  = AT  AN21  SALL.SALP) 

GUI3A 

118. 

COSPHI-CQS(PHlft) 

GU13A 

119. 

5INA=  SALP/COSPHI 

GUI3  A 

120 

1P(ABS(S1HA).GT.1.  > SIN*=. 999999999 

GUI3A 

121 

APHR  = ABST  A5I8(51NA>)  *RAD 

GUI3A 

122 

PHID-  PHlfl  * RAD 

GUI  3 A 

123. 

I F ( PHID  GT.90.  ) 80  TO  30 

GUI3A 

30-1 

129 

IFIPHID  LT.-90. J GO  TO  90 

— 

— 

GUI  3 A 

9G-, 

125 

RETURN 

6UI3A 

. ' 

126 

30  PHIOiPHID-180. 

6U13A 

| 

127 

GO  TO  50 

GUI  3 A 

50-1 

128. 

40  PH7Q=18Q.+PHID 

GUI3A 

ZI3 

129 

50  APHR=-APHR 

GUI3A 

no 

RETURN 

GU13A 

131 

60  CONTINUE^ 

GUI3A 

132. 

PHID-  0- 

GUI  3 A 

133 

APHR  = ALP*RAD 

GUI3A 

139 

RETURN 

GUI  3 A 

135 

70  IFCALL  LT.O.)  GO  TO  80 

GUI3A 

oO — 

1 36 

APHR  = ALL*RAD 

GUJ3A 

137 

PHID=  90. 

GUI  3 A 

138 

RETURN 

GUI  3 A 

139. 

80  APHR  =-ALL*RAO 

GU13A 

1 H 0 

PHID=-90. 

GU13A 

191. 

RETURN 

GUI3A 

192 

c 

COHN 

193 

c 

I!  PITCH  STEERING  WITH  BANK  =0 

COHN 

194 

90  CONTINUE 

GUI3A 

145 

CALL  TBIKt  flNGAC I PH  INO  >.TI flEPH.THP > 

GUI  3 A 

146 

GAflD^GAfl^RAO 

GUI  3 A 
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147. 

PHID=0. 

GUJ3A 

148 

APHR=THP-6ARD 

GU13A 

149 

RETURN 

GUI3A 

150. 

ENTRY  UNSET 

GUI  3 A 

151. 

P1N6P(1PST,2)  =HNGPtIPH,lT 

SUI3A 

152. 

flNGA<  IPST.Z)  =NNGA(IPH,1) 

GUI  3 A 

153. 

RETURN 

GUI  3 A 

154. 

END 

GUI  3 A 
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IH7 

PHI D=0. 

GUI3A 

1H8 

APHR=THP-GA«D 

GU13A 

m. 

RETURN 

GUI3A 

150. 

ENTRY  UNSET 

GUI  3 A 

151. 

tlNCPt  1P5T.2)  =flN6P<  IPH.  1 ) 

GUI  3 A 

152. 

FlNGAt  IP5T.Z  > =nN6A<IPH,n 

GUI  3 A 

153. 

RETURN 

GUI3A 

15N. 

END 

SU13A 
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FUNCTION  IC0D 


Entry  IV0D 
Purpose 

The  main  entry  ICOD  unpacks  the  initial  condition  option  code  from  the 
packed  data  boundary  condition  array  word. 

The  second  entry  IVOD  unpacks  the  variable  code  from  the  word. 
Description 

As  described  in  GEINP,  the  input  boundary  conditions  are  processed  and 
stored  on  random  file  9 record  21.  Subroutine  SDINP  then  reads  file  9 and 
employs  ICOD  and  IVOD  to  get  information  from  the  packed  words.  This 
information  is  used  to  set  up  internal  codes  and  check  input  data. 


4?3 


1 COD 


function  ICOOCRCZ) 


UNPACKS  OPTION  CODE  AND 
INITIAL  CONDITION  ARRAY 
I - REZ*l.E-6  *SIGN( -5,REZ> 
Z=  1*1. E6 
F—  REZ-Z 

ICOD=  F +SIGNI  5.REZI 
RETURN 


ENTRY  IVOD 


VARIABLE  CODE  FKOR 


ICOD  = R£Z*l.E-4  +SISNI  .5.REZI 
RETURN 


END 


ICOD 

CORN 

CORN 

COHN 

ICOD 

ICOD 

ICOD 

ICOD 

ICOD 

ICOD 

ICOD 

ICOD 

ICOD 
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Subroutine  IMPUL 


Purpose 

IMPUL  computes  specific  impulse  for  rocket  propulsion  options. 
Description 

This  routine  has  two  options,  depending  on  whether  JPRO  equals  0 or  1. 
When  JPRO  = 0,  it  will  compute  a corrected  ISP  if  the  ISP  loss  table  has 
been  input.  When  JPR<3  - 1,  it  will  always  compute  a corrected  ISP  for  the 
dual  engine  simulation  (used  with  SSSP  sizing  only). 
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FORTRAN  NAT  H 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


S TORflRE  SUBROUTINE  USAGE 

BLOCK  LOC  SU8H  COOE  VAR 


AE 

l 

Tots!  no  i x It  exit  arc  i 

FRATEO 

I 

Net  rated  ■ax!«ua  rocket  vacuus  thrust 

FVAC 

pi 

Total  vacuus  thrust  trocket3 

IFOB 

I 

Forward  or  adjoint  integration  flag 
% 1 seans  forsard 
a Z scans  adjoint 

IRATED 

i 

ft  axis  us  rated  15P 

JSP 

‘m 

0 

Net  vacuus  specific  ispulse 

I5PF 

0 

Partial  of  ISP  srt  vacuu*  thrust 

JPRO 

i 

Proputslon  sodel  option  flag 

flISP 

i 

Curve  number  klSP  loss  table 

PA 

Pa 

i 

Atsospheric  pressure 

T 

T 

i 

Thrust 

XISP 


I I Yj:i)u»  specific  inputs* 

*P 


/GENF 

n 

520  ) 

ACCEL 

I 

AE 

FH2 

I 

AE 

IflPUL 

I 

AE 

PROPB 

0 

AE 

PR0P1N 

0 

AE 

S0ER3 

i 

AE 

( LBS  1 

/ GENF 

n 

567  ) 

IflPUL 

i 

FRATEO 

PROPB 

0 

FRATEO 

PRDPIN 

0 

FRATEO 

( LBS  ) 

/GENF 

/( 

528  ) 

ACCEL 

I 

FVAC 

ESUA3 

fl 

FVAC 

FH2 

1 

FVAC 

IflPUL 

m 

FVAC 

PROPfi 

n 

FVAC 

PROPIN 

fl 

FVAC 

SDER3 

I 

FVAC 

/XCQDES/( 

178) 

ACCEL 

I 

IFOB 

BEROCO 

I 

IFOB 

BLYNE 

i 

IFOB 

E0UA3 

I 

IFOB 

IflPUL 

I 

IFOB 

SPLYNE 

I 

IFOB 

TOPfl 

0 

IFOB 

( SEC  > 

/GENF 

/( 

568  ) 

IflPUL 

i 

IRATED 

/GENF 

/< 

538  ) 

ACCEL 

i 

ISP 

IflPUL 

0 

ISP 

/GENF 

/< 

539  ) 

ACCEL 

I 

ISPF 

IflPUL 

0 

ISPF 

/ARCDAT/I 

TO) 

E0UA3 

I 

JPRO 

GEINP 

I 

JPRO 

IflPUL 

I 

JPRO 

flODELA 

I 

JPRO 

PROPB 

I 

JPRO 

PROPIN 

I 

JPRO 

/ ARCDAT  /( 

26  > 

IflPUL 

I 

P1ISP 

PROPB 

I 

fllSP 

PROPIN 

I 

flISP 

< PSF  ) 

/GENF 

/( 

308) 

EQUA3 

n 

DZn 

FH2 

i 

PA 

IflPUL 

I 

PA 

OUT 

l 

PA 

PDBC 

I 

PA 

S0ER3 

I 

PA 

< LBS  ) 

/GENF 

/( 

Nil  ) 

ACCEL 

i 

T 

BLGCON 

n 

T 

BLN 

I 

T 

8L6 

I 

T 

BL7 

I 

T 

6l6 

I 

T 

EL2 

I 

T 

E0UA3 

0 

T 

FH1 

i 

T 

FH2 

i 

T 

FH3 

i 

T 

FHH 

i 

T 

IflPUL 

i 

T 

OUT 

i 

T 

PROPB 

0 

T 

PROPIN 

0 

T 

REU3 

0 

T 

S0ER3 

I 

T 

( SEC  > 

/ARCOAT/< 

3 ) 

IflPUL 

I 

XISP 

SIZIN 

0 

XI5P 
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ihpul 


1. 

SUBBOUTIKE  1HPUL 

I flPUL 

2. 

C 

CQftN 

3 

C 

COMPUTES  ISP  FOB 

ROCKETS 

COHN 

4 

COrtrtON/ARCDAT/ 

ARCOAT 

5 

♦SREF 

»EJ 

,Xl$P 

,T*ULT 

, OTNC 

. OTPI 

ARCOAT 

6. 

*1  ATrt 

,IrtODE 

, J AER 

, JPRO 

,0«AX 

, BI4AX 

, 

ARCOAT 

7. 

♦XLRAX 

, HDflAX 

.SR30T 

,ALFrtAX 

rPH»9AX 

-4AEA 

t 

ARCOAT 

8. 

♦HAEB 

,nAEC 

,HAED 

,HAEE 

,«AEF 

,HAES 

t 

ARCDAT 

9. 

*HT 

,HISP 

,rtXCS 

,HZCG 

fltJDA 

.nuDB 

ARCOAT 

10. 

*nD8 

, XCGR 

,ZCGR 

. X£ 

, XT 

ARCOAT 

n. 

♦ DREF 

,rtCND 

,RHOB 

,o«ULT 

, REflAX 

ARCOAT 

12. 

♦ .frate 

, ARCDC9) 

RETAP 

13. 

DlrtENSION  AfiCDA(  401 

ARCOAT 

14 

EQUl VALEHCEC  5REF. ARCDA) 

ARCOAT 

15. 

C0N10N/SENF/ 

* 

GENF 

16 

•omGtzo) 

,0rtSP(20 

,2 ), VARQ( 9 ) 

. TOL(  9 ) 

.SVAR( IQ) 

. U0C(  20) 

GENF 

17. 

*A(  9 91 

, ACONl 9 J 

. BCONC  9 > 

,COTI< 9.9  > 

OCONl 9 > 

.DTP 

CENF 

18. 

♦ DTS 

,or 

, s 

, DP  SO 

,as 

GENF 

19. 

♦R 

,RE 

.WASH 

,PA 

^RO 

^cs 

GENF 

20. 

*VNU 

,PAR 

,ROR 

,c$b 

, VNR 

,50^50 

GENF 

21 

*$VSQ 

.TlrtEPH 

.TIRES 

.TOP 

.TOS 

,TR( 9 ) 

GENF 

22. 

*TST( 20 ) 

.TPH  (20), 0ISC20) 

,01PI  20) 

,T 

GENF 

23. 

»TLPU20)  , TLS1  ( 20  ),  DIPK  20) 

DISK  20  ) 

,T1«E 

OHP 

t 

GENF 

2*1. 

+TIHPR 

.LIFT 

,0RA6 

.TAX 

, T BURN 

T3U<  20 ) 

. 

GENF 

25. 

*AE 

,FP 

.FPOLD 

-FPD 

t HACHR 

,RACHV 

, 

GENF 

26. 

♦OR 

,0V 

,FVAC 

.LIFTV 

GENF 

27 

♦L1FTR 

, LI  FT  A 

ORAfiV 

'crash 

, OR ASA 

GENF 

28 

♦ 

LlFTn 

'OBR 

,0B 

,ISP 

, ISPF 

f 

GENF 

29 

* 

ULFT 

, U-FTV 

,ULFTR 

, ULFT A 

a 

GENF 

30. 

♦ xpics 

. XHC6V 

.XHC6R 

, XHCSA 

,X«  CSft 

9 CDDAE 

GENF 

31 . 

♦CULFT 

,CT 

.CALPHA 

,CDE 

,DELTAE 

,SIO 

GENF 

32 

♦ COO 

S1DAE 

, xcs 

, ZCG 

'xj 

GENF 

33. 

CQrtrtON 

/ g£nF  / 

GENF 

3*». 

*XJV 

, XJfl 

,GH 

, GftMNAD 

,XK6 

, XKP 

, 

GENF 

35. 

♦PRATED 

, 1RA1E0 

GENF 

36. 

*P1 

,P2 

>3 

, xxi 

,XX2 

-XX3 

, 

GENF 

37 

♦ XK1T 

,XK2T 

, XK3T 

, xcio 

,XK2D 

,XK3D 

GENF 

38 

*XK1A 

. XK2A 

, XK3A 

. XXIV 

, XK2V 

-XK3V 

GENF 

39 

♦ XK15 

, XK26 

,XK3G 

,XX1P 

,XKZP 

, XK3P 

g 

GENF 

HO 

«XK1R 

, XK2R 

,X*3R 

,XX10 

, XK20 

,XK30 

t 

GENF 

HI 

»XK1U 

, XK2U 

, XK3U 

,xki  n 

,XK2n 

-XK3H 

, 

GENF 

42. 

*PV 

.PS 

.PP 

#PR 

>0 

DPOYC  3 8) 

GENF 

43 

REAL  LIFTR  _ LIFT 

, LIFTA, LIFTrt  , 

flACH, 

flACHR, 

GENF 

HH 

» ISP.  ISPF . HACHV. 

LIFTV  . IRATEO 

FRAT 

H5 

OIHENSION  TPHl(iO).TSTl( 10) 

GENF 

H6. 

EOUE  VALENCEi  TIP  1 .TrHl  >.( TLS1 .TSTl > 

GENF 

H7. 

COHflGN 

/XCODES/ 

XCODES 

H8 

♦ ITO 

(91,1  COR  (ZO).lTl 

. I NTB 

, J Si  D(  20, 

21.JPH  <20,21 

1, 

XCOOES 

49 

»JST  (20) 

,NCH$T 

, NSB 

, NSAB 

NI  CNB 

f 

XCODES 

50 

*120P 

. I OOP 

-IFAU 

, 1FAR 

,ifb 

,IND 

f 

XCODES 

51. 

♦ I OPEN 

. IPH 

,ISPH 

,ISST 

, 1 Aft  C 

, I START 

XCOOES 

52 

♦ ITCT 

.ITER 

,IVAR 

, JX 

,JP5 

,JS 

XCODES 

53 

*KOP 

#KPST 

,K 

, KST 

.NAD 

,NCASE 

XCOOES 

54 

♦NCN 

NEOB 

,NEQ 

, NOP 

, AIPH 

t 

XCOOES 

55. 

♦ NS  I 

,IP5T 

, IPRI NT 

. 1STN 

, 1PHN 

,1STNB 

, 

XCOOES 

56. 

•IPHNB 

, 1 BLX1 

, I BLK2 

, I STOP 

, ISTPP 

,L 

XCOOES 

57 

♦ iFoa 

,NB 

.LB 

.rtB 

.NFRP 

.NPHB 

XCOOES 

58 

♦NCTIH 

,NEOF  ,1 

LABl  8 ), JPRP  . 

J SI  I , «TT  . rtPI  N(  20,  JP1 . 

JP2,  JP3 

XCOOES 

59. 

FVAC  = 

T 4-  AE«PA 

1HPUL 

60 

ISP  = XI5P 

THFUL 

61. 

ISPF  = 

0. 

IrtPUL 

62. 

C 

COHJi 

63 

C 

1 TEST 

FOR  BURL 

ENGINE  MODE 

CGHM 

64 

IF( JPRO 

.EO.l)  GO  TO  20 

AAA 

65 

C 

II  IF 

ISP  LOSS 

TABLE  NOT 

INPUT  RETURN 

COHN 

66 

ifc nisp 

.LE.  0)  RETURN 

THPUL 

67 

FOR  = FVAC/FR ATED»100. 

AAA 

65 

CALL  SPLYNEI Hi  SP.FGR, Cl SP , Cl SPF ) 

IrtPUL 

69 

10  ISP  = C1SP»1RATE0* 

.01 

AAA 

70. 

1FUFBB 

-Eg.n  RETURN 

IrtPUL 

71 

!SPF=  CISPF*.C1»IRATE0  /PRATED 

AAA 

72 

RETURN 

IrtPUL 

73. 

C 

COflK 

74. 

C 

II! 

EFFECTIVE 

ISP  FOR  DUAL  ENGINES 

with  only 

ONE 

COflW 

75 

c 

THROTTLED 

OR  VARYING 

WiTrt  ARC-TIrtE 

CQrtM 

20  oct  n s oi-ss 
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76.  20  F0R=  FVAC  / FRATED  #1C0. 

77.  CALL  ISPRAT(F0R,CISP,CJ5PF.JUNK,1F06> 

78.  60  TO  10 

79.  END 


AAA 

AAA 

AAA 

IflPUL 


10—* 
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Subroutine  IPR 


Pu rpos o 

IPR  is  a utility  routine  used  for  dumping  onto  the  printer  either  fixed  or 
tioatmg  point  arrays. 

Printed  Output 

The  output  of  IPR  is  a BCD  name  followed  by  either  a 6 column  E format 
array  dump  or  10  column  fixed  point  array  dump. 


20  OCT  72  6.01-H6 
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FUNCTION  LOMG 


Purpose 

L0MG  returns  an  internally  used  (steepes  + descent)  stopping-variable  print 
code  given  an  input  code. 

Description 

LOMG  is  called  from  SDINP  during  the  scan  of  boundary  conditions. 


LOflG 


1 

FUNCTION  tone  <K) 

Lons 

2 

I = 10B5(X> 

ions 

3. 

IFtl.EB.Il  SO  TO  10 

LOflG 

4 

L0NG-I-1 

LQPlG 

5. 

RETURN 

LOrtS 

6 

10  LOMB=I 

LOUS 

7. 

20  RETURN 

LOrtG 

8. 

END 

LOrtG 

3 
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Subroutine  MAMECO 


Purpose 

MAMECO  computes  the  total  aerodynamic  moment  coefficient  and  its 
derivative  with  respect  to  Mach  number. 

Description 

MAM  ECO  is  called  from  Subroutine  VT. 


493 


f 0 H 1 R Q N 
SVHHUL 

MAI  H 
SYMBOL 

CODE 

DE 

SCRIPTIQN 

S 1 OR  ARE 

SlIDhOUT  IMF 

USAGE 

ti  l 0 LOL 

!>  U ft  R COUt 

VAR 

ALPHA 

a 

I 

Angle  of  itticK 

(RAD)  7AEC03  /( 

3 1 

BEROCO 

I 

ALPHA 

BLGCON 

n 

ALPHA 

BL2 

i 

ALPHA 

FMTG 

D 

ALPHA 

MAMECO 

I 

ALPHA 

MDOELA 

n 

ALPHA 

MODELB 

0 

ALPHA 

REU3 

0 

ALPHA 

VT 

I 

ALPHA 

CM 

c„ 

G 

Mo  »e  tit  to  f f 1 1 c 1 en-t 

/AEC03  /( 

Ml) 

MAMECO 

G 

CM 

H 

VT 

I 

CM 

CMA 

c„ 

1 

ttoaeftt  coefficient 

s lope 

/AEC03  /( 

M2  ) 

E8UA3 

CMA 

MAMECO 

I 

CMA 

VT 

I 

CrtA 

CMAM 

acu  /am 

I 

See  symbol 

/AEC03  /( 

M3  ) 

E3UA3 

M 

CMAM 

MAMECO 

I 

CMAM 

CMM 

ac^/am 

G 

5 e e sy  abo  1 

/AEC03  /( 

MM  ) 

MAMECO 

0 

CMfl 

VT 

I 

CMM 

cno 

c„ 

I 

Mo nent  coefficient 

it  O = 0 

/AEC03  /(  - 

M5  ) 

E0UA3 

I 

cno 

*o 

MAMECO 

I 

CMO 

Cnon 

ac,.  /am 

X 

See  sy abo  l 

/AEC03  n 

46  ) 

E0UA3 

1 

ctnon 

"0 

MAMECO 

1 

tnon 
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AAAECO 


I. 

SUBROUTINE  AAAECO 

AAAECO 

2. 

COMON/6E9F/ 

GENF 

3. 

• QA3C2G) 

,CA3rl  20,2  ), VARO( 9 ) 

.T3L(  9 ) 

,SVAR{  10) 

, UDCt 20) 

GENF 

9. 

*A(9,9> 

, ACQM(  9 1 ,BCDNl9) 

,C0T1(9,9) 

,DC0N(9> 

.OTP 

GENF 

5. 

♦ DTS 

,0T  ,G 

,opsa 

,0S 

GENF 

6. 

♦R 

,RE  ,AACH 

,PA 

,R0 

,CS 

GENF 

T. 

♦ VNU 

, PAR  , ROB 

,CSR 

, VNR 

.SUASO 

GENF 

8. 

•SVSO 

,TIAEPH  ,TIAES 

,TQP 

, TOS 

,TRt  9 ) 

GENF 

9. 

♦TST< 201 

,TP«  ( 2G ),OIS( 20 ) 

,DIP< 20  ) 

,T 

GENF 

10. 

♦TLPH20) 

,TL$1  (20>,OIrH2C) 

, DISK  2G  ) 

,T1AE 

,OAP 

GENF 

11. 

♦TIAPR 

#UFT  ,CRAS 

,TAX 

,TBURN 

,TBll(  20) 

GENF 

12. 

♦ AE 

,FP  ,FPOLD 

, FPO 

, AACHR 

,AACHV 

SENF 

13. 

♦on 

,3V  ,Ftf AC 

, LI  FT  V 

GENF 

19. 

♦LIFTR 

, LIFT A , 

DRASV 

, DRAGR 

DR  ASA 

GENF 

15. 

« 

LIFT*  ,DBR 

,DB 

,ISP 

. f SPF 

GENF 

16. 

♦ 

ULFT 

, ULFTV 

, ULFTR 

, ULFTA 

SENF 

17. 

♦ XACG 

,XACSV  .XACSR 

,xacsa 

# XACGA 

,CGOAE 

GENF 

18. 

♦CULFT 

,CT  -CALPHA 

. CDE 

.DELTAE 

,SID 

SENF 

19. 

♦coo 

-SIDAE  , XCG 

,ZCG 

,XJ 

GENF 

20. 

COAAON  / 

GE*F  / 

GENF 

21. 

♦ XJV 

-XJR  ,6H 

, SAArtAO 

, XKG 

,XXP 

GENF 

22. 

♦FRATED 

,1 rated  , 

SENF 

23. 

♦PI 

#P2  ,P3 

XXI 

, XX2 

. XK3 

SENF 

2*1. 

• XX1T 

,X«2T  ,XX3T 

, XXI D 

, XX2D 

. XK3D 

GENF 

25. 

♦ XX1A 

-XX2A  XK3  A 

.XXIV 

, XK2V 

.XK3V 

SENF 

26. 

*XX1G 

, XX2S  ,X*36 

,XK1P 

, XX2P 

, XX3P 

GENF 

27. 

♦ XX1R 

-XX2R  ,XX3R 

, XK10 

, XK20 

, XX3Q 

GENF 

28. 

♦ XXill 

, XX2U  . XX3U 

, XX1A 

, XX2A 

XK3A 

GENF 

29. 

♦ PV 

.PG  .PP 

.PR 

,P0 

,DPOV(  3,8 ) 

GENF 

: 30. 

REAL  LIFTS  . LIFT  . LlFTA. LIFTS  . 

MACH, 

AACHfi, 

GENF 

! 31. 

♦ ISP,  I5PF.  AACHV.LlFTV  , IRATEO 

FRAT 

! 32. 

DIAENSION  TPM1C  IO.TSTU101 

GENF 

33. 

EOU 1 V ALENCE( TlP 1 .TPrtl ) . < TLS 1 -TST 1 ) 

GENF 

39. 

C0A«0H/AECQ3/ 

AEC03 

35. 

♦ APHO 

,AP«R  _ ALP HA 

, VDA 

, GDA 

.PDA 

AEC03 

36. 

♦ SINA 

.CCS A -PHiO 

,PHID 

,PHI 

.SINPHl 

AECG3 

37. 

♦COSPHI 

, SCPH  -POPK 

, XLAAA( 9 > 

,XLAAP<  9) 

.COO 

AEC03 

38. 

♦coon 

,CLO  ,FX 

,XCSA 

,ZC6A 

,CLOA 

AEC03 

39. 

♦CA 

-CAA  -CAAA  .CAN 

,CflO 

, CAOA 

,FXA 

AEC03 

i 90. 

♦ CLAN 

, CL  ,CLA 

, CLA 

t 

AECQ3 

i *1- 

♦ CO 

,COA  ,COA 

AEC03 

92 

CA  = CAO 

♦ ALPHA*CAA 

RAAECO 

93. 

CAA  - CAOA  ♦ ALPHAvCAAN 

OArtECO 

99. 

RETURN 

AAAECO 

95. 

END 

AAAECO  : 
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Subroutine  MODELA 


Purpose 

MOOELA  governs  the  computation  of  the  control  vector  and  sets  up  the 
derivative  calculation  during  the  forward  trajectory  integration. 

Description 

The  way  the  control  vector  is  calculated  depends  on  options  in  the  program 
and  also  on  control  and  state  inequality  constraints.  MODELA  does  not 
calculate  the  control  vector  (BLGCC^N  does),  but  it  does  test  the  result  of 
either  optimizing  or  non-optimal  control  computations  to  determine  if 
instantaneous  constraints  have  been  violated.  If  constraints  ar-e  violated, 
the  control  mode  is  instantaneously  changed  and  control  is  recalculated  on 
the  appropriate  constraint  boundary.  After  the  bounded  control  is  computed, 
the  derivatives  are  calculated  and  returned  to  the  calling  routine,  FNTG. 


4S? 


Subroutine  y\Ooe\,A 


vr 

Cr 


FORTRAN 

SYMBOL 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


ALFMAX 

“max 

1 

Maxima  angle  of  attack 

(DEG) 

/ ARCDAT /( 

16) 

INBVAD 

MOOELA 

MODELB 

N 

I 

i 

alfmax 

alfmax 

alfmax 

ALPS AV 

U 

Angle  of  attack  prior  to  control  bo  undry 

/MDDELA/(» 

) 

MOOELA 

u 

alfsav 

ALPHA 

oc 

n 

Angle  of  attack 

(RAO) 

/AECD3  /( 

3) 

BEROCO 

1 

alpha 

blgcon  n alpha 

BL2  I ALPHA 
FNTS  0 ALPHA 
MAMECO  I ALPHA 
MOOELA  n ALPHA 
MOOELB  0 ALPHA 
REU3  0 ALPHA 
VT  I ALPHA 

AP HR  a H Angle  of  attack  (DEG)  / AEC03  /(  2)  A6ETB3  0 APHR 

AST3  « AP  HR 
BEROCO  I APHR 
BLGCON  0 APHR 
GUI3A  fl  APHR 
MOOELA  H APHR 
MODELS  I APHR 
MTX3A  0 APHR 
OUT  1 APHR 


calpha 

n 

Constant  value  of  anglt-of - *tt ark 

(RAD)  /GENE  /( 

552 ) 

BL2 

I 

CALPHA 

MOOELA 

H 

CALPHA 

MQDELB 

A 

CALPHA 

COSGAM 

cisl)) 

i 

See  symbol 

/STATE3/( 

687  ) 

ACCEL 

1 

COSGAM 

BLN 

I 

cosgam 

BL8 

I 

CO  SCAN 

DER3A 

I 

COSGAM 

EQUA3 

0 

COSGAM 

MOOELA 

I 

COSGAM 

MQDELB 

1 

COSGAM 

OUT 

I 

COSGAM 

POBC 

I 

COSGAM 

PDY3A 

I 

COSGAM 

COSPHI 

C9S<* 

n 

See  syabol 

/ AEC03  /( 

13) 

ACCEL 

I 

COSPHI 

BLN 

I 

COSPHI 

* 

GUI  3 A 

n 

COSPHI 

MOOELA 

n 

COSPHI 

MODELS 

A 

COSPHI 

OUT 

I 

COSPHI 

COSPSI 

cost  +) 

I 

See  sy«bol 

/ST  ATE3/< 

705) 

BLN 

I 

CD5PSI 

BL7 

I 

COSPSI 

BLB 

l 

COSPSI 

DER3A 

1 

COSPSI 

EQUA3 

0 

cospsi 

MOOELA 

I 

COSPSI 

MQDELB 

I 

COSPSI 

PDBC 

1 

COSPSI 

P0Y3A 

1 

cospsi 

COSfiHO 

cos(p) 

I 

See  synbol 

/STATE3/( 

707  ) 

BLN 

I 

CQSRHO 

BL7 

I 

COSRHO 

BLB 

I 

CQSRHO 

0ER3A 

I 

COSRHO 

E0UA3 

M 

CQSRHO 

MOOELA 

I 

COSRHO 

M30ELB 

1 

COSRHO 

OUT 

I 

CQSRHO 

PDBC 

I 

COSRHO 

PDY3A 

I 

COSRHO 

C0S2GM 

c o s(  Z7  ) 

0 

See  syabo l 

/5TATE3/( 

757  > 

MDDELA 

0 

C0S2SM 

MODELS 

0 

C0S2GN 

C0S2R0 

cost  Zp  ) 

0 

See  synbol 

/ST  AT£3/( 

756) 

BLN 

1 

COS2RO 

BL7 

n 

C0S2R0 

BLB 

ft 

C0S2R0 

MDDELA 

0 

CQS2R0 

r 

MDOELB 

0 

C0S2R0 

fi  NOV  72  G 01-N6 
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FORTRAN 

svnaoi. 


NAT  If 
SVNBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USASE 
BLOCK  LOG  SU6R  CODE  V*R 


CULFT 

6 


GNAX 
6ND0T 
l ABC 


1STABT 


ITER 


J6II 


9 


0 Const tot  valua  of  ULFT 


1 Gravitational  attraction 


I flaxlau*  total  acct lerat 1 on  g load 


1 Pitch  rat* 


1 Arc  nu«b*r 


0 initialization  and  dWtrgaact  flag 


I Trajectory  pass  Indicator. 

ITER  = 1,  CONSTRAINTS 
* 2,  OPTIMIZATION 
= 3,  SOLUTION 


I Control  option 


(LBS) 

/GENF 

/< 

IFT/5EC**Z) 

/GEWF 

/( 

/ARCDAT/C 


(OEG/SEC)  / ARCDAT /< 


/XCODES/C 


/XCODES/( 


/ xcodes/c 


/XCDDES/l 


550)  8L3 

1 

CULFT 

MODEL* 

0 

CULFT 

301)  BLM 

I 

G 

BL7 

1 

6 

6L8 

I 

e 

0ER3  A 

I 

G 

EQUA3 

PI 

£ 

MOOELA 

I 

G 

MODELB 

I 

G 

PDV2* 

I 

G 

SOER3 

I 

G 

SOI  HP 

n 

G 

1Z)  BL5 

I 

GttAX 

FH3 

I 

6MAX 

MOOELA 

I 

GnAX 

PROPB 

I 

GMAX 

PROPIN 

I 

GnAX 

1?)  OER3A 

I 

GHDOT 

MOOELA 

I 

GflDOT 

H00ELB 

I 

GflDOT 

PROPB 

I 

GP100T 

FROPI-N 

I 

GflDOT 

lAfc)  A0ICB3 

I 

I ABC 

ACID2A 

I 

I ARC 

ADJUST 

I 

I ARC 

A5T3 

1 

1 ARC 

BNT$ 

n 

JARC 

EWYPRH 

1 

I ARC 

FNT6 

* 

1 ARC 

GET1T 

1 

I ARC 

MG  DEL A 

I 

I ARC 

PROPB 

1 

I ARC 

PROPIN 

i 

I ARC 

REU3 

1 

1 ARC 

SOI 

rt 

I ARC 

STAU 

I 

I ARC 

STP3 

1 

1 ARC 

THT05Z 

I 

I ARC 

1H7)  AST3 

0 

1ST  ART 

6L8CDN 

0 

I START 

BLYNE 

0 

I START 

FNT6 

I 

I START 

MOBELA 

0 

ISTAAT 

PR0P1N 

0 

[START 

REU3 

I 

1ST  ART 

TEST 

n 

l START 

TQPrt 

* 

I ST ART 

199)  AST 3 

i 

ITER 

FNT6 

i 

ITER 

SETIT 

i 

ITER 

MODELA 

i 

ITER 

OUT 

l 

ITER 

PAY02 

n 

XTER 

PROPIN 

1 

ITER 

TEST 

ITER 

TOP* 

ITER 

195)  ACCEJL 

t 

J 61 1 

BNTfi 

0 

J 61 1 

DER3A 

1 

J 61 1 

FNT  S 

N 

J6I1 

GUI  3 A 

I 

JGII 

ADCELA 

l 

JGII 

flO  DELB 

i 

JGII 

MTX3A 

\ 

JGII 

P0Y3A 

i 

JGII 

8 NOV  TZ  G 01-H8 


FORTRAN  HATH 

SYrtBGL  SYMBOL 

JK 

JPRO 

JPRP 

JP1 

JP2 

JP3 

JTYP 

K 

OCORHO  COSRHO 

0C0R02  ed*  OCQR  HQ 


code  DESCRIPTION 


1 Integration  routine  flag  tells  ahlch  derivative 
evaluation  In  Rungc-Kutta  cycle 


I Propulsion  ecdel  option  flag 


1 Propulsion  flag  for  different  rocket  options 


n Option  flag  lor  first  governing  equation 


I'  Option  flag  for  second  governing  equation 


A Option  flag  for  third  governing  equation 


I Sizing.  Flag. 


I Storage  retrieval  flag  Indicates  end  of  arc,  phase, 
or  data. 


1 Sec  aynboi 


I See  syaboi 


STORAGE 
BLOCK  IOC 


SUBROUTINE  USAGE 
SUBR  CODE  VAR 


/XC0D£S/( 

/ARCOAT/l 

/XCQDE5/C 

/XCGOES/i 

/XC0DE$/< 

/KCOOES/t 

/SIZINGS 

/XCOOES/t 

/STATE3/< 

/STATE3/< 


151 ) 

ADIC3A 

* 

JK 

BNTS 

I 

JK 

HOOELA 

I 

4 It 

PAYQ2 

n 

Jit 

RXTA3A 

n 

4 

RKTB3A 

n 

4 

10) 

EGUA3 

I 

JPRO 

GEINP 

1 

JPRO 

I MPUL 

i 

JPRO 

HODELA 

! 

JPRO 

PROPB 

1 

JPRO 

PROPIN 

I 

JPRO 

19*1 ) 

ACCEL 

1 

JPRP 

DER3A 

I 

JPRP 

EQUA3 

I 

JPRP 

nOOELA 

I 

JPRP 

PDY3A 

I 

JPRP 

PROPB 

0 

JPRP 

PROPIN 

0 

JPRP 

217  ) 

AGETB3 

n 

JP1 

AST3 

n 

JP1 

MOOELA 

n 

JP1 

HOOELB 

i 

JP1 

PROPB 

0 

JP1 

PROPIN 

0 

JP1 

218) 

HQDELA 

I 

JP2 

rtOOELB 

I 

4P2 

PROPB 

0 

4P2 

PROPIN 

0 

JP2 

219) 

A6ETB3 

0 

JP3 

AST3 

n 

JP3 

MO  DEL A 

n 

4P3 

HOOELB 

I 

JP3 

OUT 

i 

JP3 

PROPIN 

0 

JP3 

313) 

FNTG 

i 

JTYP 

6EINP 

0 

JTYP 

nODELA 

I 

JTYP 

P AOS  1 

I 

JTYP 

PROP  1 N 

I 

JTYP 

SIZIN 

I 

JTYP 

TRT0S2 

I 

JTYP 

15&) 

AST3 

0 

K 

FNTG 

0 

K 

SETIT 

n 

It 

rtOOELA 

I 

It 

SOINP 

n 

K 

708  ) 

0ER3A 

i 

OCORHO 

E0UA3 

n 

OCORHO 

ROOELA 

I 

OCORHO 

nODELB 

I 

OCORHO 

POBC 

i 

OCORHO 

PDY3A 

i 

OCORHO 

709) 

DER3A 

l 

OC0R02 

EQUA3 

0 

OC0RO2 

nODELA 

i 

OC0R02 

HOOELB 

i 

0C0R02 

P0Y3A 

l 

OCORQ2 

6 NO V 12  G 01 
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FORTRAN  MATH 

SYMBOL  SYMBOL 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


I Earth  rotation  rata 


(RAD/SEC)  / GLOB AL/( 


Bank  angle 


M B»nk  angle 


U Bank  angle  prior  to  control  boundry 
I Radial  distance  fro*  earth  center  to  vetiLcle 


< R AD ) / AEC03  /<  11) 


( OEG)  /AEC03  /{  10) 


1 Radian  to  angle  conversion,  57  29577951 


I Angle  to  radian  conversion,  01745329252 


SINGAM  S|n(>) 


See  symbol 


3)  AD1D3A 

1 

ohgz 

CRASH 

j 

OMEGA 

DER3A 

I 

0HG2 

E0UA3 

! 

0M6Z 

GEINP 

I 

OHGZ 

MODELA 

I 

OMGZ 

MODELS 

I 

Opigz 

PDBC 

I 

OMGZ 

PDY3A 

1 

OMGZ 

SOINP 

I 

OMGZ 

TOPM 

! 

OHGZ 

11)  GU13A 

N 

PHIR 

MODELA 

rt 

PHI 

MODELS 

M 

PHI 

OUT 

i 

PHI 

10)  AGETB3 

0 

PM1D 

AST3 

n 

PHIO 

GUI3A 

N 

PHID 

MODELA 

n 

PHID 

MODELS 

l 

PHIO 

MIX3A 

0 

PHID 

OUT 

I 

PHID 

) MODELA 

u 

PHISAV 

305)  8L5 

I 

fl 

BL7 

l 

R 

BL0 

I 

R 

OER3A 

i 

R 

E0UA3 

N 

R 

MODELA 

I 

R 

MODELS 

I 

R 

PDBC 

I 

R 

PDY3A 

1 

R 

TRTGSZ 

I 

R 

2)  BEROCO 

I 

DEG 

BL6CGN 

I 

RAD 

ENVPR* 

I 

RAD 

E0UA3 

1 

RflD 

FNTB 

I 

RAD 

GUI  3 A 

I 

RAD 

ftODELA 

I 

RAD 

MTX3A 

I 

RAO 

OUT 

j 

fiao 

P ADS  1 

D 

RAD 

SDINP 

I 

RAD 

TRTOSZ 

I 

RAO 

3)  BLICQ 

I 

R01 

DER3A 

I 

ROl 

FNTS 

i 

RDI 

GUI3A 

I 

RD5 

MODELA 

I 

RDI 

MODELS 

1 

RD! 

PADS1 

D 

RDI 

PROP  B 

1 

RDI 

PROPIN 

I 

RDI 

REU3 

i 

RDI 

SDINP 

I 

RDI 

SOMB 

I 

RDI 

688)  BL4 

I 

SINGAM 

BL7 

I 

OINGAR 

BL8 

I 

SINGAM 

DER3A 

I 

singah 

EQUA3 

0 

SI  NSAH 

MODELA 

I 

SINGAH 

MODELS 

I 

SINGAH 

PDBC 

I 

SINGAM 

FOY3A 

I 

SINGAH 

S0ER3 

I 

SINGAM 

6 NO  V 72  G 01-46 


FORTRAN 

Symbol 


hath 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE 
BLOC<  LOC 


SUBROUTINE 
SUBR  CODE 


SINPHI 

5 1 n# 

H See  lyabol 

/AEC03  /l 

12) 

ACCEL 

I 

SINPHI 

BLA 

I 

SINPHI 

MOOELA 

m 

SINPHI 

MOOELB 

n 

SINPHI 

OUT 

i 

SINPHI 

SINPSI 

si  n(*) 

I See  syabol 

/STATE3/1 

70A) 

BLA 

i 

* 

SINPSI 

BL7  1 51 NP5I 

BL8  I SINPSI 
OER3A  I SINPSI 
EQUA3  0 SINPSI 
M3DELA  I SINPSI 
MODELS  I SINPSI 
PO0C  I SINPSI 
PDY3A  I SINPSI 

S I NR  HO  clntoT  I See  *y»bo i /STATE3/C  706)  BLA  I SINRHO 

^ BL7  I SINRHO 

BLB  I SINRHO 
0ER3A  1 SINRHO 
ECU A3  0 SINRHO 
MOOELA  I SINRHO 
MODELS  I SINRHO 
OUT  I SINRHO 
P BBC  1 SINRHO 
PDY3A  I SINRHO 


5 1 NERO 

s i n{ Ip  ) 

0 

See  syabol 

/STATE3/C  755)  BLA 

I 

SIN2R0 

BL7 

M 

S1N2R0 

BLfl 

M 

SIN2R0 

MOOELA 

0 

SIN2R0 

MGOELB 

0 

$ I N2R0 

SORT 

F 

Square  root  function 

/SORT  /(S  ) ANLATM 

F 

SORT 

CRASH 

F 

SORT 

DCTOE 

F 

SORT 

DER3A 

F 

SORT 

EMVPRM 

F 

SORT 

HUNT 

F 

SORT 

MOOELA 

F 

SORT 

MQOELB 

F 

SORT 

OP HELL 

F 

SORT 

OUT 

F 

SORT 

PAT  63 

F 

SORT 

PAY02 

F 

SORT 

PDBC 

F 

SORT 

PDY3A 

F 

SORT 

STORE 

F 

SORT 

SYMYRT 

F 

SORT 

HTSCK 

F 

SORT 

TBURN 

t 

I 

Rocket  burn  Initiation  tlae  on  foraard 

/GENF  /<  A98)  E3'JA3 

I 

TBURN 

b 

trajectory  Ltd} 

MOOELA 

I 

TBURN 

PROPB 

0 

TBURN 

PROP  I N 

M 

TBURN 

TIME 

t 

I 

Tia*  (elapsed) 

/GENF  /(  A93 ) A0ICB3 

0 

TIME 

AST3 

I 

time 

BNTG 

M 

TIME 

COM3 

1 

time 

0TF3 

I 

TIME 

ENVPRM 

I 

time 

E0UA3 

K 

time 

FNT6 

n 

TIME 

MOOELA 

I 

TIME 

OUT 

I 

TIME 

POBC 

I 

Time 

PfiOPIN 

I 

TIME 

REU3 

M 

time 

RKTA3A 

M 

tt 

RKTB3A 

n 

TT 

YREF3 

M 

TIME 

TPRP 

U 

Burn  tlae 

/MOOELA/(*  ) MOOELA 

w 

TPRP 

8 NOV  72  G.01-A6 


SG3 


FORTRAN 

symbol 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


SUBROUTINE 

subfi  code 


Untriaeed  aero. lift 


1 Relative  velocity 


< FT/SEC  > /STATE3A 


5HO > 3L3  I ULFT 
PlODELA  I ULFT 
VT  * ULFT 

1>  ACCEL  I V 
ADI CB3  0 VAR 
ADJUST  R VAR 
ASETB3  0 VAR 
AST3  I VAR 
BL*«  1 V 
BL7  I V 
BL6  I V 
COM3  I VAR 
0ER3A  I V 
DTF3  I V 
ENVPRft  I VAR 
EQUA3  X V 
RODELA  I V 
HODELA  I VAR 
RODELB  I V 
RTX3A  I VAR 
OUT  I V 
OUT  I VAR 
POBC  I V 
POV3A  I V 
REU3  n VAR 


I Relative  velocity 


t FT/SEC)  /ST ATE3/< 


ACCEL  I 
ADICB3  0 
ADJUST  R 
A6ETB3  0 
A5T3  I 
BLN  I 
BLT  1 
BL6  I 
COM3  1 
DER3A  I 
DTF3  I 
ENVPRR  I 
EQUA3  X 
RODELA  1 
ROOELA  I 
MODELS  I 
HTX3A  I 
OUT  1 
OUT  I 
POBC  l 
PDY3*  I 
REU3  R 
RKTA3A  R 
STP3  I 
TOPrt  D 
YREF3  ft 


XKGAft 

k 

ft 

Algebraic 

equal  I o n 

used 

1 n 

vertical 

rise 

and 

/ GENF 

/( 

565  ) 

BLN 

I 

XKG 

> 

pi t cho ver 

RODELA 

n 

XKGAR 

MODELS 

n 

XKGAR 

XKPS 

k . 

n 

Algebraic 

equation 

used 

In 

vert i ca I 

rise 

and 

/GENF 

/( 

566) 

BLN 

I 

XKP 

* 

p i t cho ver 

ROOELA 

R 

XKPS 

RODELA 

1 

XKPSI 

RODELB 

R 

XKPS 

ROOELB 

1 

XKPSI 

XKPSI 

k , 

I 

Algebraic 

equat 1 o n 

used 

in 

vertical 

rise 

and 

/GENF 

/( 

566  ) 

BLN 

I 

XKP 

p i t cho ver 

MOOELA 

ft 

XKPS 

RODELA  I 
ftDDELB  R 
RODELB  I 
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FORTRAN 

SYMBOL 


MATH 

SYMBOL 


mi*  DESCRIPTION 


STORAGE  5U6RSUT I HE  USAGE 

BLOCK  L0C““  SUBfl  CODE  VAR 


U1 


XK1T 


XX3 


XLMAX 
. UN06 - 


"MAX 


1 

First  control  vector  governing  equation  value 

/6ENF 

n 

572) 

BLfiCON 

I 

XX 1 

corresponds  to  error  in  thrust 

FHJ 

0 

XXI 

FH2 

0 

XXI 

FH3 

0 

XX 1 

FH*f 

0 

XXI 

MODELA 

I 

XXI 

1 

Partial  of  governing  equation  art  state  or  control 

/6ENF 

/c 

575  ) 

BL6CQW 

I 

XX1T 

vector  component 

FH1 

0 

XX  IT 

FH2 

0 

XX1T 

FH3 

n 

XX  IT 

FHR 

0 

XX1T 

HODELA 

I 

XX  IT 

i 

Third  control  vector  governing  equation  value 

/GENF 

/c 

57*1 

BL2 

0 

1K3 

Corresponds  to  error  in  algebraic  equation 

BL3 

0 

XK3 

Involving  «. 

BLS 

D 

XK3 

BL5 

0 

XK3 

BL6 

0 

XK3 

BL7 

0 

XK3 

BLfl 

0 

XK3 

MODELA 

I 

XK3 

OUT 

I 

XK3 

i 

MmIkubi  aerodynamic  lift  (LBS) 

/ARCDAT/C 

13) 

MODELA 

1 

XLflAX 

0 

File  of  all  output  data 

/. UN06 

/(  5 

) 

BLICO 

0 

, UNO 6 - 

BNDRYC 

0 

. JN06 . 

CRASH 

0 

. UNQ6 . 

FRENCH 

0 

UN06. 

PXDAT  0 . UN06. 

GEINP  0 JNGf>. 
HUNT  0 . UN06. 

INEDIT  0 . 'JNOfc. 

ITERS  0 .UN06. 

HOOELA  0 . UN06 

flOMj  0 . JN06. 

WPSI  0 . UNDB» 

OUT  0 „UHOB, 
PAY02  0 0N06. 

PRINT  0 , UN06. 

PRINTV  0 .UN06. 

PRINTU  0 . UN06 

PRITEO  0 UNOfc 
PR1TVA  0 UN06 . 
PR0P1N  0 . UN06 . 

P ROT  HR  0 UN06 
PfiUTSfl  0 UNQ6 . 
HAWSE  0 .UN06. 

S 0 13W06. 

SOINP  0 UN OS. 
SIZE  0 U NOfc 
S1ZIN  0 UNOfe. 
SJZOUT  0 UN06. 

SOLVE  0 UNO* 
SPLICO  0 UN06. 

SPLIT  0 . UN06- 

SPLYNE  0 UN06. 

SSSP  0 . UN06 

STAU  0 UN06. 

STP1T  0 UNO*. 
SUMDUT  0 . UN06 

TABIN  0 UN06, 

TEST  0 UN06 
VEHBF  0 ,UNO& 
faJTSCH  0 UN06. 

WT VOL  0 . IIN06 
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HODELA 


1. 

SUBR0UT1WF  MOOELA  (ITT.STT) 

NDDELA 

2 C 

THIS  ROUTINE 

CONTROLS  COrtPUT ATION  OF  OECIS10N  VECTOR 

NODELA 

3. 

COFmON/STATE3/ 

STATE30 

9 • 

♦ VAftC 19) 

OVAR 

( 191.VARL  < 99) 

, DVARLC  99  ) 

,Y0( 9 ) 

,SVV(10)  , 

STATE30 

5 

*XL<  9.9) 

. VOP(  20 

,9), YDS  (20,9) 

, COSGAN 

.SINGAPI 

,SAV6P< 15)  , 

STATE30 

6. 

•SINPSl 

.COSPSI 

,$INRH0 

, CDSRHO 

,0  COR  HO 

,QC0RO2  , 

STATE30 

7 

»SVBV  < 9 ),  OnEGA 

, 0REGA2 

, 

STATE30 

8 

• VDV 

, GO V 

,ROV 

,I1DV 

,PDV 

.DDV  , 

STATE30 

9 . 

• UDV 

,VOS 

,GDG 

,RDG 

,POG 

#ODG 

STATE3D 

10. 

* UDG 

,VDR 

, GDR 

,fiOR 

,POR 

,00R 

STATE3D 

11 

•UDR 

, von 

,GOfl 

,WB« 

P Dfl 

, VDP  , 

STATE3D 

12. 

• GDP 

,PDP 

,QOP 

,UDP 

, VDO 

.SOD  . , 

ST  AT £30 

13 

♦ PDO 

, UDQ 

,HTDV 

,HTDR 

5TATE3D 

19 

real  non 

. PlDV.  flOR 

STATE3D 

15 

COnnON/STATE37 

STAU30 

16. 

»5INZH0 

. C052R0 

,C0S2GFt 

STATE30 

17. 

connON  /xcOdes/ 

XCODES* 

18 

• ITO  C 9 ) . 1 COR 

( 20  ), ITI 

, INTB 

, J GI  0(  20, 

2),JPH  120,2), 

XCObES 

19 

•JST  (20) 

,NCNST 

,NSB 

,NSAB 

, NI CNB  , 

XCODES 

20 

• I20P 

,ICDP 

. IF  Alt] 

, IFAR 

, 1 FB 

, I NO  , 

XCODES 

21 

•IOPEN 

,IPH 

,ISPH 

, IS5T 

,1  ARC 

,1  START 

XCODES1 

22 

• ITCT 

.ITER 

, I VAR 

,JK 

,JPS 

,JS  . 

XCODES 

23 

♦ KQP 

-KPST 

,K 

,KST 

,NAO 

,«CAS£ 

XCODES 

29 

• NCN 

, NEOB 

, neb 

,NOP 

.NPH 

XCODES1 

25 

♦ NST 

,IP$T 

. I PR  I NT 

, ISTN 

, IPHN 

,ISTNB 

XCODES 

26 

♦IPHNB 

, I BLK 1 

. 1BLK2 

, ISTOP 

, I STPP 

. 

XCODES 

27. 

• IFOB 

z NB 

• LB 

. HB 

.NPHP 

, NPRB  , 

XCODES 

28 

♦NCTIN 

,NEQF  . 

ILAB(  8). JPRP.JGll  .nTT.PIP INC 20J.JP  1. 

JP2.JP3 

XCODES 

29 

EQUIVALENCE  (VAR(1),V)  , ( VAR< Z > 
♦ < VAR(  5 ).P5I  >.< VAR(6).flH0).( VAR( 

, GAN)  ,1  VAR(3).ALT)  , 
7).nU).(  VAR(  8).HT)  . 

(VAft(9),fl)  , 

E0UV3 

30 

1 VARt  9 ),  502  ), 

EQUV3 

31. 

*(  DVAR(  1 >, 

VD),(OVAR(2),GO),(  DVARC 3 ), HO  ),<  DVAR(  9 >,  P1D 1 . 

t 0VAR1  5 ),  PO  ), 

EQUV3 

32 

»{  OVAR( 6 ) 

OD  ),(  Dtf  AR(  7>„UD),  1 DVAR(  B ).  HTD1.  ( OVAR(  9 ).SBZ 

D) 

E0UV3 

33 

39 

real  n,nu,nD 
CO  11*0  N/ GENF/ 

EQUV3 

GENF 

35. 

♦ 0RG(2O) 

,0«GP(20,2>,VHRO(  9)> 

,TOL(  9 ) 

S V AR(  10  ) 

U0C120) 

GENF 

36 

• A(  9,9 ) 

, ACONt  9 ) ,BCQN(9> 

,COTI(  9,9) 

, DCONC  9 ) 

.DTP 

GENF 

37. 

• DTS 

,DT 

,G 

,DPSQ 

, Q 

,0S  . 

GENF 

38 

•R 

, RE 

,NACH 

,PA 

, RO 

cs  , 

6ENF 

39. 

• VNU 

, P AR 

, ROR 

, CSR 

, VNR 

,sunsB 

GENF 

HO 

• SVSfl 

,TIHEPH 

, TINES 

,TOP 

.TOS 

,TR( 9 > , 

6ENF 

HI 

♦ 157(20  ) 

, TPH 

( 20  ),  DISC  20  1 

.01 P( 20 ) 

,T 

GENF 

92 

♦TLPK20) 

.TLS1 

( 20 ) . 02 Pl( 20  ) 

, DI  Sl<  20  ) 

.TINE 

,0«P  , 

GENF 

93 

•TIRPR 

"lift 

,DRAG 

,TAX 

.TBURN 

, TBU(  20  ) , 

GENF 

99 

♦ AE 

,FP 

, FPO LD 

, FPD 

, MACHR 

,nACHV  , 

6ENF  ' 

95. 

• QR 

,ov 

,FVAC 

, LIFTV 

GENF 

96 

♦ UFTR 

,UFTA 

ORAGV 

’ ORAGR 

,ORAGA 

,{SPF 

GENF 

97. 

* 

LIFTn 

, DBR 

,DB 

,ISP 

GENF 

98. 

♦ 

ULFT 

, ULFT V 

, ULFTR 

ULFT  A 

GENF 

99 

•xnce 

.xncGv 

, XflCGR 

, XRCGA 

, XP1CGN 

,COOAE  , 

GENF 

50. 

♦CULFT 

,CT 

, calpha 

, CDE 

.OELTAE 

,S10 

GENF 

51. 

• COO 

S10AE 

,XC6 

, ZCG 

GENF 

52 

connow  / 

GENF  / 

GENF 

53 

♦ XJV 

. XJR 
, 1RATED 

, GH 

, GAflrtAD 

, XKG 

, XKP  , 

GENF 

59 

•FRATEO 

GENF 

55. 

•PI 

,P3 

, XKl 

. XX2 

,XK3  , 

GENF 

56 

• XK1T 

. XX2T 

,XK3T 

, XK1D 

. XK2D 

, XK30  , 

GENF 

57 

♦ XKl  A 

, XK2A 

, XK3  A 

,XK1V 

, XK2V 

, XK3V 

GENF 

58 

• XK1G 

, XK26 

,XK3G 

, XK1P 

. XK2P 

, XK3P  , 

GENF 

59 

• XK1R 

, XK2R 

, XK3R 

, XK10 

, XK20 

, XK30 

GENF 

60 

♦ XKl  U 

, XK2  U 

-XK3U 

,XKin 

, XK2rt 

XK3H  , 

GENF 

61 

♦PV 

,PG 

.PP 

.PR 

,P0 

,OPDV( 3,8) 

GENF 

62 

REAL  LIFTR  ( LIFT  . LlFTA. LIFTS  . 

NACH, 

flACHR, 

GENF 

63 

♦ ISP.  I5PF.  flACHV 

.LIFTV  . 1 RATED 

FRAT 

69 

DIMENSION 

TPHK  lO).TSTl(iO) 

GENF 

65 

E0UIVALENCE(TLP1, 

TPH1 MTLSl.TSTl) 

GENF 

66. 

CQilflDN/ ARCDAT/ 

ARCDAT 

67 

♦5REF 

,XISP 

,TMULT 

.OTNC 

,0TP1 

ARCDAT 

68 

♦ I AT« 

,I«ODE 

,JAER 

, JPRO 

QNAX 

, GRAX  , 

AfiCQAT 

69 

•XLHAX 

■HOflAX 

,6PI0DT 

, ALFWAX 

, PHNAX 

,NAEA  , 

ARCDAT 

70 

• PIAEB 

,HAEC 

,«AED 

,PJAEE 

.PlAEF 

.NAE6  , 

ARCDAT 

71 

♦ PIT 

,nI5P 

,RXCG 

,MZCG 

rUJD  A 

,NWDB 

ARCDAT 

72. 

• P1DB 

, XCGR 

,2CGR 

,XE 

,ZE 

, XT 

ARCDAT 

73 

♦ OREF 

,ncNo 

, BMOB 

, OHULT 

RENAX 

ARCDAT 

79 

♦ .FRATE 
OIPIENSION 

, ARCD(9 

1 

RETAP 

75 

ARCDAI 

90) 

ARCDAT 
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99 

*TZ, 

VV(  3), 

QP(  19), 

EfiOR, 

PZ(  5 >, 

va,  swuoi. 

SIZING 

95. 

*$  V(  28  ) . 

5Q( 37.5  ) 

SE( 11 ). 

TLAT. 

TLNG, 

SIZING 

96.  C 

PHASE  I SIZING  PARAMETERS 

SIZING 

97 

*UBO, 

ULOO, 

DUEB, 

OUEO, 

TOLUT, 

UPB.  TURftTZ, 

SIZING 

98 

*BK1, 

BK2, 

BK3, 

B<9, 

ISIZE, 

TRAFL6,  TuflftTO , 

SIZING 

99 

■ OKI. 

QK2. 

0K3, 

0K9, 

PRFLG, 

iprss,  ipsnft*. 

SIZING 

100 

■ AEXIT 

T VACO . 

NO, 

UFO, 

IDVEL, 

ISPO,  ISPB, 

SIZING 

101. 

■ XPL, 

TVACB, 

NNB, 

UEO, 

UEB, 

UO,  HLO, 

SIZING 

102. 

■OVO, 

DVB, 

MUB, 

MUO, 

VSTG, 

ufo 

SIZING 

103. 

*, JTYP, 

BECO  , 

BST6  . 

ORftI , 

1TNBU  . ITNOU 

SIZING 

109. 

■ SVDPSO 

. svoc6n 

>IHUNI 

, I0P5T  S 

ISZOC 19) 

UH 

105. 

COMMON/ DAT  A/ 

DATA 

106. 

*P1 

.RAD 

,ROI 

,SC 

,U«F 

,TflPF  , 

DATA 

107 

♦ FINN 

, CAR 

. J0P1 

, J0P2 

, J0P3 

, J0P9 

DATA 

u> 

n . 

76 
79 
80. 
81 
82 
83 
8 9 

85. 

86. 

87 

88 

89. 

90. 

91. 

92. 

93. 


108 

109. 

110 

111. 


E0UIVALENCE(  5REF, ARCDA 1 
C0mmqn/aeC03/ 

•APttO  APHR 

■51 NA  ,C0SA 

■C05FHI  , GDPH 

• CDOM  ,CL0 

*CM  ,C«A 

• CLAM  ,CL 

*CD  CDA 

COMMON/ GLOBAL/ 

*6R  , EB 

• ,JJOP<  10)  , I FATAL 
*,KTAB{20),lT  AB{  20  ) 

• , GM  , PSIRF, IPFLGl, 

*, ITPSO  , K5QL  , KGLOBLC 8 ) 

REAL  rtUB,  cnuo,  ISPB,  1SP0, 
COMMON  /sizing/ 

PHASE  II  SIZING  PARAMERERS 


ARCDAT 

AEC03 


.ALPHA 

, VDA 

, GO  A 

, P 0 A 

AEC03 

,PHIO 

,PH1D 

,PHI 

, SI NPHI 

AEC03 

,PDPH 

, XLA«A( 9 ) 

XLAMPt 9 ) 

,C00 

* 

AEC03 

,FK 

, XCGN 

,ZCGM 

, CLCM 

AEC03 

fCMAM  , 
, CLA 

. con 

DMA  ,CMO 
,CL* 

,cnon 

/ 

,FKH 

1 

AEC03 

AEC03 

AEC03 

GLOBAL 

.0M6Z 

, XLAMRF 

, YMURF 

,lum 

GLOBAL 

, NARC 
>1G  , 

, NBR AN 
MAXTAB 

, NFARC 

,10(9) 

GLOBAL 

GLOBAL 

IPFLS2,  I PFLG3,  I PFL69,  INEOFLI 20 ) 
I0VEL,NNB,N0 


GLOBAL 

RETAP 

SIZING 

SIZING 

SIZING 


t * u Jin. I u^dv  a t i 

EQUIVALENCE  ( I NEQFL< 20  ), INQF >, t XXPS , XKP ),  ( XKSAM, XKG > 
EQUIVALENCE  (XKPSI.XKP) 

I SOLUTION  TRAJECTORY  TEST 


P019 

MOOELA 

10 

MODELA 


112. 

113. 

119 

C 

1F<  ITER.E8.3)  SO  TO  3*10 
II  SET  UP  PROPULSION  CODE 
IF( JPRP-2  1 30,10,20 

MODELA 

nOOELA 

MOOELA 

390- 

20-, 

1 L 5 

to 

TPRP  = TIME  - TBURN 

MOOELA 

116. 

JPl  - 2 

MODELA 

117. 

GO  TO  90 

MOOELA 

90— | 

' 

' 1 

118. 

20 

TPRP  s TIME  -TBURN 

MOOELA 

119. 

IF<  TPRP  6T  0>  GO  TO  *0 

MOOELA 

90  — 

120. 

JIN  =0 

MOOELA 

121. 

JPl  = 2 

MODELA 

122 

GO  TO  90 

MODELA 

90— 

123 

30 

IFtJPRO  NE  2)  JPl=l 

COMN 

129. 

90 

CONTINUE 

MOOELA 

— 

125. 

C 

IV  TEST  FOR  OPTICAL  CONTROL 

MOOELA 

■ 

126 

50 

I FC  J SI  I GT  10)  GO  TO  130 

MODELA 

130- 

127 

C 

V COrlPUTE  NDN-OPT I flAL  CONTROL 

rtODELA 

128 

GO  T0( 60,60,60,999,999,70,80,100), JGII 

MODELA 

,‘0-i 

»“l 

80— | 

129 

60 

CALL  GUI  0 

MODELA 



130. 

ALPHA=APHR*RDI 

P01A 

131 

CALPHA=ALPHA 

PO 1 9 

132. 

phi=phid*rdi 

PO 19 

133- 

SINPHI=S1K( PHI ) 

P019 

139. 

COSPHI=COS(PHI ) 

P019 

135 

GO  TO  110 

MODELA 

136 

70 

APHR  = 0 

MODELA 

137. 

ALPHA-  0 

MODELA 

138. 

PHI = 0. 

MODELA 

139. 

CALPHA=0 

P019 

190. 

PKI0=0. 

P019 

191. 

SINPHI=0. 

PO 19 

192. 

C0SPHI=1. 

P019 

193. 

GO  TO  110 

MOOELA 

199 

C 

V-A  GRAVITY  TURN 

MODELA 

195 

80 

JP3  - 6 

MODELA 

196 

90 

CALL  BLGCONt JP1,JP2,JP3) 

MODELA 

n 

‘ 
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147.  PHID=PM»RAD 

146  GO  TO  2*0 

m C V-B  VERTICAL  RI5E 


Hh 

165 

166 

167 

168 


181 

182 


183 

18* 


196 

197 

198 
1 99 
200 
201 


202 


203 
20  4 


OR  PITCHOVEfl 


P014 

MODELA 

MOOELA 


150.  100  JP3^4  MODELA 

151  XXPS  =S1NRH0*51NP$ I *( fi*OCORB2+V*V*C0SGAH*COSGAn/(  fi*CO$RHG  > ) ♦ MOOELA 

152  l 2 *V*( QnGZ*5lNRH0*CeSGAn-QCQRHB*  COSPSI*  SINGAM1  MOOELA 

153  XKGAM  = 0C0RHQ*t2.*V*SlNPSI+  R*ORGZ  *i  COSRHG*CD$SAM+  SINRH0*C05PSI  MODELA 

154  1*SINGAM>)  + C0S6AM*<  V*V/R-  G>-  V*RDI*GflDOT  MODELA 

155.  D*  5QRT(  XXGAn*XKGAR  ♦ XKPS*XKPS)  MODELA 

156  51NPHI  = SlGNll  ,XKSAM)*  XKPSI/D  JULY28 

157  C0$PH1=  ABS(XKGAft)/  0 MODELA 

156  PHl  = ATAN2J SI NPHI , COSPHI  ) MOOELA 

159  S I N2R0=  2 *SINRHO*  CQSftHO  MODELA 

160  C0S2R0  = ( COSRHO  +S 1 NRHO )•( COSRHQ-S I NRHQ ) RODELA 

161  C0S2GH  COSGArt  -$INSAfl)*(  COSGAM  + SINGAH)  MODELA 

162  GO  TO  90  PIGDELA 

163  C V-C  TEST  FOR  ALFMAX  ON  A NON-OPTIJ1AL  CONTROL  MODE  MODELA 


no  J P 3=  2 

IF< ALFMAX. EQ  0)  GO  TO  120 

I F(  A&St APHfi  ) GT  ALFMAX JAPHR  = S 1 GN( ALFMAX, APHR  1 

CALPHA  = APHR»RDI 

ALPHA=CALPHA 


169  120  CALL  BL6CCN( JP 1 , JP2. JP3 ) 

170  GO  TO  170 

171  C VI  ON  AN  OPTIMAL  CONTROL  NODE 

172  C VI -A  TEST  WHETHER  OLD  DATA  IS  REQUIRED 


173  130  IF(  TIME  EQ.STT  AND.K  EQ  1 AND. ITT .EQ. I ARC)  GO  TO  140 

174  CALL  6ETJT 

175.  C VI -B  CONFUTE  CONTROL 

176  CALL  nTXl 

177  ALFS  A V=AP  HR 

178  P HI  $ AV=P  HI D 

179  GO  TO  142 

180  C VIC  TEST  FOR  ALFMAX 


140  APHR=ALFSAV 
PHI 0-PH1SAV 


142  IFt  ALFMAX  EQ.O.)  GO  TO  150 
IF(ABSCAPHR)  ST  ALFMAX)  APHR 


SI SN( ALFMAX, APHR 1 


185  ISO  CALPHA?  APHfl*RD I 

186.  ALPHA=CALPHA 

187.  PHI =PHI 0*RDI 

188  S!NPHI=  SIN<PHI > 

189.  CQ$PHI=  COSIPHI ) 

190  JP3  *2 

191  160  CALL  BLGC0N(JP1,JP2,JP3) 

192  C VII  TEST  FOR  STATE  INEQUALITIES 


193  170  IfCINQF  EQ  0)  GO  TO  290 

194  IFdNOF-8)  180.190.200 

195  C V 1 1 - A TEST  FOR  BNORY  QN 


DVN  PRES. 


180  CALL  BL7000 
GO  TO  210 

C VII-B  TEST  FOR  BNORY  ON  HEAT  RATE 


190  CALL  BL800Q 
GO  TO  210 

C Vll-c  TEST  FOR 


BNORY  ON  REY  NO 


200  CALL  BL9000 


210  I F( XK3  ) 220,230.230 
C VI 1-0  HAS  LEFT  BNDRV 


205  220  INQF  =0 

206  JP3=  2 

207  60  TO  240 

208  C V1I-E  STILL  ON 


BNORY. 


209  230  JP3  = I NQF 

210  IF( ALP HA* COSPHI . GE.O.  ) GO  TO  232 

2 1 1 ALPHAS  I GN(  2 , C05P HI  ) 


212  23 2 CONTINUE 

213  CALL  BLGCON< JP1,JP2,JP3) 

214  C VII-F  TEST  FOR  ALFMAX 


MODELA 

MODELA 

MODELA 

MODELA 

P014 


MODELA 

MODELA 

nODELA 

tlODELA 


MODELA 

MODELA 

MODELA 

MODELA 

APR27 

APR27 

APR27 

MOOELA 


[Thc— — i 


APR27 

APR27 


APR27 

MOOELA 


MOOELA 

PO  14 

MODELA 

tlODELA 

FIODELA 

MODELA 

MOOELA 

MOOELA 


MOOELA 

MOOELA 

MOOELA 


MOOELA 

MOOELA 

MOOELA 


MDDELA 

nODELA 

MOOELA 


MOOELA 

MOOELA 


MOOELA 

MOOELA 

MOOELA 

MOOELA 


MODELA 

APA27 

APR27 


APR27 

MOOELA 

MOOELA 


24C-i 


17G 


142— 

Yso—^ 


3 


leo— i iso-1 : 


3 


210— » 


210 — ) 


230-i 


240- 


‘3 
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I Ft  ALFMftX  60  0 ) GO  TO  290 
APHR-  ALPHA*RAD 

IFt ABSt APHR)  LE  ALFMAX ) GO  TO  290 

APHfi  = SIGNt ALFMAX, APHR J 

CALPHA  = ARHfURDI 

ALPHA^CALPHA 

JP3  -Z 

CALL  BLGCONt JP1,JP2,JP3> 

C VIII  TEST  FOR  ACCEL  LlUlT 

2H0  I Ft  GNAX  EO .0. > GO  TQ  320 
IFtJPRP  - 2)  250.270,270 

C VUI-A  UNPQUEREP  ACCELERATION  LIMIT  TEST 
250  CALL  BL5000 

IFt  XX3  > 320,320,260 

260  JP3  =5 

GO  TO  310 

C V11I-B  POWERED  ACCELERATION  LIMIT 


270  iFtJlH.GT  0)  60  TO  320 
CALL  FM3000 

IF(XKl)  320,320,280 

280  CALL  FH3001 

IFtXKIT.LT  0. > GO  TO  320 
JIN=1 

WRITEt 6,285)  TIME 

285  FOR  FIAT  ( 2X,92H»**H1T  POWERED  ACCELERATION  LIMIT  AT  TI«E=  FIO  A) 

JP1  = 3 
GO  TO  310 

C IX TEST  OF  LIFT  LI  BIT 

290  IFtXLMAX  EO  0 ) SO  TO  290 
CULFI =SI 6N( XLMAX.ULFT ) 

CALL  BL3000 

IFt  XK3  1 290,290,300 

300  JP3  = 3 

C i X-A  COMPUTE  CONTROL  FOR  LIFT  LIMIT 

CALL  BLGCONt JP1,JP2,JP3> 

GO  TO  290 

C X FINAL  CLEANUP ] 

310  CALL  BLGCONt JPltJP2,JP3> 

C XI  DERIVATIVE  fcOBPUTATIOXS 

320  CONTINUE 

APHR=ALPHA*RAO 

IFt  ABSt  APHR)  GT  290  .OR. ABSt  VARt  2 ) ) . GT  7.)  1ST  ART  =6 

IFt  VAR< 1)  LT  0 ) 1ST ART=6 

IFt ABSt VARt 5))  GE.I.)  I START:* 

IFt  JK . NE .2  ) 60  TO  330 
CALL  CORVAR 

RETURN 

330  CALL  OER 
RETURN 

C XII  SOLUTION  TRAJECTORY  LOGIC 

390  IFtTlME.EO  STT  AND. It  £0 . 1 .AND.  ITT  EQ.  I ARC  > GO  TO  360 
CALL  GETIT 

IFt  JP3 .NE  9)  GO  TO  350 

XKPS  “SlNRHO*SINPSUt  R*DC0BO2+V*V»C05GAt1*COSGArt/(  R*COSRHO  ) ) + 

1 2 *V*t  OflGl*Sl  NRH0*C0SGAM-3CQRH0*  C0SP5I*  5 I NGAM) 

XKGArt  = 0C8RHG*t  2 *V*SINPSI+  R*QM6Z  *t COSRHO*COSGArt+  SI NRHQ*C0SPS1 
1*51 NSAM ) ) + COSGAM*( V*V/R-  G)-  V*RDl*GMDOT 
0=  SOKTt XKSAM*XKGAfl  + XKPS*X«PS> 

SI  HP HI  - SIGNt 1 , XK  G AM  )*  XKP5I/D 
C05PHI = ABSt  XKGAM  )/  0 
PHI=  ATAN2<  SI NPHJ , C05PHI  ) 

PHID  =■  PHI  *R AD 

CO52R0=( C05RH0  - 51 NRHO  )*( COSRHO  + SINRHO) 

SIN2R0=  2 *$1NRH0*CQSRHD 

C0S2GM  =t  C0S5AM  -Si NGAM)* ( COS GAM  + SINGAM) 

GO  TO  360 

350  PHI  = PHI D*R0I 

SINPHI  = SINtPHI ) 

COSPHI  s COSt  PKI ) 


320- 

250- 

ri 

260— | 

320 

310 

MODELA 
MODELA 
MOOELA  280- 

APR27  * 

APR2T 

APR27 

P019 

P018 

MOOELA 

MOOELA  310- 

WODELA 

MOOELA  * 

PO 19 
MOOELA 
MOOELA  3 00- 


MOOELA 

MOOELA 

MODELA  350 

MODELA 

MOOELA 

MOOELA 

MOOELA 

MOOELA 

JULV28 

MODELA 

MOOELA 

MQOELA 

MODELA 

MOOELA 

MODELA 

MOOELA 
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CftLPHU  = BPHR.ROJ 

ftlPHA^taiPHA 

360  CALL  SLSCONi JP1,JPZ,JP3> 

IF(  B3StBPHR).6T-2H0.  . GR . ABS(  VAR<  2)).GT.7.)  ISTAfiT  =6 
JF(  VBRt  1J.LT.O.)  ISTflRT=i 
IF(B8SCVBR(5}).GE.7.>  15TART=6 

Call  der 
C»ll  SOER 

IF( JTVP.Ea.Z)  CALL  ERVPRR 

Return 

090  cull  sipitui 
Eva 
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SUBR0UT INE 
M0DELB 


Subroutine  MODELB 


Entry  MODklh 


Purpose 

Subroutine  MODELB  governs  the  computation  of  the  adjoint  coefficients 
(partial  derivatives)  during  the  backward  adjoint  integration. 

Description 

Subroutine  MODELB  performs  a similar  function  to  MODELA  with  the  major 
exception  that  control  bounding  during  the  adjoint  integration  is  determined 
by  stored  values  of  JP1  and  JP3,  rather  than  by  inequality  testing.  MODELB 
is  called  from  BNTG. 


512. 


F OR  T R AIJ 
SYMBOL 


MAI  H 
SYMBOL 


COOL 


DESCRIPTION 


5 TQRAGF 


BLOCK 


LOC 


SUBROUTINE  USRSE 
SU8R  CODE  VAR 


ALFMAX  <3,  I Niilaua  angle  of  attack 

MAX 

ALPHA  o,  0 Angle  of  attack 

APHR  <x  1 Angle  of  attack 

CALPHA  M Constant  value  of  ang 1 e-of - attack 

COSGAM  cos(?)  I See  symbol 


C0SPH1  cos^  M See  symbol 


C0SPS1  c 0 s ( 'i'  ) 1 See  symbol 


COSHHO  COs(p)  I See  symbol 


C0S2GM  c 0 s(  2>  ) o See  symbol 

C0S2R0  C0S(2p)  0 See  symbol 


(DEG) 

/ARCDAT/( 

16) 

1NBVA0 

M 

alfmax 

MOCELA 

I 

alfmax 

MODELS 

1 

alfmax 

(RAO) 

/AEC03  /( 

3) 

BEROCO 

1 

alpha 

BLGCON 

M 

ALPHA' 

BL2 

1 

ALPHA 

FNTG 

0 

alpha 

MAMECO 

I 

ALPHA 

MODELA 

n 

alpha 

MODELB 

0 

alpha 

REU3 

0 

alpha 

VT 

i 

alpha 

( DEG  ) 

/AEC03  /( 

2 ) 

ASETB3 

0 

APHR 

AST3 

M 

APHR 

BEROCO 

i 

APHR 

SLGCON 

0 

APHR 

GUI3A 

M 

APHR 

MODELA 

M 

APHR 

MODELB 

1 

APHR 

MTX3A 

0 

APHR 

OUT 

I 

APHR 

(RAO  > 

/GENF  /( 

552) 

BL2 

1 

CALPHA 

MODELA 

m 

CALPHA 

MODELB 

M 

CALPHA 

/STATE3/{ 

687  ) 

ACCEL 

I 

COSGAM 

BLR 

1 

COSGAM 

BL8 

I 

COSGAM 

DER3A 

I 

COSGAM 

E0UA3 

0 

CDS  GAM 

MODELA 

I 

COSGAM 

MODELB 

i 

COSGAM 

OUT 

i 

COSGAM 

PDBC 

i 

COSGAM 

PDY3A 

i 

COSGAM 

/AEC03  /( 

13) 

ACCEL 

i 

COSPHI 

BLH 

I 

COSPHI 

GUI3A 

M 

COSPHI 

MODELA 

M 

COSPHI 

MODELB 

M 

COSPHI 

OUT 

I 

COSPHI 

/STATE3/C 

705  ) 

BLR 

1 

C05PSI 

BLT 

1 

COSPSI 

BL8 

I 

COSPSI 

DER3A 

I 

COSPSI 

E0UA3 

0 

COSPSI 

MODELA 

I 

COSPSI 

MODELB 

I 

COSPSI 

POBC 

I 

COSPSI 

PDY3A 

I 

COSPSI 

/STATE3/I 

707  ) 

BLR 

1 

COSRKO 

BL7 

I 

COSRHD 

BL8 

I 

COSRHO 

DER3A 

I 

COSfiHO 

E0UA3 

M 

COSRHO 

MODELA 

I 

COSfiHO 

MODELS 

I 

COSfiHO 

OUT 

I 

COSRHO 

PDBC 

I 

COSRHO 

PDY3A 

1 

COSRHO 

/ST  AT  £3/( 

757  ) 

MODELA 

0 

C052GM 

MODELB 

0 

C0S2SM 

/STATE3/( 

756  ) 

BLR 

I 

COS2R0 

BL7 

M 

C0S2R3 

BL8 

M 

C0S2SD 

MODELA 

0 

CDS2R0 

MODELB 

0 

C052R0 

5j3 
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E0R1RAN  HATH  „n„. 

SYMBOL  SYMBOL  CD0E 


DESCRIPTION 


STORAGE  SUBROUTINE  USASE 
BLOCK  LOC  SUBR  CODE  VAR 


I Gr iv I i at t o n 1 I attraction 


I Pitch  rat* 


I Control  option 


I Option  flag  for  first  governing  equation 

I Option  flag  for  second  governing  equation 
I Option  flag  for  third  governing  equation 


OCORHO  w*C0SRHQ  1 See  Syabo  I 


OCOROZ  oix  OCORHO  1 s"  symbol 


I Earth  rotation  rate 


Pi  Bank  angle 


301  1 

BLR 

I 

G 

8L7 

1 

G 

B L £ 

I 

G 

OER3A 

I 

G 

EQUA3 

n 

G 

MODELA 

I 

G 

mOCELB 

i 

G 

POV3A 

I 

G 

S0ER3 

I 

G 

S01NP 

N 

6 

15) 

DER3A 

I 

GMDOT 

MODELA 

1 

smdot 

nOOELB 

I 

GMDOT 

PfiOPB 

I 

GMGOT 

PROP  1 N 

I 

GMDOT 

195) 

ACCEL 

I 

JGI1 

BNTG 

0 

JG1I 

0ER3A 

I 

JG1I 

FNTG 

n 

JGII 

GUI3A 

I 

JGII 

MODELA 

i 

JGII 

MOOELB 

i 

JGII 

MTX3A 

i 

JGII 

P0V3A 

i 

J 81  i 

217) 

AGETB3 

n 

JP1 

AST3 

n 

JP1 

MODELA 

n 

JP1 

MOOELB 

i 

JP1 

PROPS 

Q 

JPl 

PROPIN 

0 

JP1 

218) 

MODELA 

I 

JP2 

MODELS 

I 

JP2 

PROPB 

0 

JP2 

PROPIN 

0 

JP2 

219) 

AGET63 

0 

JP3 

AST3 

n 

JP3 

MODELA 

n 

JP3 

MOOELB 

I 

JP3 

OUT 

1 

JP3 

PROPIN 

0 

JP3 

70S) 

DER3A 

I 

OCORHO 

EBUA3 

n 

OCORHO 

MOOELA 

l 

OCORHO 

MOOELB 

I 

OCORHO 

POBC 

i 

OCORHO 

PDY3A 

i 

OCORHO 

709) 

0ER3A 

i 

0C0R02 

EQUA3 

0 

QCDR02 

MOOELA 

1 

0C0R02 

MOOELB 

.1 

OCORD2 

PDY3A 

I 

OCOR02 

3) 

A0ID3A 

I 

OMSZ 

CRASH 

1 

omega 

DER3A 

omgz 

E3UA3 

I 

OMGZ 

GEINP 

I 

■ OMGZ 

MOOELA 

! 

OMGZ 

MOOELB 

I 

OMGZ 

P DBC 

I 

OMGZ 

PDY3A 

1 

OMGZ 

SD1NP 

I 

OMGZ 

TOPM 

I 

OMGZ 

11 ) 

GUI3A 

n 

PH1R 

MODELA 

n 

PHI 

MOOELB 

M 

PHI 

OUT 

I 

PHI 

SSA 
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DESCRIPTION 


STORAGE 
BLOCK  LOL 


S UBR  COOE 


I Bank  angle 


(DEG)  / AECD3  /( 


I Angle  to  radian  conversion,  01715329252 


/DATA  /< 


/ST  ATE3/C 


/AEC03  /( 


/•STATE3/( 


I See  synbol 


/STATE3/I 


S I n(  Zp  ) 


0 See  sy«bol 


/ST  ATE3/I 


10) 

AGET63 

0 

P HI  0 

AST3 

11 

PHID 

GUI3A 

(1 

PHIO 

HODELA 

fl 

PHID 

raQDELB 

I 

PHID 

DTK3A 

0 

PHIO 

OUT 

I 

PHID 

305) 

BL1 

I 

R 

8L7 

I 

R 

BL8 

I 

R 

DER3A 

I 

R 

EQUA3 

(1 

R 

HODELA 

I 

R 

flODELB 

I 

R 

PDBC 

I 

R 

PDY3A 

I 

R 

TRTOSZ 

I 

R 

3) 

BLICO 

I 

RDI 

DER3A 

I 

RDI 

FNT6 

1 

RDI 

GUI3A 

I 

RDI 

P10DELA 

I 

RDI 

HO  DELB 

I 

RDI 

PADS1 

0 

RDI 

PBOPB 

I 

RDI 

PROPIN 

I 

RDI 

REU3 

I 

RDI 

SDINP 

I 

RDI 

SOPIG 

1 

RDI 

688) 

BL1 

I 

SINGAA 

Bl7 

I 

SINGAA 

BL8 

I 

SINGAA 

DER3A 

I 

SINGAA 

EQUA3 

0 

SINGAA 

HODELA 

I 

SINGAA 

MODELB 

I 

SINGAA 

PDBC 

I 

SINGAA 

PDY3A 

I 

SINGAA 

S DER3 

I 

SINGAA 

12) 

ACCEL 

I 

SINPHI 

8L*t 

I 

S1NPHI 

HODELA 

n 

SINPHI 

HDDELB 

71 

SINPHI 

OUT 

I 

SINPHI 

701 ) 

BL1 

I 

SINPSI 

BL7 

I 

SINPSI 

BL8 

I 

SINPSI 

DER3A 

I 

SINPSI 

E0UA3 

0 

SINPSI 

HOOELA 

I 

SINPSI 

CIOOELB 

1 

SINPSI 

PDBC 

I 

SINPSI 

PDY3A 

I 

SINPSI 

706  ) 

Bli 

I 

SINRHQ 

BL  7 

1 

SINHH3 

Bl8 

I 

SINRHQ 

0ER3A 

I 

SINBHO 

EDUA3 

0 

SINRHQ 

HODELA 

I 

SINRHQ 

HOOELB 

I 

SINRHO 

OUT 

I 

SINRHO 

PDBC 

I 

SINRHO 

PDY3A 

I 

SINRHO 

755) 

bli 

1 

SIN2R0 

BL7 

(1 

SIN2R0 

BL8 

il 

SIN2R0 

HODELA 

0 

SIN2R0 

nOOELB 

0 

SIN2R0 
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MAI  H 
SYMBOL 


DESCRIPTION 


STORAGE 
BLOCK  IOC 


SUBH  CODE 


Square  root  function 


Relative  velocity 


Working  array,  contains  TOPEN1,  T0PEN2,  and  PHIUT 


fl  Algebraic  equation  used  in  vertical  rise  and 
p i t cho ver 

H Algebraic  equation  used  in  vertical  rise  and 
p 1 1 cho  ver 


I Algebraic  equation  used  in  vertical  rise  and 
p i t cho ver 


/SORT 

/(  * 

) ANLATM 

F 

SORT 

CRASH 

F 

SORT 

DCTOE 

F 

SORT 

DER3A 

F 

SORT 

ENVPRM 

F 

SORT 

HUNT 

F 

SORT 

MODELA 

F" 

SORT 

MOOELB 

F 

SORT 

OPUELL 

F 

SOFT 

OUT 

F 

SORT 

P AT  63 

F 

SORT 

P AY02 

F 

SORT 

PDBC 

F 

SORT 

POY3A 

F 

SORT 

STORE 

F 

SORT 

SYMVRT 

F 

SORT 

UTSCH 

F 

SORT 

/STATES/ I 

1)  ACCEL 

I 

V 

A0ICB3 

0 

VAR 

ADJUST 

n 

VAR 

A8ETB3 

0 

VAR 

AST3 

I 

VAR 

BLH 

I 

V 

BLT 

I 

V 

BL8 

I 

V 

CON3 

I 

VAR 

DER3A 

I 

V 

DTF3 

I 

V 

ENVPRfl 

I 

VAR 

EQ  U A3 

I 

V 

DODELA 

I 

V 

MODELA 

I 

VAR 

PIODELB 

J 

V 

MTX3A 

I 

VAR 

OUT 

I 

V 

OUT 

I 

VAR 

POBC 

I 

V 

PDY3A 

I 

V 

REU3 

n 

VAR 

RKTA3A 

a 

Y 

STP3 

i 

VAR 

TOPM 

D 

KUDU 

YREF3 

M 

V 

/STS 

/( 

3)  ADEQ3A 

I 

UORK 

FNTG 

1 

WORK 

PIODELB 

0 

UORK 

MTX3A 

I 

UORK 

SDINP 

n 

UORK 

TEST 

w 

UORK 

/ GENF 

/( 

565  ) BLR 

i 

XKS 

HODELA 

n 

XKQA* 

no  delb 

n 

XKGAM 

/GENE 

/( 

566)  BLH 

i 

XKP 

MODELA 

M 

XKPS 

MODELA 

1 

XKPSI 

MOOELB 

n 

XKPS 

MOOELB 

i 

XKPSI 

/GENF 

/( 

566  ) BL*t 

i 

XKP 

MODELA 

m 

XKPS 

MODELA 

i 

XKPSI 

MOOELB 

pi 

XKPS 

MODELB 

i 

XKPSI 
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5J.6 


nOOELB 


I. 

SU8R0  UT 1 NE  «OOFLB 

RODELB 

2.  C 

THI5 

ROUTINE  CONPUTES  ADJOINT  COEFFICIENTS  ( 

0 SUB  Y . F 

) P50DELB 

3. 

COflMN  /XCODES/ 

XCQOES 

9. 

.ITfl  <9>,IC0R  <201 

, ITI 

,INTB 

,JSI0(20, 

2 1 , JP H (20,2),  XCODES 

5. 

•JST  (20) 

,NCN$T 

,NSB 

,NSAB 

.NICNB 

, XCQOES 

6. 

♦ 120P 

, I COP 

, IFAU 

, IF  AR 

,IFB 

,INO 

, XCODES 

7. 

♦10PEN 

,IPH 

, ISPH 

, I SST 

,1  ARC 

«,  1 5 TART 

, XCODES 

8. 

♦ ITCT 

, ITER 

, I VAR 

, JP5 

/JS 

, XCODES 

9. 

♦ XOP 

,XPST 

,* 

,XST 

, NAD 

,MCASE 

, XCQOES 

10 

♦ NCN 

,NEOB 

,N  EQ 

,NGP 

, NPH 

, XCOUES 

11 

♦ N5T 

.IPST 

, I PRINT 

,ISTN 

, IPHN 

,ISTMB 

, XCODES 

12 

♦IPHNB 

.IBLXI 

,IBLK2 

,ISTOP 

, ISTPP 

/L 

, XCODES 

13 

*1  FOB 

. NB 

.LB 

.MB 

, NPHP 

,NPHB 

, XCODES 

19. 

♦ NCT I N 

. NEQF  .lLAB(8).JPfiP.J6ll .MTT.MPI 

« 20 1,  JP1, 

JPZ, JP3 

XCQOES 

15. 

COMRON/6ENF/ 

6ENF 

16. 

*096(20  ) 

.OflGPC  20,2 

, VAR0( 9 ) 

,TQL( 9 ) 

,SVAR< 10) 

,UDC(20) 

, GENF 

17. 

*A(9_9) 

,ACON< 9) 

,BC0N(9> 

, COTI  ( 9,9) 

,OCON(  9 ) 

,OTP 

, SENF 

18. 

*OTS 

,DT 

,S 

,OPSO 

,Q 

/OS 

, GENF 

19. 

*R 

/RE 

.MACH 

,PA 

,R0 

,cs 

, SENF 

20. 

♦VNU 

.PAR 

,ROR 

,CSfi 

, VNR 

SUrtSO 

, SENF 

21 

♦SVSG 

.TinEPB 

, TIMES 

,TOP 

,TOS 

,TR<  9 ) 

, SENF 

22 

*TST<  20  ) 

,TPH  (201 

,015(20) 

, 01 P( 20  ) 

,T 

, SENF 

23 

♦TLP1C20) 

,TLS1  (201 

, 01P l( 26) 

,0151(20) 

.TIME 

,0rtP 

, GENF 

29. 

♦TlMPR 

.LIFT 

DRAG 

,TAX 

.TBURN 

,TBU( 20 ) 

, SENF 

25 

*AE 

,FP 

,FPGLD 

,FPO 

, RACHR 

, RACHV 

, SENF 

26 

»DR 

/O  v 

,FVAC~ 

LIFTV 

SENF 

27 

♦LIFTR 

.LIFTA 

DRAGV 

,0RA6R 

DRA6A 

/ SENF 

28. 

♦ 

LIFT* 

'dbr 

,DB 

,ISP 

, ISPF 

, SENF 

29. 

* 

ULFT 

,tlLFTV 

, ULFTR 

,ULFTA 

, SENF 

30. 

♦xncs 

.xncsv 

,XNCGR 

XMCGA 

, XrtCGM 

,COOAE 

, SENF 

31. 

*CULFT 

,CT 

, CALP  H A 

, COE 

.DELTAE 

,SIO 

, SENF 

32. 

♦ COD 

.SIDAE 

,XC6 

,2CG 

,xj 

SENF 

33. 

common  / 

GENF  / 

SENF 

39. 

♦ XJV 

,XJR 

,GK 

, SAMMAD 

, XXG 

, XKP 

. 6ENF 

35. 

♦ FRATED 

I RAT  ED 

SENF 

36. 

♦PI 

,P2 

#P3 

XXI 

, XX2 

, XX3 

, GENF 

37. 

♦ XX1T 

,XK2T 

, XK3T 

, XK1D 

, XX2D 

, XK3D 

, SENF 

38. 

♦ XX1A 

z XX2A 

, XK3A 

, XXIV 

, XX2V 

, XX3V 

, GENF 

39 

*XK16 

, XK26 

, XX3G 

,XX1P 

, XX2P 

, XX3P 

, GENF 

90 

* XX1R 

XX2R 

,XX3R 

,XX10 

, XK20 

,XK30 

, 6ENF 

91. 

♦ XKIU 

,XK2U 

, XX3U 

, XK1M 

,XX2M 

, XX3M 

, SENF 

92. 

♦ PV 

.PS 

.PP 

.PR 

,P0 

,OPDY( 3,8  ) 

SENF 

93. 

REAL  LIFTR  , LIFT  . 

LIFTA.LIFTM  , 

HACK, 

rtACHR, 

GENF 

99. 

* ISP.  ISPF.  MACHV.LIFTV  . 1RA1ED 

FRAT 

95. 

DIMENS  ION  TPHH  lOl.TSTHlO) 

6ENF 

96. 

EQU1 VALENCE(TLP1,TPH1 ),CTLSI,TST1 1 

SENF 

97. 

COflflON/DATA/ 

DATA 

98. 

*PI 

.RAO 

,ROI 

,sc 

,UMF 

TflPF 

, OATA 

99. 

♦FTNM 

.CAR 

,JDP1 

, J0P2 

, J0P3 

, J0P9 

OAT  A 

50 

COMMON/ ST ATE3/ 

STATE30 

51. 

*VAR< 19 1 

, DVAR  (191 

, VARL  (99) 

, 0 VARL(  9 9) 

,YD(  9 > 

.S  VY(  10  ) 

, STATE3D 

52. 

*XL<  9,9) 

, YDP( 20,9 ) 

YDS  (20,9) 

C0S6AM 

,SI9SAM 

,SAVBP( 15) 

, STATE30 

53. 

♦S1WPSI 

.COSPSI 

,$INRHO 

, COSRNO 

,0C0RH0 

,0CDR02 

, STATE3D 

59 

♦ SVBV  ( 

91, OMEGA 

,0ME6A2 

5TATE3D 

55. 

♦ VOV 

, 6DV 

,flDY 

'mdv 

,POV 

,00V 

, STATE30 

56. 

• UDV 

, VDG 

, 60S 

,ROG 

,P06 

,006 

, 5TATE30 

57. 

*uos 

, VDR 

,60R 

,MDR 

,PDR 

.DOR 

, STATE3D 

58 

•UOR 

, von 

,6DM 

,MDN 

,PDR 

,YOP 

, STATE30 

59. 

♦ GDP 

,PDP 

.OOP 

.OOP 

,VOO 

,600 

, STATE30 

60. 

♦ POO 

, , uoo 

, HTDV 

,HTDR 

STATE3D 

61. 

real  non 

. MOV.  R0R 

5TATE30 

62. 

C0flft0N/STATE3/ 

STATE30 

63. 

♦SIH2R0 

.COS2R0 

, C052GH 

STATE3D 

69. 

COMMON/ GLOBAL/ 

GLOBAL 

65. 

*6R 

,ER 

,0«GZ 

XLAMRF 

,YM!JRF 

, LUM 

GLOBAL 

66. 

♦.JJOPtlO)  IFATAL 

. WAR  C 

.NBRAN 

, NF  ARC 

,10(9) 

GLOBAL 

67. 

* . XT  ABC  20  ) . I T AB(  20  ) 

SIS  .MAXTAB 

GLOBAL 

68 

*,GM 

.PSIRF.IPFLSl.  IPFLG2 , 1 PF  LS3 

IPFLG9, 1 NE3FL(  20) 

SLOBAL 

69 

*. 1TPS0  . 

K50L  .KSLOBL(B) 

fiETAP 

70 

C0rtn0«/AEC03/ 

AEC03 

71 

♦ APHO 

, APHR 

ALPHA 

,VOA 

, SDA 

,PDA 

, AEC03 

72. 

♦SINA 

. CDS  A 

, PH10 

, PHIO 

,PHI 

.SINPH1 

, AEC03 

73 

♦COSPHI 

.SOPH 

,POPH 

,XLAMA(9> 

, XLAflPC  9 

, CDO 

, AEC03 

79 

♦ CDOft 

/CLO 

,FX 

,XC8M 

,ZCGB 

,CLGM 

, AEC03 

75. 

♦c  n 

,CHA 

,CfiAN  , CHM 

,C«0 

, cues 

,FXM 

, AEC03 
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*CLAM  , CL  ,CLA  . CLM 

*C0  . CDA  , CDR 

EQUIVALENCE  (VARC1),V>  ,(VAR(2),GArt)  , < VAR( 3 >, ALT  1 ,IVAR<**>,H)  , 
*t  VAfit  5>,P51  ),( VARt  6)  RH0  >,{  VAR(  7 ),flU  ),<  VAfi(  S),HT)  , ( VARt  <9  >,S02  >, 
*(OVAR(  1 >,VD).(0VAR(2),B0>,(0VAR(  3 ),H0  ), < OVAfit 9 K MD  >.<  DVARt  5 ),P0  ), 
*{DVARm,QO>,<DVARC7),  U0),<  OVARm,HTO),t  DVARt 9 >, $020 ) 

REAL  H.MU.MD 
co  nno  N/ Aft  CD AT/ 


*$REF 

,EJ 

,X1SP 

,TNULT 

, DTNC 

♦ I ATM 

, I MODE 

. J AER 

,JPRO 

.QMAX 

*XLMAX 

.HOMAX 

, GMOOT 

, ALFMAX 

.PHflAX 

*MAEB 

,MAEC 

, MAED 

,«AEE 

, MAEF 

*MT 

,MISP 

,*XCG 

,HZCG 

,nuoA 

♦ MDB 

. XC6R 

,ICGR 

,XE 

,IE 

*DREF 

,MCND 

,RH0B 

,QmJLT 

, RErtAX 

of MENSIGN  ARCDA( 90) 

E3UI V ALENCEt SREF, ARCOA) 

COrmON/STS/ 

*DP  AY  ,PMIN  .WORK  (20),NUDS  ,IPC  17), NITER 

*MNSA(  20,2 ),MNGP(  20,2)  , AR< 200  ), I ADt 20  ) , I NPt 20 ) . IS V( 20 ) 

EQUIVALENCE  < XKPS, XKP >,( XKGAH. XXG > 

EQUIVALENCE  ( XKPSJ  , XtCP) 

EO  UI VALENCEt INQF, I NEQFU  20 ) > 

ENTRY  MODEL 
CALL  A6ETB 
INQF=JP3 
ILAB( 1)=0 

IFCJPl  EQ.3)  ILAB(I)=| 

CALL  EQUA 
CALPHA  =APHR  *RDI 
ALPHA=CALPHA 
IF(JP3.NE.*»)  60  TO  10 

XKP5  =$JNRHG*SlNPSI*{R*0CORO2+V*V*COSGAM*CGSGAf!/<  R*C05RH0  ) ) + 

I 2,»V*(  O*SZ»SINRHO*COSGAM-0C0RHO*  COSPSI*  SINGAM) 

XKGAfl  = QCORHQ*( 2 *V»SINPSI+  R+OMGZ  *t CO SR  HO* CO 5 6 AM*  SINRHO*COSPSI 
1*SINGAM)>  + COSGAM*(  V*V/R-  8>-  V*RDI*GflDGT 
D=  SQRTt XK6AM*XKGA«  + XKPS*XKPS) 

SINPHI  - SlGNtl  , XK&AM)*  XKPSI/O 
C0$PHJ=  ABS(XKSAM)/  0 
PHI -ATAN2( SINPHI.COSPHI  > 

5IN2R0  = 2.*SINRHO*COSRHO 

COS2RO  = (COSRHO  “SINRHO )*t  COSRHO+  SINRHO) 

C0S2GP1  =(  C0S6AM  -SIN6A«)*t  COSGAfl  + S1N6AM) 

GO  TO  20 


122 

123 

129. 

125 

C 

10 

PHI - PHIO  ♦ RDI 
SINPHI  = SIN(PHI) 

COSPHI  = COS( PHI) 

II  COMPUTE  DECISION  VECTOR 

MQDELB 

MODELS 

MOOELB 

MODELB 

126. 

20 

CALL  BLGCONt JP1,JP2,JP3> 

P019 

127. 

c 

III  COMPUTE  P ART! ALS  OF  DECISION 

VECTOR 

MOOELB 

126 

CALL  BLGCNV<JP1,JP2,JP3) 

MODELB 

129. 

c 

m-A  SET  MULTIPLIER  TO  0 IF  NON-GPT 

CONTROL 

P019 

130 

UGRKt 11  )=1 . 

PQ19 

131 

1 F<  JP3.GT.2)  WORPCCH  )=D. 

P019 

132 

IFtJGII.LE  10)  NORKUD-O. 

APR 

133 

IFt ALFMAX. EQ  0 ) GOTO  30 

APR 

13  9. 

I F ( ABSt APHR  ) GE. ALFMAX)  WORK<11)=0. 

P01A 

IV  COMPUTE 
CALL  PDY 
RETURN 
END 


ADJOINT  COEFFICIENTS 
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SUBR0UT INE 
M0MJ 


519 


FUNCTION  MOMJ 


Entry  MO  MG 
Purpose 

MOMJ  sets  the  internal  stopping  variable  flag  given  the  Input  variable  cod 
Description 

MOMJ  is  called  from  SDINP  during  the  boundary  condition  scan. 


520 
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SUBR0UT INE 
MPSI 


FUNCTION  MPSI 


Purpose 

MPSI  returns  the  internal  constraint  or  payoff  variable  code  given  the  input 
variable  code. 

Description 

MPSI  is  called  mainly  from  SDINP. 


523 


1.  FUNCTION  rtPSICl) 

2.  C 

3.  C SETS  CONSTRAINT  CODE  FROfl  INPUT  CODE 

4 DIMENSION  J(  36  ) 

5-  OATA  ( J<  N>,N=l,36>m,2,3,4,5,6,7,8,l,10,llrt2t13,H,15,16,l7 

6.  118, 19, 20, 21, 22, 23, 24,25,26,27,28, 29,30,31, 32, 33, 34, 35, 36/ 

7.  IF(  X . 6T.36.QR. f -LT. 1 ) 60  TO  tO 

6.  JJ=  J( I ) 

9.  1F<  J J . EQ.99  ) 60  TO  10 

10  HPS1*  JJ 

11  RETURN  


12  10  URITE( 6, 20 1 1 

13.  20  F0RrtAT(3X,|3,30H  IS  AN  ILLEGAL  CONSTRAINT  CODE  1 

14.  APSI=  99 

15.  RETURN 

16.  END 
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SUBR0UT INE 
MTX3A 


525 


Subroutine  MTX3A 


Entry  Points 
MTX  and  MTX1 

Purpose 

MTX  computes  the  TR  vector  during  closed-loop  control.  MTX1  computes 
control  and  parameter  changes  during  forward  trajectory. 

Description 

The  equations  for  calculating  TR  and  the  control  and  parameter  changes  are 
described  in  Sections  12.  1 and  15.  1 of  Volume  I.  MTX3A  entry  points  MTX 
and  MTX1  are  called  from  FNTG,  and  MODEEA  respectively. 


F0R1HAN 

SYPIUOL 


HATH 

SYMBOL 


COOE 


DESCRIPTION 


STORAGE 


BLOLlt 


LOC 


5 UBROU I 1 WE  USAGE 
SUBS  CODE  VAR 


A 

A 

i 

Control  Integral  matrix 

/GENF 

/( 

109  ) 

A0EQ3A 

0 

A 

A01CB3 

n 

A 

8GET3 

0 

A 

BNTG 

I 

A 

BST03 

I 

A 

HTX3A 

1 

A 

PAY02 

1 

A 

SDINP 

I 

A 

TRAN3 

I 

A 

APHO 

« , 

! 

Angle  of  attack  fro#  last  nominal  trajectory 

/ AECQ3 

/{ 

1 ) 

AST3 

PI 

APHO 

o 1 d 

< DEG  ) 

ENTG 

I 

APHD 

DTX3A 

I 

APHO 

OUT 

I 

APHO 

PROPB 

0 

AEIRO 

PROPIN 

0 

AEZRQ 

APHR 

oc 

0 

Angle  of  attack  (DEG) 

/AEC03 

/< 

2) 

AGETB3 

0 

APHR 

AS  T3 

n 

APHR 

BEROCO 

i 

APHR 

BLGCON 

0 

APHR 

• 

GUI  3 A 

n 

APHR 

no  DEL  A 

n 

APHR 

(90  DELB 

i 

APHR 

P1TX3A 

0 

APHR 

OUT 

! 

APHR 

B 

n 

Te*p  storage  for  a oatr i x also  called  B matrix 

/GENF 

/{ 

208  ) 

ADICB3 

pi 

CQT1 

P1TX3  A 

n 

B 

TRAN3 

n 

C0T1 

DALP 

5ot 

Ul 

Angle  of  attack  correction 

/P1TX3A 

/(  * 

) 

P1TX3A 

u 

DALP 

□ CON 

d* 

I 

Asked  for  correction  In  constraint  misses  and 

/GENF 

/( 

289) 

C0N3 

0 

DCON 

payoff  vector 

HTX3A 

i 

OCON 

PAY02  « DCON 
TEST  PI  DCON 
TOPPI  I DCON 
TRTOSZ  I DCON 


DP  AR 

Sp 

n 

Adjustable  parameter  corrections 

/PARAM  /< 

269  > 

ADJUST 

I 

OPAR 

P1TX3A 

n 

OPAR 

TOPPI 

D 

OPAR 

DPH1 

5«> 

Ul 

Bank  angle  correction 

/P1TX3A  /(* 

) 

PIT  X3A 

U 

OPHI 

IND 

I 

Flag  indicates  whether  on  first  nominal  trajectory 

/XCODES/t 

191  ) 

AST3 

I 

I NO 

( IND=1  ) 

BGET3 

I 

I NO 

FNTG 

n 

IND 

GUI3A 

i 

IND 

I9TX3A 

i 

I NO 

PROPIN 

i 

IND 

J 51 1 

1 

Control  option 

/XCOOES/( 

195  1 

ACCEL 

i 

J SI  I 

BNTG 

0 

JG1I 

0ER3A 

i 

J SI  I 

FNTG 

pi 

J G 1 1 

GU13A 

i 

JG11 

P100ELA 

i 

JGU 

PIOOELB 

i 

JG11 

P1TX3A 

i 

JGII 

PDY3A 

i 

JGII 

NCN 

I 

Number  of  elements  In  d$ 

/XCODES/t 

160  ) 

A0E03A 

i 

NCN 

AD1CB3 

i 

NCN 

ADIC3A 

i 

NCN 

AD1D3A 

i 

NCN 

ADJUST 

i 

NCN 

AST3 

rt 

NCN 

BNTG 

I 

NCN 

BST03 

I 

NCN 

P1TX3A 

I 

NCN 

OUT 

I 

NCN 

PAY02 

PI 

NCN 

TEST 

n 

NCN 

TOPPI 

I 

NCN 

TRAN3 

I 

NCN 

TRTOSZ 

I 

NCN 
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rs. 


►OHIHflN 

symbol 


NEQ 


NP  A 


NPARA 


PHID 


PHIO 

RAD 


SPARB 


S2INV 


TR 


MAIM 

SYMBOL 


o t A 


[SS] 


«oe  DESCRIPTION 


I Number  of  Integrated  itatts 


I Running  count  of  number  of  adjustable  par  aneters  to 
be  perturbed  on  remainder  of  trajectory 


I Number  of  adjustable  parameters  in  trajectory 
problem. 


0 Bank  angle  < DEG ) 

1 Bank  angle  from  last  nominal  trajectory 
I Radian  to  angle  conversion,  5T. 29577951 


I fiatrix  of  adjustable  parameter  sensitivities. 

(Contains  only  elements  corresponding  to  parameters 
yet  to  be  adjusted) 

H Parameter  sensitivity  contribution  to  A matrix 


n Vector  modifier  of  itpulse  response  function  in 
control  calculation 


STORAGE 

S URRSUT  INE 

-USAGI 

BLOCK  LOC 

SUBR  CODE 

VAR 

/ XCDOES / ( 

162  ) 

AD1C63 

I 

NEO 

ADI C3A 

I 

NEO 

AD  I 03 A 

I 

NEO 

AGETB3 

I 

NEO 

AST  3 

I 

NEQ 

BGET3 

I 

NEO 

B5T03 

I 

NEB 

MTX3A 

I 

NEQ 

OUT 

I 

NEQ 

REU3 

I 

NEQ 

SDER3 

I 

NEQ 

SDINP 

M 

NEQ 

TOP  m 

I 

NEQ 

TRAN3 

I 

NEQ 

YREF3 

I 

NEQ 

/PARAM 

/< 

IB) 

ADJUST 

M 

NPAR 

FNTG 

I 

NP  A 

MTX3A 

I 

NPA 

TOPM 

0 

NP  A 

/PARAM 

/< 

13) 

ADJUST 

I 

NPARA 

BNTG 

I 

NPARA 

FNTG 

I 

NPARA 

MTX3A 

I 

NPARA 

PAY02 

I 

NPARA 

PRMSET 

I 

NPARA 

SDINP 

M 

NPARA 

ST  AU 

I 

NPARA 

TEST 

I 

NPARA 

' 

TOPM 

D 

NPARA 

/ AEC03 

/C 

10) 

AGETB3 

0 

PHID 

AST3 

M 

PHID 

GUI3A 

M 

PHID 

MODELA 

n 

PHID 

MO  DELB 

1 

PHID 

MTX3A 

0 

PHID 

OUT 

I 

PHID 

/ A ECO 3 

/( 

9) 

AST3 

n 

“HID 

MTX3A 

i 

PHID 

/DATA 

/( 

2 ) 

BEROCO 

i 

DEG 

BLSCON 

i 

RAO 

ENVPRM 

i 

RAD 

E3UA3 

i 

RAD 

FNTG 

i 

RAD 

GUI3A 

i 

RAD 

MODELA 

i 

RAD 

MTX3A 

i 

RAD 

OUT 

i 

RAD 

PAOS1 

D 

RAD 

SDINP 

I 

RAD 

TRTOSZ 

I 

RAD 

/PARAM 

/< 

1BA  ) 

ADJUST 

a 

SPARB 

MTX3A 

i 

SPARB 

TOPM 

D 

SPARB 

/PARAM 

/( 

276  ) 

ADJUST 

0 

S2INV 

MTX3A 

M 

S2INV 

P AY02 

n 

S 2 1 NY 

TOPM 

0 

S2INV 

/GENE 

/t 

322  ) 

MTX3A 

M 

TR 

TRAN3 

M 

TR 
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FORTRAN  ' MAT  K 
SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


S 1 PRASE  5 ildROUT I NF  USA6E 
BLOCK  LOC  SUBR  CODE  VAR 


VAR 


WORK 


UTP 


XL 


XLAMA 


X LAMP 


YO 


V 


CY] 


t,n 


Af-°J 


^ o I d 


I 


I 


I 


I 


I 


I 


I 


Relative  velocity 


t FT /SEC  ) /STATE3/C 


Working  array,  contains  TOPEN1,  T0PEN2,  and  PHIWT  /STS  /( 


Adjustable  paraeeter  diagonal  weighting  natrlx  /PARAM  /( 

order  according  to  IPOINT. 

Matrix  of  adjoint  variables  /STATE3/C 


Impulse  response  function  column  vector  associated  /AEC02  /< 
0 i t h angle  of  attack 


(■pulse  response  function  cofu«"  vector  associated  /AECQ3  /( 
Pith  bank  angle 


5tate  vector  of  nominal  trajectory 


/5TATE3/I 


ACCEL 

I 

V 

ADI C83 

0 

VAR 

ADJUST 

Pi 

VAR 

AGETB3 

D 

VAR 

A5T3 

I 

VAR 

BLR 

I 

V 

BL7 

1 

V 

BL8 

I 

V 

C0N3 

2 

VAR 

DER3A 

2 

V 

DTF  3 

r 

V 

ENVPfiM 

i 

VAR 

E0UA3 

i 

V 

MDDELA 

i 

V 

MODE LA 

i' 

„ VAR 

MODELB 

i 

V 

MTX3A 

i 

VAR 

OUT 

i 

V 

OUT 

i 

-VAR 

PDBC 

i 

V 

PDY3A 

i 

V 

RED3 

pi 

VAR 

RKTA3A 

M 

V 

STP3 

i 

VAR 

TOPM 

D 

KWOM 

YREF3 

M 

V 

A0EQ3A 

I 

WORK 

FNTG 

1 

WORK 

MODELB 

0 

WORK 

MTX3A 

I 

WORK 

SDINP 

PI 

WORK 

TEST 

It 

WORK 

MTX3A 

i 

WTP 

PAY02 

I 

UTP 

SDINP 

0 

WTP 

TOPM 

D 

UTP 

A0E03A 

M 

XL 

AD1CB3 

N 

XL 

ADIC3A 

Pi 

XL 

ADI  03  A 

Pi 

XL 

AST3 

M 

XL 

BGET3 

0 

XL 

BST03 

i 

XL 

MTX3A 

i 

XL 

OUT 

i 

XL 

STAU 

pi 

XL 

STVRL3 

i 

XL 

TRAN3 

Ft 

XL 

A0E03A 

M 

XLAMA 

ADi C3A 

a 

XLAMA 

AST  3 

0 

XLAMA 

BGET3 

a 

XLAMA 

B5T03 

pi 

XLAMA 

MTX3A 

i 

XLAMA 

TRAN3 

m 

XLAMA 

ADE03A 

M 

XLAMP 

ADIC3A 

a 

XLAMP 

AST3 

a 

XLAMP 

BGET3 

a 

XLAMP 

BST03 

M 

XLAMP 

MTX3A 

2 

XLAMP 

TRAN3 

M 

XLAMP 

AST3 

0 

YO 

MTX3A 

I 

YO 
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NTX3A 


1 

SUBROUTINE  NTX3A 

NTX3A 

2. 

C 

CONN 

3. 

C 

ENTRY 

NTX  COMPUTES 

TR  VECTOR  DURING 

CLOSED  LOOP  CONTROL 

CONN 

4. 

C 

CONN 

5. 

C 

ENTRY 

NT XI  CONFUTE 

CONTROL 

AND  PARAMETER  CHANGES  ON  TRAJECT. 

CONN 

6 

C 

CONN 

7. 

COttrtON/ ST  ATE3/ 

STATE3D 

8. 

♦ VARl 14) 

.DVAR  (14  1 

, VARL  C 99 ) 

,OVARL(  99 ) 

,Y0<  9) 

,S VYC 10  ) 

STATE30 

9. 

♦ XL(  9,9  ) 

, YDP(  20.9). 

YDS  120,9) 

.C0S6AN 

.SINS AH 

,SAVBP< 15) 

STATE30 

10. 

♦SINPSI 

.C05PSI 

,S1NRH0 

, COSflHO 

, OCORHO 

,0C0RQ2 

STATE3D 

11 

♦SVBV  (9), ONEGA 

,0«E6A2 

STATE3C 

12 

♦ VOV 

,60V 

,ROV 

,NDV 

,POV 

,ODV 

STATE3D 

13. 

♦ UDV 

, VD6 

,606 

,RD6 

,PDfi 

,0D6 

STATE3D 

14. 

♦ U06 

, VOR 

, 60R 

,N0ft 

,POR 

,ODR 

STATE3D 

15 

♦ UDR 

,V0N 

, GDPl 

,non 

,PON 

, VDP 

STATE30 

16, 

♦ 60P 

.POP 

,ODP 

, UDP 

,voo 

,600 

STATE3D 

17 

♦POO 

,UQO 

, HTDV 

,HTDR 

STATE3D 

18 

real  non 

. NOV,  NOR 

STRTE3D 

19. 

CQMMON/ST  ATE3/ 

STATE3D 

20. 

♦SIN2R0 

.COS2BO 

, C0S26N 

STATE3D 

21. 

connoN/AEC03/ 

A ECO  3 

22. 

♦APHO 

, APHR 

, ALPHA 

, VO  A 

,6DA 

-PDA 

AEC03 

23. 

♦ SI  NA 

,COS  A 

,PHI0 

,PHID 

, P HI 

,SINPHI 

AEC03 

24. 

•CQ5PH1 

,GOPH 

,PDPH 

,XLAAA( 9 > 

, XLANPt 4 ) 

,coo 

AEC03 

25. 

♦ CDOrt 

,CLO 

,FK 

, xcgn 

,2CGN 

, CLON 

AEC03 

26. 

♦cn 

,Cf1A 

.CftAH  . CNN 

, CNO 

,CNON 

,FKN 

AEC03 

27. 

♦CLAN 

,CL 

,CLA 

,CLH 

AEC03 

28 

♦ CD 

, CD  A 

, CON 

A ECO  3 

29 

CormdN/STS/ 

ST5 

30 

♦ OP  AY 

,PNIN 

,UORK  (20) 

. NHDS 

.IPC  (7). NITER 

9 

STS 

31 

♦ PINGAl  20. 

2 ) ,NN6P( 20.2) 

. AR(200). 

I AD(  20  ) . I NP(  20). IS  V(  20) 

STS 

32. 

DIMENSION  RR(9),JJ(9) 

, DELYC  7 ),8(  9, 9 ) 

NTX3A 

33 

EQUI VALENCE! DVARLC 30 

, RR ),  ( DVARLC 40 ) , DELY  ) 

,(C0T1,B), 

< DVARLC  50  ),JJ  ) 

NTX3A 

34. 

COnnON/OATA/ 

OAT  A 

35, 

♦ PI 

.RAO 

,ROI 

,SC 

,U«F 

,TMPF 

DATA 

36. 

♦ FTN* 

.CAR 

,J0P1 

, J0P2 

, J0P3 

,J0P9 

DATA 

37. 

coiwon  / 

XCODES/ 

X CODES 

38. 

»ITO  C 9 } I COR  (20) 

,171 

, I NTB 

, JGIDC  20, 

2J.JPH  (20.2), 

XCODES 

39 

*JST  ( 20  ) 

, NCHST 

,NSB 

,NSAB 

, NI CNB 

XCODES 

40 

♦ I20P 

,IC0P 

,IFAbJ 

, IFAR 

,IFB 

, 2ND 

, 

XCODES 

41 

♦IOPEN 

,IPH 

,ISPH 

, IS5T 

, I ARC 

, 1ST  ART 

9 

XCODES 

42. 

♦ ITCT 

.ITER 

, 1 VAR 

,JX 

,JPS 

,JS 

XCODES 

43. 

♦ HOP 

,XPST 

, K5T 

,NAD 

, NCASE 

XCODES 

44 

♦ NCH 

,N£OB 

, NEQ 

, NOP 

,NPH 

XCODES 

45 

♦ NST 

, IPST 

I PR  1 NT 

, ISTN 

, I PHN 

I5TNB 

XCODES 

46. 

♦IPHNB 

, I BLKl 

, I BLK2 

, ISTOP 

, ISTPP 

,L 

XCODES 

47. 

♦ IFOB 

.NB 

.LB 

.NB 

,NPHP 

,NPHB 

XCODES 

48. 

♦ NCTIH 

,NEOF  , l LABi  8),JPRP,J6iI, NTT, MPI 

N(  20  ),  JP 1 , 

JP2, JP3 

XCODES 

49. 

COnnON/GENF/ 

GENF 

50 

*ONG(  20) 

,ONGP{ 20,2 ) 

, VAR3(  9) 

,T0L<  9 ) 

, S VARC 10) 

,WOC( 20) 

9 

6ENF 

51 

♦ AC  9,9) 

,AC0N(9) 

,BCON( 9 ) 

,COTI( 9,9) 

,DC0N(9) 

.DTP 

6ENF 

52. 

♦ DTS 

,0T 

,6 

,OPSO 

,0 

,QS 

GENF 

53 

♦ R 

,RE 

, MACH 

, P A 

,R0 

,cs 

GENF 

54 

♦ VNU 

,PAR 

, RCR 

,CSR 

,VNR 

,5UrtS0 

GENF 

55 

♦svso 

,T1NEPH 

, TINES 

, TOP 

,T05 

, lfi(  9 ) 

GENF 

56 

*TST{ 20 ) 

,TPH  (20) 

,015(20) 

, DI P( 20  ) 

, T 

GENF 

57. 

♦TLP1C20) 

,TLS1  (201 

01 Pl( 20  ) 

, DISH  20) 

,TINE 

,ONP 

f 

GENF 

58. 

♦TlnPR 

,LIFT 

, DRAG 

, T AX 

,T  BURN 

,TBU( 20) 

9 

GENF 

59. 

♦AE 

_ FP 

,FPOLD 

,FPD 

, NACHR 

, HACHV 

GENF 

60. 

♦ OR 

,0V 

,FVAC 

, LI  FT  V 

t 

GENF 

61 

♦LIFTR 

,LIFTA 

DRAGV 

. DRAGR 

OR  ASA 

t 

6ENF 

62, 

♦ 

LIFTN 

, DBR 

,DB 

,ISP 

, 1 5PF 

f 

GENF 

63. 

♦ 

ULFT 

, ULFTV 

, ULFTfl 

.ULFTA 

9 

GENF 

64. 

♦ xncG 

, XNCGV 

, XftCGR 

,xncga 

,XNCGN 

, CGDAE 

GENF 

65. 

♦CULFT 

,CT 

.CALPHA 

, COE 

, DELTAS 

, SID 

GENF 

66. 

♦ COO 

,51  DAE 

, XC6 

,ZC6 

,XJ 

6ENF 

67 

CO  PINO  M / 

GENF  / 

GENF 

68 

♦ XJV 

. XJR 

,GH 

, 6ANRAD 

, XKG 

,XXP 

GENF 

69 

♦FRATED 

, IR ATED 

GENF 

70. 

♦PI 

,P2 

>3 

, XK1 

, XKZ 

,XK3 

9 

6ENF 

71 

♦ XK1T 

,XK2T 

, XK3T 

, XK 1 0 

,XK2D 

,XK3D 

GENF 

72 

♦ XK1A 

, XK2A 

, XX3A 

, XK  1 V 

, XX2V 

, XK3V 

GENF 

73. 

♦ XK1 6 

XK26 

, XK3S 

,XX1P 

, XK2P 

, XK3P 

9 

GENF 

74. 

♦xKin 

,XK2R 

, XX3R 

, XK10 

, XK20 

, XK30 

GENF 

75 

♦ XX  1 u 

XK2U 

, XX3U 

,XK1« 

,XK2N 

,XK3N 

, 

GENF 
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*PV  fP6  ,PP  .PR 

REAL  LIFTS  , LIFT  , LIFTA, LIFT*  , 

* ISP,  ISPF . MACHV.LlFTV  , lfiATEO 
DIMENSION  TPHlt iOj.TSTlt 10) 

equi valencec  tlpi.tphi  j.ctlsi.tstu 

COMMON/P ARAN/ 


,P0  ,OFOY(3,ai 

MACH,  MACHR, 


82. 

4 

‘I  POINT  t 12  ),NPARA  NPA  ,SPARA(  9. 12).  WTPD  (9>,WTP 

( 12), 

PARAM 

83. 

* 

■SPARBC  9 12 ) , PAG(I(  12),BPftRl  12)  ,52IH¥(9,9) 

PAR  AM 

84. 

4 

,0ELP<9^ 

PARAM 

85. 

ENTRY  ATX 

MTX3A 

86. 

C 

COMN 

87. 

t 

I COMPUTE  CHANGE  1U  STATE 

COMN 

88- 

DO  10  1=1, NEB 

MTX3A 

89. 

10 

DELY(  I ) = VAfil  I)  - YQ(  I ) 

MTX3A 

90. 

c 

COMN 

91. 

c 

11  TEST  FOR  PARAMETER  SENSITIVITIES 

COMN 

92. 

c 

AND  IF  PRESENT  COMPUTE  CONTRIBUTION  TO  A 

MATRIX 

COMN 

93. 

IF(NPA.EO.O)  GO  TO  40 

MTX3A 

94. 

DO  30  1=1, UCN 

MTX3A 

95. 

DO  30  N=l, NCN 

MTX3A 

96. 

ss=o 

MTX3A 

97. 

DO  20  J=1,NP«R» 

MTX3A 

98 

SS=  SS  + 5PARB(I.J)*SPARB(N,J)  / MTPIJ) 

MTX3A 

99. 

20 

CONTINUE 

MTX3A 

100. 

$2IN¥U,N>  = SS 

MTX3A 

101. 

30 

CONTINUE 

NTX3A 

102. 

c 

CCMN 

103 

c 

III  CHECK  FOR  ZERO  DIAGONAL  ELEMENT  IN 

A AND  S 

COMN 

104 

c 

MATRICES  AND  SET  FLAGS 

COMN 

105- 

40 

NO  =0 

MTX3A 

106 

DO  60  1=1, NCN 

MTX3A 

107 

1 FC  AU.I  J.EQ.O  AND  521 NV(  I.Il.EO.O.  ) 60  TO  50 

MTX3A 

106. 

jjin=i 

MTX3A 

109. 

NO  =N0  +1 

MTX3A 

no. 

60  TO  60 

MTX3A 

Ill 

50 

JJ(I)  =0 

MTX3A 

112 

60 

CONTINUE 

MTX3A 

113. 

c 

I¥  COdPRESS  A HATRIX  AMD  STORE  IN  B WITH 

COMN 

114. 

c 

PARA.  SENS.  CONTRIBUTION 

COMN 

115. 

1A  =0 

MTX3A 

116. 

DD  60  I— 1 . NCN 

MTX3A 

117. 

IFC J J( I l.Efl.C)  SO  TO  80 

MTX3A 

118. 

I A =IA+1 

MTX3A 

119. 

IB  = Ifl  -1 

MTX3A 

120. 

00  70  J=I,NCN 

MTX3A 

121. 

IRC  JJtJ  J.EQ.O)  60  TO  70 

MTX3A 

122. 

IB=  IB+1 

MTX3A 

123. 

B(  I A,  I B > = A(  I , J ) - S2I  NV(  I , J 1 

MTX3A 

124. 

70 

CONTINUE 

MTX3A 

125. 

80 

CONTINUE 

MTX3A 

126. 

c 

V INVERT  A 

COMN 

127. 

I Ft  NO . ST . 1 ) GO  TO  90 

MTX3A 

128. 

!!l,!)=  l./BIl.l) 

MTX3A 

129. 

60  TO  120 

MTX2A 

130 

90 

CONTINUE 

MTX3A 

131 

CALL  SVRVRTl  B,HO,IE«) 

MTX3A 

132 

IF(IER.NE.O)  SO  TO  240 

MTX3A 

133 

c 

RESTORE  MATRIX 

MTX3A 

134 

00  110  1=1, NO 

MTX3A 

135 

DO  )00  J=I  ,Atfl 

NTX3A 

136. 

100 

B(  I J):  B(J,I> 

MTX3A 

137 

no 

CONTINUE 

MTX3A 

138. 

c 

COMN 

139 

c 

VI  CALCULATE  CORRECTED  CONSTRAINT  MISS  VECTOR 

COMN 

140. 

c 

BASED  ON  CURRENT  EFFECT  OF  CHA4SE  IN 

STATE 

COMN 

120  KK=0 

DO  140  1=1, NC# 

IF(JJ< I ).EQ  0)  60  TO  140 
KK=KX«1 

RR(KK)  =DCQN(  I ) 

00  130  JP  = l , NEC 

130  RR(KK>  = RJUKK)  - XUJP,I)*  OELY(JP) 
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V./* 


198. 

— 

140 

CONTINUE 

HTX3A 

it?. 

C 

VII  COMPUTE  Tfl  VECTOR  AMO  RETURN 

COMM 

150. 

00  160  1=1, NO 

MTX3A 

151. 

TR(  I )=0. 

mX3A 

152. 

DO  150  JP=1,N0 

HTI3A 

153. 

150 

TRt  I >=  TRlil  ♦ BU.JPl.HHtJPl 

rtTX3  A 

159. 

1 60 

CONTINUE 

HTX3A 

155. 

170 

CONTINUE 

AT  <3  A 

156. 

RETURN 

mx3A 

157. 

ENTRV  *TX1 

AFX3A 

158. 

IF< IND.E9.1 1RETURW 

P31*t 

159. 

KK=0 

.nTX3A 

160. 

DP HI  =0. 

NTX3A 

161. 

DALP  =0. 

MTX3A 

162. 

c 

VIII  *** 

COHN 

163. 

c 

CALCULATE  CONTROL  CORRECTION 

NTX3A 

169. 

DO  180  1=1. NCN 

H7X3A 

165. 

1FI JJI I J.EQ.O  ) CD  TO  160 

HTX3A 

166. 

XK=ftK+l 

MTX3A 

167. 

OALP  = DALP  ♦ XLAflAU).  TRtXO 

ATX3A 

168. 

OPHI  = DPH1  ♦ XLAMPCIW  TR< K(  1 

ATX3A 

169. 

* UORKdOI 

(1TX3A 

170. 

180 

CONTINUE 

HTX3A 

171. 

IF( KPARA.ES. 0)  SO  TO  210 

ATX3A 

172. 

IFtNPA.EQ.  01  GO  TO  210 

«TX3A 

173. 

c 

COHN 

179. 

c 

IX  COMPUTE  PAHAfiETER  CORRECTIONS 

CQHN 

175. 

DO  2G0  I=1,NPARA 

nTX3A 

176. 

OPAfi(I)=  0. 

HTX3A 

177. 

KK-0 

HTX3A 

176. 

DO  190  J=1,NCN 

NTX3A 

179. 

IFt JJ( J I.EQ.O)  SO  TO  150 

ATX3A 

180. 

KKsKOl 

HTX3A 

181 

DPATH  I 1 = OPAR(I)  - SPARB(KX.I).  TRIER)  /UTPI 1 1 

NTX3A 

182 

190 

CONTINUE 

flTX3A 

183. 

200 

CONTINUE 

HTX3A 

189. 

210 

CONTINUE 

HTX3A 

185 

IF( JGII.LE.10)  RETURN 

PQ 14 

186 

APHR  = APHO  ♦ DALP»RAD 

HTX3A 

187. 

PHIO=  PHIO  . DPH1  * RAD 

HTX3  A 

188. 

IFt  A 65 ( 0PK11.LT. .26)  RETURN 

HTX3A 

189. 

PKIO=PHIO«SIS*( .26.0PHI)  * RAO 

APR 

190. 

RETURN 

HTX3A 

191 

220 

CALL  IPRUOHA  SINGULAR,  A,  I,  81,0) 

OTX3A 

m 

230 

CALL  STPITC  4 ) 

HTX3A 

193. 

2*0 

CALL  IPftClOKB  SINGULAR,  B,  I 81,  0) 

HTX3A 

194. 

GO  TO  230 

HTX3A 

195. 

END 

I9TX3  A 

210" 

210- 


190—1 




230  — 
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SUBR0UT INE 
0UT 


533 


Subroutine  OUT 


Entry  OUTERR 
Purpose 

Subroutine  OUT  puts  data  into  print  array  AP  in  preparation  for  printing  a 
trajectory  block. 

Description 

Subroutine  OUT  controls  the  computation  of  auxiliary  print  quantities  (Sec- 
tion 8,  Volume  I)  and  checks  print  options.  It  loads  all  desire.d  data  into  the 
print  array  AP  and  then  calls  subroutine  PRINT  which  does  the  formatted 
printing,  heading  and  labeling.  Entry  OUTERR  is  called  whenever  a control 
divergence  occurs.  This  entry  prints  the  message: 

: ; --CONTROL  DIVERGENCE  (SEE  NEXT  PRINT  BLOCK) 

And  then  continues  with  the  remaining  code  in  subroutine  OUT  to  print  a 
standard  trajectory  block.  Subroutine  OUT  is  called  from  FNTG. 


FORTRAN  HATH 

SYMBOL  SYMBOL 


DESCRIPTI ON 


STORAGE  subroutine  usage 
BLOCK  LOC  SUBS  CODE  VAR 


AINCL 

l 

i 

Orbltel  1 nc  1 1 n*t ! on 

ALT 

h 

i 

Altitude 

ANonuv 

i 

i 

True  anonoly 

APHO 

“eld 

i 

Angle  of  attack  fros  lost  no 

APHR 

a 

i 

Angle  of  attack 

APOGEE 

R 

* 

I 

Apogee  r »di us 

ARGP 

£ 

P 

I 

Orbital  argunent  of  perigee 

ASCNQO 

ft 

I 

Longitude  of  ascending  node 

CO 

CD 

I 

Drag  coefficient 

CL 

CL 

I 

Lift  coefficient 

COO 

cost  s ) 

I 

See  syabol 

COSA 

C 0 S“ 

I 

See  syabol 

cosgam 

C 0 s(  7 ) 

I 

See  syabol 

COSPHI  COS^  I See  syabol 


(RAD  ) 

/ORBIT 

/( 

7) 

OUT 

I 

AINCL 

PDBC 

M 

AINCL 

/ST  ATE3/( 

3) 

EQUA3 

I 

ALT 

OUT 

1 

ALT 

PDBC 

I 

ALT 

(RAO) 

/ORBIT 

/( 

13) 

OUT 

I 

ANDMLV 

PDBC 

M 

ANOMLY 

trajectory 

/ AEC03 

/( 

1 ) 

AST3 

M 

APHO 

( DEG) 

FNTG 

I 

APHO 

MTX3A 

I 

APHO 

OUT 

I 

APHO 

PROPB 

0 

AEZRO 

PROPIN 

0 

AEZRO 

(DEG) 

/ AEC03 

/( 

Z ) 

ASETB3 

0 

APHR 

AST3 

M 

APHR 

BEROCO 

I 

APHR 

BLGCON 

0 

APHR 

GUI  3A 

M 

APHR 

MOOELA 

M 

APHR 

MODELS 

I 

APHR 

MTX3A 

0 

APHR 

OUT 

1 

APHR 

(FT) 

/ORBIT 

/( 

11  ) 

OUT 

I 

APOGEE 

PDBC 

0 

APOGEE 

(RAO) 

/ORBIT 

/( 

8) 

OUT 

I 

ARSP 

PDBC 

n 

ARSP 

(RAD  ) 

/ORBIT 

/( 

9 ) 

OUT 

i 

ASCNOD 

PDBC 

M 

A5CN0D 

/ AEC03 

/{ 

52) 

BEROCO 

0 

CD 

OUT 

i 

CO 

VT 

i 

CD 

/ AEC03 

/( 

A9  > 

BEROCO 

B 

CL 

OUT 

I 

CL 

VT 

I 

CL 

/ GENF 

/{ 

556  ) 

EL2 

I 

COD 

OUT 

I 

COD 

VT 

M 

COD 

/ AEC03 

/( 

B) 

ACCEL 

I 

COSA 

BLA 

I 

COSA 

BL6 

I 

COSA 

BL7 

I 

COSA 

BL8 

I 

-COSA 

FH3 

I 

COSA 

OUT 

1 

COSA 

VT 

M 

COSA 

/STATE3/1 

687  ) 

ACCEL 

1 

COSGAM 

BLA 

I 

CDSGAM 

BL8 

I 

.COSGAM 

0ER3A 

I 

COSGAM 

E8UA3 

0 

COSGAM 

MODELA 

I 

COSGAM 

MO  DELB 

I 

COSGAM 

OUT 

I 

COSGAM 

PDBC 

I 

COSGAM 

PDY3A 

I 

COSGAM 

/ AEC03 

/( 

13  ) 

ACCEL 

I 

COSPHI 

BLA 

I 

COSPHI 

GUI  3A 

M 

COSPHI 

MQDELA 

m 

COSPHI 

MOOELB 

M 

COSPHI 

OUT 

I 

COSPHI 

535 
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fortran 

symbol 


CO  SR  HO 


CS 

DR 


DELTAS 
DP  PY 

DRAG 


ECC 

ENERGY 

etna 

Gam 

GAMI 

GM 


MATH 

SYMBOL 

CODE 

DESCRIPTION 

STORAGE 

SUBROUTINE 

: USAGE 

BLOCK 

LOC 

SUBR  COOE 

VAR 

C 0 s(  p ) 

1 

Set  % y »bo 1 

/ST ATE3/( 

707  ) 

BLR 

1 

COSRHO 

8L7 

I 

COSRHQ 

BLB 

1 

COSRHO 

DER3A 

I 

COSRHO 

E0UA3 

m 

COSRHO 

MOOELA 

i 

COSRHO 

MOOELB 

i 

COSRHO 

OUT 

i 

COSRHO 

PDBC 

i 

COSRHO 

P0Y3A 

i 

COSRHO 

a 

1 

Speed  af  sound 

(ET/SEC) 

/GENE  /( 

310  ) 

EQUA3 

n 

CS 

OUT 

i 

CS 

D 

I 

Base  drag 

( LBS) 

/ GENF  /{ 

537  ) 

ACCEL 

i 

DB 

b 

BLH 

i 

OB 

BL6 

i 

DB 

BL7 

i 

DB 

BLB 

i 

OB 

EQUA3 

i 

OB 

FH3 

i 

DB 

OUT 

i 

DB 

SDER3 

i 

DB 

VT 

i 

DB 

I 

Engine  gimbal  Reflection  angle 

( RAD) 

/GENE  /( 

55A  ) 

BLGCON 

M 

DELTAE 

£ 

ELI 

1 

DELTAE 

OUT 

I 

DELTAE 

REU3 

□ 

DELTAE 

VT 

I 

DELTAE 

9ti/3y 

] 

Natri*  of  partiafs  of  In-plane  control 

vector  art 

/GENE  /( 

610  ) 

ACCEL 

I 

DPDY 

state 

BLGCON 

I 

DPQY 

OUT 

I 

DPDY 

D 

I 

Aerodynamic  drag 

(LBS) 

/GENE  /( 

HR 7 ) 

ACCEL 

I 

DRAG 

BL5 

I 

DRAG 

BL7 

1 

DRAG 

BLB 

I 

DRAG 

ENVPRM 

I 

DRAG 

FH3 

1 

DRAG 

OUT 

I 

DRAG 

PROPB 

0 

DRAG 

PROPIN 

0 

BRAG  • 

S0ER3 

I 

DRAG 

VI 

M 

DRAG 

e 

I 

Orbital  e c centrl city 

/ORBIT  /( 

6} 

OUT 

I 

ECC 

PDBC 

M 

ECC 

E 

I 

Energy 

/ORBIT  /( 

17  ) 

OUT 

1 

ENERGY 

PDBC 

0 

ENERGY 

I 

Feet  to  nsut*  nl.  conversion.  1.695791629x10'^ 

/DAT  ft  /< 

7 ) 

OUT 

I 

FT  NN 

PA0S1 

0 

FTNM 

TRTOSZ 

I 

FT  NM 

7 

I 

Relative  flight  path  angle 

(RAD) 

/STATE3/C 

2) 

E0UA3 

I 

GAM 

- 

GU!  3A 

1 

GAM 

OUT 

1 

GAM 

7. 

I 

Inertial  flight  path  angles 

( RAO  ) 

/ORBIT  n 

2 ) 

OUT 

I 

GAMI 

1 

PDBC 

0 

GAMI 

GM 

1 

Product  of  Neiaton's  universal  gravitational 

/GLOBAL/! 

67  ) 

CRASH 

i 

GM 

constant  and  the  mass  of  the  earth 

( FT3/SEC2) 

OUT 
P ADS  1 

1 

D 

Gn 

Gn 

POBC 

i 

GM 
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536 


i tilt  in  nig 

SYMBOL 


MAIM 

SYMBOL 


CODE 


DESCRIPTION 


S 1 QRft  lE 


blots 


LOC 


SUBROUTINE  USAGE 
SU8R  CODE  VAR 


GR 

q 

1 

Gravitational  acceleration  at  surface  of  the  earth. 

/GLOBAL/f 

1 ) 

ACCEL 

I 

SR 

sr 

(FT/SEC2) 

BL5 

EQUA3 

I 

1 

SR 

GR 

FH3 

I 

GR 

GEINP 

I 

S 

GEINP 

I 

SR 

GEINP 

0 

16 

OUT 

I 

GR 

PADS1 

I 

GR 

PDBC 

I 

SR 

REU3 

I 

GR 

SDINP 

I 

GR 

SIZE 

I 

GR 

SI  Z1 

I 

GR 

SIZ2 

I 

GR 

SIZ3 

I 

GR 

SIZ9 

I 

SR 

SOMG 

2 

SR 

STAU 

I 

GR 

hmnTm 

H 

I 

Mo  aentun 

/ORBIT  /! 

181 

OUT 

I 

HMNTM 

POBC 

m 

HrtNTM 

HT 

Q 

1 

He  at  i ng 

/STATES/! 

81 

OUT 

I 

HT 

HTD 

Q 

I 

Heating  derivative 

/STATE3/C 

22) 

0ER3A 

0 

HTO 

OUT 

i 

HTD 

PDBC 

I 

HTD 

P0Y3A 

H 

HTD 

l ATM 

I 

Atmosphere  option  flag 

/ ARCDAT/t 

7) 

EQUA3 

I 

I ATM 

FXDAT 

I 

I ATM 

OUT 

I 

I ATM 

POBC 

I 

I ATM 

VT 

I 

I ATM 

IPFLG1 

I 

IPFLG1F0  supresses  print-out  of  velocity  losses  and 

/GLOBAL/! 

69) 

FNTG 

I 

IPFLS1 

inertial  Euler  angles. 

OUT 

I 

IPFLG1 

POBC 

I 

IPFLS1 

PRINT 

I 

IPFLG1 

TRTOSZ 

0 

IPFLG1 

IPFLG3 

I 

IPFLG3/0  supresses  prlnt-out  of  Inpact  data. 

/GLOBAL/! 

71 ) 

OUT 

I 

IPFLG3 

PRINT 

I 

IPFLG3 

TRTOSZ 

0 

IPFLS3 

I PRINT 

M 

Print  page  counter  initialisation  flag 

/XCOOES/t 

168) 

OUT 

M 

IPRINT 

TEST 

I 

IPRINT 

TOPM 

0 

IPRINT 

ITCT 

I 

Iteration  counter 

/XCOQES/i 

198) 

BNTG 

I 

ITCT 

OUT 

I 

ITCT 

TEST 

n 

ITCT 

TOPM 

M 

ITCT 

ITER 

I 

Trajectory  pass  Indicator. 

/XCOOES/t 

199) 

AST  3 

i 

ITER 

ITER  = 1,  CONSTRAINTS 

FNTG 

2 

ITER 

= 2,  OPTIMIZATION 

GETIT 

I 

ITER 

= 3,  SOLUTION 

MODELA 

I 

ITER 

OUT 

I 

ITER 

PAV02 

n 

ITER 

PROPIN 

I 

ITER 

TEST 

m 

ITER 

TOPM 

M 

ITER 

JAER 

I 

Aerodynaatc  node!  option  flag 

/ ARCDAT/( 

9) 

BEROCO 

I 

JAER 

E3UA3 

I 

JAER 

GEINP 

I 

JAER 

OUT 

I 

JAER 

PRQPB 

I 

JAER 

PROPIN 

I 

JAER 

VT 

2 

JAER 

JP3 

I 

Option  flag  for  third  governing  equation 

/XCOOES/t 

219  ) 

AGETB3 

0 

JP3 

AST3 

M 

JP3 

MODELA 

M 

JP3 

MO  DELB 

I 

JP  3 

OUT 

I 

JP3 

PROPIN 

G 

JP3 
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FQR1RAN 

SYMBOL 


MAI  H 
SYMBOL 


DESCRIPTION 


I Integration  traffic  control  flag 

L = 1 naans  evaluate  derivative! 

= 2 check  cut-off 

= 3 print  or  cut-off  detected 


I Aero  dy  nanl c lift 


n 

m 

i 

Hiss 

MACH 

n 

i 

ri*ch  nuaber 

no 

n 

i 

MASS  derivative 

nu 

V 

i 

Longitude 

NCN 

i 

Number  of  elements  In  df' 

NEB  I Number  of  integrated  itetee 


P pp  I Se»i-latus  rectun 

PA  I Ataospherlc  pressure 


SjOBAGE,  SUBBOUTIhE  USARi 
BLOCK  LOC  SUBR  CODE  YAR 


/XCODES/l 

17  7) 

BNT  5 

PI 

L 

FNTG 

n 

L 

OUT 

I 

L 

RKTA3A 

ii 

L 

RKT83A 

n 

L 

SOI  NP 

fi 

L 

/GENF  /( 

H96) 

ACCEL 

i 

LIFT 

BLR 

I 

LIFT 

BL5 

i 

LIFT 

BL6 

i 

LIFT 

ENVPfiM 

i 

LIFT 

FH3 

i 

LIFT 

OUT 

I 

LIFT 

PROPB 

0 

LIFT 

PROP  IN 

0 

LIFT 

VT 

0 

LIFT 

/STATE3/f 

<n 

ACCEL 

I 

n 

BLN 

I 

pi 

BL8 

I 

n 

E0UA3 

2 

p« 

OUT 

I 

n 

SDER3 

I 

* 

/GENF  /( 

307  ) 

BEROCO 

1 

MACH 

ENVPfirt 

I 

MACH 

EQUA3 

n 

piach 

OUT 

i 

MACH 

/STATE3/1 

18  1 

DER3A 

0 

MO 

OUT 

i 

MO 

/STATE3/C 

7) 

OUT 

i 

nu 

PDBC 

I 

nu 

/XC0OES/( 

160) 

ADE03A 

i 

NCN 

A0ICB3 

i 

NCN 

A01C3A 

i 

NCN 

ADID3A 

i 

NCN 

ADJUST 

i 

NCN 

AST3 

m 

NCN 

8 NT  5 

I 

NCN 

BST03 

I 

NCN 

MTX3A 

I 

NCN 

OUT 

I 

NCN 

P AY02 

n 

NCN 

TEST 

n 

NCN 

TOPM 

1 

NCN 

TRAW3 

I 

NCN 

TRTOSZ 

I 

NCN 

/XCODES/( 

162  1 

A0ICB3 

I 

NEB 

ADIC3A 

l 

NEB 

ADI D3A 

1 

NEB 

AGETB3 

I 

NEB 

AST  3 

1 

NEC 

BGET3 

I 

NEC 

BST03 

I 

NEC 

MTX3A 

I 

NEB 

OUT 

1 

NEB 

REU3 

i 

NEB 

S0ER3 

I 

NEO 

SOI  NP 

n 

NEB 

TGPn 

i 

NEB 

TRAN3 

i 

NEB 

YREF3 

i 

NEB 

/ORBIT  /( 

5) 

OUT 

i 

P 

POBC 

pi 

P 

/GENF  /( 

308  ) 

E3UA3 

n 

OZR 

FH2 

i 

PA 

iriPUL 

I 

PA 

OUT 

I 

PA 

PDBC 

I 

PA 

SDER3 

I 

PA 

5'?8 
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inIN 

U 


FORTRAN 

SYMBOL 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


S IQRAGE  SUBBOlllINE  U5»6E 

block  loc  sour  coqe  var 


PERGEE 

R 

I 

Perigee  radlut 

(FT  > 

/ORBIT 

/( 

12) 

OUT 

1 

PERGEE 

P 

PDBC 

0 

PERGEE 

PHI 

4 

I 

Bank  angle 

(RAO  ) 

/AECQ3 

/( 

n > 

GUI3A 

n 

PHIR 

MODELA 

n 

PHI 

MODELS 

M 

PHI 

OUT 

1 

PHI 

PHID 

4 

I 

Bank  angle 

10EG) 

/AEC03 

/( 

10) 

AGETB3 

0 

PHIO 

AST  3 

M 

PHID 

GUI3A 

n 

PHIO 

MOOELA 

n 

PHIO 

MODELS! 

i 

PHID 

MTX3A 

0 

PHID 

OUT 

i 

PHID 

PI 

IT 

I 

Constant  3.191592653 

/DATA 

/( 

i > 

OUT 

i 

PI 

P AOS  1 

D 

PI 

PSI 

I 

Az  1 outh 

/STATE3/C 

5 ) 

E0UA3 

I 

PSI 

GUI3A 

I 

PSI 

OUT 

I 

PSI 

PSII 

I 

Inertial  aziauth 

( RAD) 

/ORBIT 

/( 

3) 

OUT 

I 

PSII 

I 

POBC 

n 

PSII 

PI 

I 

First  element  in  in-plane  control  rector. 

/ GENF 

/( 

5 6-9  ) 

BLGCON 

n 

p 

Corresponds  to  thrust 

BLGCON 

n 

PI 

OUT 

i 

PI 

Q 

q 

I 

Dynaslc  pressure 

(PSF) 

/GENF 

/( 

303  ) 

ENVPRM 

I 

a 

E0UA3 

K 

a 

OUT 

I 

a 

PDBC 

I 

a 

VT 

I 

a 

RAO 

I 

Radian  to  angle  conversion,  57.29577951 

/DATA 

/( 

2 ) 

BEROCO 

I 

DEG 

BLGCON 

I 

RAD 

ENVPRM 

I 

RAD 

E3UA3 

I 

RAD 

FNTG 

I 

RAO 

SUI3A 

I 

RAD 

MODELA 

I 

RAD 

MTX3A 

I 

RAD 

OUT 

I 

RAD 

P AOS  1 

0 

RAD 

SOI  NP 

I 

RAD 

TRTOS2 

I 

RAD 

RE 

R 

n 

Unit  reynolds  nueber 

( 1/FT  > 

/GENF 

/( 

306  > 

OUT 

M 

RE 

'X 

POBC 

n 

RE 

RKO 

p 

i 

Lot  i tude 

/ST  ATE3/I 

6) 

EQUA3 

I 

RHG 

OUT 

i 

RHO 

RO 

p 

i 

Atnospheric  density  C SLUGS/ FT**3  ) 

/GENF 

/( 

309  ) 

BL7 

I 

RO 

H a 

BL8 

I 

RO 

DER3A 

i 

RO 

E0UA3 

i 

RO 

OUT 

I 

RO 

POBC 

i 

RO 

PDY3A 

I 

RO 

SCROSS 

s„ 

i 

Cross  range 

(FT) 

/ORBIT 

/( 

199  ) 

OUT 

i 

SCROSS 

c 

POBC 

0 

SCROSS 

SDOUN 

s„ 

i 

Doan  range 

( FT  ) 

/ORBIT 

/( 

198  ) 

OUT 

I 

SDQUN 

D 

PDBC 

0 

SDOUN 

SIO 

s i n{  Eg ) 

i 

See  sy  »bo  I 

/GENF 

/( 

555  ) 

EL2 

I 

SID 

OUT 

I 

SID 

VT 

M 

SID 
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539 


I OH  1 HAM 
SYP180L 


ITAIH 

SYMBOL 


CODE 


DESCRIPTION 


S IQRar.E  SUBROUTINE  USAGE 
BLOCK  LOC  SU6R  COOE  VAR 


SINA  sln<x  I See  syabol 


SINPHI  sir^  I See  syabol 


SINRHO  Sin{p)  I See  syabol 


SMIMAJ  3 I Seal-aajor  axis 

SORT  F Square  root  function 


STOT  ST  * Total  range 

T T I Thrust 


/ AEC03 

/( 

7 ) 

ACCEL 

I 

SINA 

BLH 

I 

SINA 

BL6 

I 

SINA 

BL7 

I 

SINA 

BL6 

I 

SINA 

FH3 

I 

SINA 

GUI  3 A 

n 

SINA 

OUT 

i 

SINA 

VT 

m 

SINA 

/ AEC03 

/( 

12  > 

ACCEL 

I 

SINPHI 

BLH 

i 

SINPHI 

mODELA 

m 

SINPHI 

P10DELB 

n 

SINPHI 

OUT 

i 

SINPHI 

/STAT£3/( 

706  ) 

BLH 

l 

SINRHO 

BL7 

I 

SINRHO 

BL8 

I 

SINRHO 

DER3A 

i 

SINRHO 

E0UA3 

0 

SINRHO 

HGOELA 

i 

SINRHO 

ITO  DELB 

i 

SINRHO 

OUT 

i 

SINRHO 

PDBC 

i 

SINRHO 

P0Y3A 

i 

SINRHO 

( FT  > 

/ORBIT 

/( 

10  ) 

OUT 

i 

SHTP1AJ 

PDBC 

n 

sniRAj 

/SORT 

/(  S 

1 

ANLATPI 

F 

SORT 

CRASH 

F 

SORT 

DCTOE 

F 

SORT 

0ER3A 

F 

SORT 

ENVPRM 

F 

SORT 

HUNT 

F 

SORT 

mODELA 

F 

SORT 

MODELS 

F 

SORT 

OPUIELL 

F 

SORT 

OUT 

F 

50RT 

PAT63 

F 

SORT 

PAY02 

F 

SORT 

PDBC 

F 

SORT 

P0Y3A 

F 

SORT 

STORE 

F 

SORT 

SYMVRT 

F 

SORT 

UTSCH 

F 

SORT 

(FT  ) 

/ORBIT 

/( 

158  ) 

OUT 

I 

STOT 

PDBC 

0 

STOT 

TRTOSZ 

I 

STOT 

( LBS) 

/ GEftIF 

/< 

HI  1 ) 

ACCEL 

1 

T 

BLGCON 

N 

T 

BLR 

1 

T 

8L6 

I 

T 

BL7 

I 

T 

BL8 

I 

T 

EL2 

1 

T 

E0UA3 

0 

T 

FH1 

I 

T 

FH2 

I 

T 

FH3 

I 

T 

F HR 

I 

T 

I mpul 

I 

T 

OUT 

I 

T 

PROPB 

0 

T 

PROPIN 

0 

T 

REU3 

0 

T 

SDER3 

I 

T 
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540 


FORTRAN 

SYNBQL 


HATH 

synbol 


cooe 


DESCRIPTION 


STQAfl>€ 
BLUL*  lJC 


SU88  cooe 


TIME  + 1 T 1 ■«  (elapsed)  /GENF  /{  H93)  A0ICB3  0 TINE 

AST3  I TINE 
BNTG  N TINE 
C0N3  I TINE 
OTF3  I TINE 
ENVPRN  I TINE 
E0UA3  I TINE 
FNTG  fl  TINE 
NODELA  I TINE 
OUT  I TINE 
PD8C  I TINE 
PROPIN  I TINE 
REUS  N TINE 
RKTA3A  N TT 
RKTB3A  N TT 
VREF3  N TINE 


tineph 

T 

i 

Phase  -Use 

(SECT 

/GENF 

/( 

318  1 

EQUA3 

0 

TINEPH 

P 

FNTS 

N 

TINEPH 

GETIT 

I 

TINEPH 

GUI  3A 

1 

TI NEPH 

OUT 

I 

TINEPH 

TINES 

T 

i 

Arc  tiae 

(SEC  ) 

/GENF 

/( 

319  ) 

AST3 

I 

TINES 

E0UA3 

0 

TINES 

FNTG 

N 

TINES 

GETIT 

I 

TINES 

OUT 

I 

TINES 

V 

V 

i 

Relative  velocity 

(FT/SEC) 

/5TATE3/( 

1 ) 

ACCEL 

I 

V 

ADIC83  Q (TAR 
ADJUST  N VAR 
AGETB3  0 VAR 
AST3  I VAR 
BLN  I V 
BL7  I V 
BLB  I V 
C0N3  I VAR 
DER3A  I V 
OTF3  I V 
ENVPRN  I VAR 
E0UA3  I V 
NOOELA  I V 
NODELA  I VAR 
NOOELB  1 V 
NTX3A  1 VAR 
OUT  IV 
OUT  I VAR 
PDBC  I V 
PDV3A  I V 
REU3  N VAR 
RKTA3A  N Y 
STP3  I VAR 
TOPN  0 KUOU 
VREF3  N V 
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FOR  1 RAM 
SYMBOL 


HATH 

SYCIBOL 


CODE 


DESCRIPTION 


STORAGE 


block 


LCC 


SUBROUTINE  USAGE 
iUBR  CODE  YAR 


VAR 


VI 


VNU 

hi 


XJ 


XK3 


XL 


xncG 


xnui 


V 


"a 

lit 


J 


Xt|QJ 


M, 


CG 


Relative  velocity 

( FT/5EC) 

/5TAT£3/( 

1 ) 

ACCEL 

1 

V 

AD1CB3 

0 

VAR 

ADJUST 

n 

VAR 

AGETB3 

0 

VAR 

AST3 

I 

VAR 

BLR 

I 

V 

BL7 

I 

V 

BLB 

I 

V 

C0N3 

I 

VAR 

0ER3A 

I 

V 

DTF3 

I 

V 

ENVPRD 

I 

VAR 

E0UA3 

I 

V 

HODELA 

I 

V 

PIOOELA 

I 

VAR 

MODELS 

I 

V 

PITX3A 

I 

VAR 

OUT 

I 

V 

OUT 

I 

VAR 

PDBC 

1 

V 

PDY3A 

I 

V 

REU3 

n 

VAR 

RKTA3A 

n 

V 

STP3 

I 

VAR 

TOPPI 

D 

XUOH 

YREF3 

n 

V 

Inertial  velocity 

(FT/SEC) 

/ORBIT  /( 

1 ) 

OUT 

i 

VI 

PDBC 

i 

ORBPRfl 

PDBC 

n 

VI 

Atnospheric  viscosity  IdynaalcJ 

(SLUGS/FT/SEC) 

/GENF  /( 

311) 

OUT 

i 

VNU 

POBC 

i 

VNU 

Height 

(LBS) 

/GENF  /( 

HU) 

BL5 

I 

U 

ENVPRIB 

i 

u 

E0UA3 

n 

III 

FH3 

i 

u 

OUT 

i 

Id 

PDBC 

i 

U 

REU3 

i 

u 

TRTOSZ 

i 

y 

Control  blend  factor 

/ GENF  /( 

560) 

EL2 

i 

XJ 

E0UA3 

l 

XJ 

OUT 

i 

XJ 

VT 

i 

XJ 

Third  control  vector  governing  equation  value. 

/GENF  /( 

5 7 A ) 

BL2 

0 

XK3 

Corresponds  to  error  in  algebraic 

equat  i on 

BL3 

0 

XK3 

involving  a. 

BLR 

0 

XK3 

BL5 

0 

XK3 

BL6 

0 

XK3 

BL7 

0 

XK3 

BLB  ' 

0 

XK3 

MODELA 

1 

XK3 

OUT 

I 

XX3 

Matrix  of  adjoint  variables 

/ST  ATE3/ < 

2R6) 

ADES3A 

n 

XL 

A0ICB3 

n 

XL 

ADI C3A 

n 

XL 

ADI03A 

n 

XL 

AST  3 

n 

'XL 

B6ET3 

0 

XL 

BST03 

I 

XL 

71TX3A 

I 

XL 

OUT 

i 

XL 

STAU 

n 

XL 

STVRL3 

i 

XL 

TRAN3 

n 

XL 

Aerodynamic  accent  about  center  of 

gravity 

/GENF  /( 

5RR> 

EL2 

I 

XnCG 

( FT-LBS) 

OUT 

i 

XtRCG 

VT 

n 

xncG 

Inertial  longitude 

(RAO) 

/ORBIT  /( 

AT 

OUT 

i 

xnui 

PDBC 

n 

xnui 

5-5-J2 
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iohiran  hath 

symbol  Symbol 


DESCRIPTION 


STORAGE 

blocs  nnr 


SUBROUT 1 NE  USAGE 
SU8R  LOUE  YAH 


0 File  of  ill  output  dita 


! .UNOS . /(  i 


BLICO 

0 

UNDO. 

bnoryc 

0 

. UN06 . 

CRA5H 

0 

LINOS . 

FRENCH 

0 

.UNOS. 

FXDAT 

0 

UN06. 

GEINP 

0 

. UNOfc . 

HUNT 

0 

. LINOS  • 

INEDIT 

0 

. UN06. 

ITER8 

0 

UN06. 

P100ELA 

0 

•UNOS. 

P10MJ 

0 

.UNOS. 

PIP  S I 

0 

UNOS. 

OUT 

0 

•UNOS. 

PAY02 

0 

. UNOS. 

PRINT 

0 

•UNOS. 

PRINTV 

0 

. UNOS. 

PRINT  Id 

0 

UNOS. 

PRITEO 

0 

.UNOS. 

PRITVA 

0 

UN06 . 

PROPIN 

0 

. UNOS. 

PROTHR 

0 

UNOS. 

PRUTSn 

0 

UNOS. 

RANGE 

0 

. UNOS 

5 

0 

. UN06 . 

SOI  NP 

0 

.UNOS. 

SUE 

0 

. UN06 . 

SIZIN 

0 

.UNOS. 

SIZOUT 

0 

.UNOS. 

SOLVE 

0 

. UNOS . 

SPL1C0 

0 

UNOS. 

5PLIZ 

0 

UNOS. 

5PLYNE 

0 

UNOS. 

S5SP 

0 

•UNOS. 

STAU 

0 

. UNOS . 

STPIT 

0 

.UNOS. 

SUMOUT 

0 

UNOS. 

TABIN 

0 

.UNOS. 

TEST 

0 

. UNOS . 

vehdf 

0 

•UNOS, 

WTSCH 

0 

. UN06 . 

UT  VOL 

0 

UNOS. 
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r- 

i 

I/1* 


OUT 


1. 

SUBROUTINE  OUT 

3UT3B 

2. 

connoN/6E«F/ 

SENF 

3. 

♦ DnS(  20) 

,QHGP(  20.21 

VARQt  9 ) 

,T0U9) 

,SYAR{  10) 

,UOC( 20 1 

t 

SENF 

4. 

♦ A(  9,9) 

,ACON(  9) 

,BCQN( 9 ) 

.CBTI<9,9>  .DC0N(9) 

, OTP 

t 

SENF 

5. 

•OTS 

f OT 

,6 

,OPSO 

* 

SENF 

6. 

*R 

,RE 

.HACK 

,PA 

,B0 

,cs 

SENF 

7 

♦vmi 

, PAR 

, ROB 

,C5R 

,VNR 

,SU«SQ 

, 

SENF 

8. 

•SV50 

.TIMEPH 

,TIflES 

.TOP 

,TOS 

, Tfil  9 ) 

SENF 

9. 

♦TST< 201 

,TPH  (20) 

,OIS( 20  > 

01 P(  20  ) 

,T 

, 

GENF 

10. 

♦TLP  1(201 

,TLS 1 (20) 

,DIP1(20) 

, DISK  20  ) 

,TlflE 

,0«P 

, 

GENF 

11. 

•TInpr 

, LIFT 

-DRAG 

.TAX 

TBURN 

,TBU( 20  1 

f 

GENF 

12. 

*AE 

,FP 

,FPOLO 

, FPD 

, flACHR 

,HACHV 

, 

GENF 

13. 

*Qft 

,0V 

, FVAC 

, LI  FT V 

GENF 

19. 

♦LtFTR 

.LIFT  A 

DRAGV 

ORABR 

0RA6A 

, 

GENF 

15. 

* 

LIFT* 

,OBR 

,DB 

,ISP 

,fSPF 

, 

GENF 

16. 

♦ 

ULFT 

, ULFTV 

.ULFTR 

, ULFT A 

, 

GENF 

17. 

♦ XACG 

, XflCGV 

,XI4CGR 

,X*CGA 

,XdCGfl 

, CO  DAE 

GENF 

IB. 

•CULFT 

,CT 

.CALPHA 

,CDE 

,OELTAE 

, SI  0 

, 

8ENF 

19. 

•COO 

,51  DAE 

,XCS 

,2Cfi 

, XJ 

GENF 

2D. 

COrtnOM  / 

GENF  / 

GENF 

21. 

♦ XJV 

. XJR 

,6H 

,GAnnAD 

, XKG 

#XXP 

GENF 

22. 

•FRATEO 

, {rated 

GENF 

23- 

• PI 

,P2 

>3 

, XKl 

, XK2 

. XK3 

GENF 

29. 

• XK1T 

, XX2T 

,XK3T 

,XK10 

,XK20 

, XX3D 

, 

GENF 

25. 

♦ XK1A 

.XX2A 

, XK3  A 

, XKl  V’ 

, XK2  V 

. XK3V 

GENF 

26. 

• XK 1 G 

, XX2G 

, XK36 

, XKl P 

, XK2P 

,XK3P 

, 

GENF 

27. 

• XK1R 

, XK2R 

,XK3R 

, XK 10 

. XK20 

, XK3D 

, 

GENF 

2B. 

• XK1U 

,XK2U 

, XK3U 

. XK  114 

, XK2N 

,XK3* 

GENF 

29. 

•PY 

.PS 

.PP 

.PR 

,P0 

,OPOY( 3,8) 

GENF 

3D. 

REAL  L1FTR  . LIFT  . 

LIFTA.LIFTB  . 

NACH, 

HACHR, 

GENF 

31. 

* ISP.  ISPF.  NACHV.LIFTV  . 1RATED 

FRAT 

32. 

01  PENSION  TPHK  lOl.TSTlt  10) 

SENF 

33. 

E3UI VALENCE<  TLP1.TPH1).(TLS1.TST1 ) 

GENF 

34. 

COfiflON/ST  ATE3/ 

STATE3D 

35. 

♦ VARC14) 

,B*AH  (IS 

, VARL  (99) 

,DVARL(99)  . Y0(  9 > 

,SVY( 10) 

STATE30 

36. 

• XL(  9,9) 

_ YDPl  20  9 ), 

Y05  (20,9) 

.COSGAfS 

, SINGAfl 

.SAVBPl 15) 

STATE30 

37. 

*S  I SJPSI 

.COSPSI 

.SIMRHO 

, COSRHO 

, OCORHO 

,0C0R02 

STATE3D 

38. 

•SVBV  ( 9 >.  ONEGA 

.0PIE6A2 

STATE3D 

39. 

♦ VDV 

, GDV 

,RDV 

,flDV 

,PDV 

,ODV 

STATE3D 

40. 

♦ UDV 

. VD6 

, GDS 

,ROG 

,PDG 

, ODG 

STATE3D 

41. 

• UDG 

, VDR 

, GDR 

.ADR 

,PDR 

.ODR 

STATE3D 

42- 

♦ UDR 

, VDM 

,6Dfi 

,PDR 

, VDP 

STATE3D 

43. 

• GOP 

,PDP 

,ODP 

, UDP 

, VDO 

,600 

STATE3D 

44. 

•POO 

, UDD 

_HTDV 

,HTOR 

STATE3D 

45. 

REAL 

. UDV.  HDR 

5TATE3D 

46. 

C0«n0N/STATE3/ 

STATE3D 

47. 

♦SIN2R0 

.COS2RO 

.C052SR 

5TATE30 

48. 

EQUIVALENCE  IVAR(l).V)  ,(VftR(2) 

, S AR ) ,( VAR( 31.ALT ) , 

<VAR(4),H>  , 

E0UV3 

49. 

•( VAR(5 l.PSI M VAfi( 6). 

RHO).(  VAR( 

7),P1U).(  VAR(8).HT)  . 

( VARC9),S02) 

E0UV3 

50. 

+{ DVAfl( 1 ), 

V0),<0VAR<2 

. G0).(0VAR<3),H0),<  DVAR(4).M0>. 

{ DVARI  5 ),PD ) 

E011V3 

51. 

*{  D V ARC  6 ). 

GO ),  ( DVAfi(  7 

. UD ) . ( OVAfit 8 ), HID ),(  OVARt 9 1.SQ2D  ) 

E0UV3 

52. 

REAL  rt.flU 

.*0 

E0UV3 

53. 

connoN/AEcoa/ 

AEC03 

54. 

* APH0 

. APHR 

.ALPHA 

, VDA 

, GDA 

, POA 

AECP3 

55. 

• SI  WA 

.COS  A 

, PHIO 

,PHID 

, PHI 

,$INPHI 

AEC03 

56 

•COSPHI 

.SOPH 

, PDPH 

, XLAFlAt  9 > 

, XLARP( 9 

,C00 

ACC03 

57. 

• CD  ON 

,CLO 

,FK 

, XCGfl 

,ZCG« 

,CLCP) 

AEC03 

58. 

*cn 

,CflA 

, CF1AH  - CNR 

,cno 

,cno« 

,FKR 

AEC03 

59. 

♦ CLAD 

,CL 

'CLA 

,CL« 

AEC03 

60. 

• CD 

.COA 

,CDfl 

AEC03 

61. 

COflflOH/  ORBIT/  VI. 

GAM, 

PSII, 

xnui , 

P, 

ORBIT 

62. 

• ECC, 

AI NCL. 

ARGP, 

ASCNOO, 

SrtlRAJ, 

APOGEE, 

ORBIT 

63. 

• PERSEE, 

ANOdLY, 

CAP  X, 

CAPY, 

ASYJ1P, 

ENERGY, 

ORBIT 

64. 

* hunt*. 

DVIDV, 

DVIDG, 

ORBIT 

65. 

• BVIUK  , 

OtfIDn, 

OVIOPS, 

DV1DR0, 

0V1DHU, 

0 610  V , 

ORBIT 

66. 

♦ D61D6  , 

D61DH, 

061 D«  , 

DGIOPS, 

OGIDKO, 

DGIOdU, 

ORBIT 

67. 

• DPIOV  , 

OPIDG, 

DPI  OH  , 

DPI  DJI  , 

DPIOPS, 

OPIORO, 

ORBIT 

68. 

• DPIDrtU, 

QrtlOY, 

DflIBS  , 

0(11  DH  , 

DdlDFl  , 

oniDPS, 

ORBIT 

69. 

* DrtlORO, 

Dnionu, 

OPOV  , 

DPDG  , 

DPDH  , 

OP  DR  , 

ORBIT 

70. 

♦ DROPS  . 

DPORO  . 

DPDDU  , 

DECOV  , 

DECDG  , 

OECEJH  , 

ORBIT 

71. 

* DECDN  , 

OECDPS, 

DECDRO, 

DECOflU, 

D10V  , 

01 OG  , 

ORBIT 

72. 

• DIOH 

DID*  , 

DIDPS  , 

OIORO  , 

DIOWU  . 

OBEOV  , 

ORBIT 

73- 

• DBEOG  . 

DBEOH  . 

DBEDfl  , 

06EDPS, 

OBEORO, 

OBEDHU, 

ORBIT 

74. 

• ONOOV  , 

DN0D6  , 

DNQDH  , 

ONODD  , 

DNOOPS, 

DNODRO, 

ORBIT 

75. 

♦ ONOOrtU, 

OSrtDV, 

DSflOG, 

0SF1DH, 

OSflOF), 

OSRDPS 

ORBIT 

y\ 
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WA 
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76. 

COMMON/DRBIT/ 

ORBIT 

77 

* OSMDfiO,  OSRDmU.  DAPOV,  OAPDG, 

OAPOH, 

OAPOM  , 

ORBIT 

78 

• OAPDPS,  DAPORO,  DAPOttU,  OPED V. 

OPcOS, 

OPEDR  , 

ORBIT 

79. 

*DPEDM  , DPEDPS  , OPEOfiO  ,DPEOMU 

D AND  V 

.BANDS 

9 

ORBIT 

80. 

• OANDH  OANDM  DANOPS,  OANDRO, 

DANOMU, 

DCXOV  , 

ORBIT 

81 

* DCXDS  , DCXDH  , DCXDM  , DCXOPS, 

DCXDRO, 

DCXDMU, 

ORBIT 

82 

♦ OCYDV  , DCYOG  , DCYOH  , DCYDM  . 

OCYDPS, 

OCYORO, 

ORBIT 

83. 

* OCYDrtU,  OASOV  , OASDG  , DASOH  , 

OASDM  , 

DASOPS. 

ORBIT 

89 

* DASORO,  DA5DMU,  OENOV  , DENDG  J 

DENDH  , 

DENOM  , 

ORBIT 

85. 

* DENDPS,  DENORO,  DENDMU,  DMQDV  , 

DMODG  , 

DMOOH  , 

ORBIT 

86 

* DflODfl  , DMODPS,  OMODRO,  DMOOMU 

ORBIT 

87 

DIMENSION  OfiBPRMC 18).PP0( 7, 18) 

ORBIT 

88 

EQUIVALENCE  C VI ,GRBPR*M OVIDY.PPO ) 

ORBIT 

89. 

C0MM0N/0RB1T/  YMXRF.5NXLMR, CSlLflR . SOOWN.S CROSS .TD.TC 

ORBIT 

90 

*,SNP5R  , CSPSR  , SNSJ  ,tSGI 

.SPSII 

, CPS  1 1 

ORBIT 

91. 

* STOT  , CSI  , SNI  ,SNSNU 

, CS AND 

, CQSDMU 

ORBIT 

92 

* SIND MU  ,THT  .UTFUEL 

ORBIT  ' 

93 

COMMON/GLO&AL/ 

GLOBAL 

99. 

*GR  ,ER  ,OMGZ  XLAARF 

, YMURF 

,LUM 

GLOBAL 

95 

* . JJQP< 10 ) , IFATAL  .NARC  . NBRAN 

, NEARC 

,10(9) 

GLOBAL 

96 

#, KT A&<  20 ), ITAB< 20  ) ,SIS  , RAXT  AB 

GLOBAL 

97. 

*,6M  ,PSIRF,IPFLS1,  IPFL62, IPFLG3 

IPFLG*t.INE0FL(20) 

GLOBAL 

98. 

ITPSO  , K50  L ,KSL0ftL(8) 

RETAP 

99 

CCMflON/DATA/ 

DATA 

100 

*PI  ,RAO  ,ROI  ,SC 

, UMF 

,TMPF 

DATA 

101 

• FTNA  .CAR  ,J0P1  ,J0P2 

, J0P3 

, J0P9 

DATA 

102 

COMMON  /XCOOES/ 

XCODES 

103 

*ITQ  < 9 >f I COR  (20), III  _ INTB 

,JGIO(  20. 

2 ), JPH  (20, 

X CODES 

109. 

*J5T  (20)  ,NCNST  ,NS& 

, NS  AB 

, NI CNB 

XCODES 

105. 

*12DP  ,ICOP  , IFAU  I FAR 

,IFB 

, IND 

XCOOES 

106. 

♦IOPEN  ,1PH  , ISPH  , ISST 

, I ARC 

.ISTART 

XCODES 

107. 

*!TCT  .ITER  , 1 VAR  ,JK 

,JPS 

,JS 

, 

XCODES 

108. 

*K0P  ,KPST  ,K  'kST 

.NAD 

, NCASE 

XCODES 

109. 

♦ NCN  ,NEQ&  , NEQ  .NOP 

NPH 

XCODES 

no. 

*N$T  , IPST  , IPRINT  ,ISTN 

. 1PHN 

, ISTNB 

XCODES 

111. 

•IPHNB  , 1 fiLKl  , l BLK2  .ISTOP 

, ISTPP 

f L 

XCODES 

112. 

♦IFOB  ,NB  . LB  .MB 

.NPHP 

,NPHB 

9 

XCODES 

113. 

• NCT1N  , NEQF  , I LABt 8 ). JPRP . JSl I . MTT . «PI N( 20 ). JP1 

JP2, JP3 

XCODES 

119. 

COMMON/ ARCDAT/ 

ARCDAT 

115. 

*SREF  ,EJ  .XISP  .TMULT 

, DTNC 

.DTP  I 

# 

ARCDAT 

116 

* I ATM  , IMOQE  , J AER  ,JPRO 

# UMAX 

,6MAX 

f 

ARCDAT 

117 

•XLMAX  , HDMAX  , SMOOT  . ALFMAX 

, PHMAX 

MAEA 

r 

ARCDAT 

116. 

•MAEB  ,nft£C  , MAEfl  ,MAEE 

, MAEF 

,MAE6 

ARCDAT 

U9. 

*HT  , MISP  ,BXCG  ,«ZC6 

mjda 

,mndb 

ARCDAT 

120. 

♦MOB  , XCGR  , ZCGR  , XE 

,IE 

,XT 

ARCDAT 

121 

♦DREF  , MCNO  -RHOB  ,QMULT 

, REMAX 

ARCDAT 

122 

* FR ATE  , ARCD(9) 

RETAP 

123. 

DIMENSION  ARCDAC90) 

ARCDAT 

129. 

E0U1 VALENCEt  SREF, ARCDA > 

AfiCOAT 

125. 

COMMON  / PRINT/  AP(IOO) 

0UT3S 

126. 

DATA  AP  / 100*  037777777777777777777/ 

PO 19 

127. 

1 CONTINUE 

PO 19 

128. 

GAMD-  GAMvRAQ 

10 

129 

PSI 0S=P5I*RAD 

10 

130. 

AP( 1 > = TIME 

DUT3& 

131. 

AP(2>=  ALT 

0UT3B 

132. 

AP(3)=  V 

0UT3& 

133. 

AP<  9 )=G AMD 

APR 

139 

AP(5)=PSIDG 

APR 

135. 

AP<  6 )=  MU*RAD 

0UT3B 

136. 

API  7 )=  RHD*RAD 

0UT3B 

137 

APC6)=  TIMES 

0UT3B 

138 

AP<  9 )-  U 

QUT3B 

139 

«0=0 

0UT3B 

190. 

CALL  PDBC(  “-l.FF-FF.FF-O.MO  ) 

0UT3B 

191 

AP(10)  = VI 

0UT3B 

192. 

AP(  11  ) = GACUvRAD 

0UT3B 

193. 

APC 12)  s PSllvRAO 

0UT3B 

199. 

AP( 13)  = XMUI»RAO 

0UT3B 

195 

AP( 19)  = SCR05S*FTNM 

P019 

196. 

AP(  15)=  TIMEPH 

0UT3B 

197. 

AP(  16  )=  fl 

0UT3B 

198. 

AP(  17)=VAR(NEQ  + 1) 

SIZ 

199. 

AP(  18)=  HI 

0UT3B 

150. 

APC 19)=  HTD 

DUT3B 

1-96 

1 

545 


151. 

API  20)  = STOT  .FINN 

P019 

152. 

API  21  > = SDCNN*FTNll 

PD19 

153. 

R£=0. 

FINI 

I5*i. 

1F<  1ATN.NE.2)  BE=V«RO/VIIU 

FI  NI 

155. 

Aft  22 1=  RE 

00T36 

15b. 

AH  231=  PA 

0UT3B 

157. 

APt  29  RO 

0UT36 

158. 

API  25)=  C$ 

0UT3B 

159. 

APt 26  >=  RACK 

APR 

160. 

API  95  )=JP3 

APR 

161. 

APt  *6)=  XA3 

APR 

162. 

APt 29  ) =APHR 

OUT  38 

163. 

APt 301  =PH10 

0UT3B 

169. 

5 ACHE  = SINA.COSPKI 

P019 

165. 

IFl  AB5I  5ACH1 ).ST.». 1 5ACHX=5I6Nl 1.  SACHI ) 

PO 19 

166. 

SASHI=SINA*5INPH1 

P019 

16T. 

If!  A55ISASK1  ).ST.l.  ) S»SHI=SI6Nt  1..5ASH1  ) 

PO 19 

168. 

AFI92,s  SAPID  * A51*tSACnn»RAD 

PQ19 

169. 

Apt  93)  = P51D6  * ASIWCSA5HI  )#RAD 

P019 

170. 

APt  31)“  XJ 

0UT3B 

171. 

ap<32>=  a 

0UT3B 

172. 

Apt  33)=  XKC8 

0UT38 

173. 

API  39)=  LIFT 

QUT3B 

179. 

APt 35)=  DRAG 

0UT3B 

175. 

APt 36)=  T 

0UT3B 

176. 

IFInO-EO.O.)  60  TO  10 

0UT3B 

10  — 

177. 

API  93 >=-T/K0/6R 

0UT3B 

178. 

SO  TO  20 

QUT3B 

20—i 

179. 

10 

APt  93 > = 0. 

0UT3B 

~n 

180. 

20 

CONTINUE 

0UT3B 

181. 

AP<<»8>=  OEUAE  *RAD 

0UT3B 

182. 

IFCJAER-2)  30,30,90 

0UT3B 

30-, 

183. 

3G 

API  99)=  IT  + LIFT.SINA-DB  - OKA8.COSA)  / U 

0UT3B 

18H. 

Apt  50)=  ( Li FT*CGS A*  OR AS*SI KA  )/  a 

OUT  36 

185. 

SO  TO  50 

0UT3B 

50—t 

1 06. 

9v 

API  95)=  IT.CDO  -»UfT»SINA-OB  -0RA6»CQSA > / 

u 

0UT3B 

167. 

APt  50  ) = ( LlFT*COSA*DfiAS*SlNA-T*SIO  X/ni 

P01*» 

1 68. 

50 

API  51  >=S0BT1  API  99  ).*2«AF(5C»*2) 

POlH 

189. 

AP(  27)=  CL 

PO 1 9 

190. 

APt  28)=  CD 

PO  19 

191. 

API  37 )=  XL(l.NCK) 

AAA 

192. 

APt  38)=  XL<2,NC*> 

AAA 

193. 

APt  39  1=  XUS, ACM) 

AAA 

195. 

API  90)=  XL!  3, NON) 

AAA 

195- 

APt  91)=  XLC6,«C«> 

AAA 

196. 

APt  92)=  XLC  T, ACM) 

AAA 

197. 

198. 

APt  99)=  XL(  9, MCM ) 

CALL  CGOROSt CGSfiHO.SlHBHO) 

P019 
PO  19 

199. 

IF!  1PFLS1.NE.0)  SO  TO  00 

0UT3B 

60—1 

200. 

API  62)=  SR1AAJ  »FTti« 

P019 

201. 

APt  63 )=ECC 

0UT3B 

202. 

AP(69)=AIKCL  * RAD 

0UT3B 

203. 

APt 65)=  AS CKO D*  RAD 

0UT3B 

20*1. 

AP(  66)=  ARSP  * RAD 

0UT3B 

205- 

API  61 )=  AP05EE  i FTKfl 

PO  1 9 

206. 

API  68  )=  PEBSEE  « FTW5 

PG19 

207. 

Apt  69)=  ANQflLV  *RAO 

0UT3B 

208. 

API  70=  Sm«AJ  »2.«PI.S0BTl  SniHAJ/EN) 

0UT3B 

209. 

Apt  71 )=E«ERSV 

0UT3B 

210. 

Apt  72)=HftNTA 

0UT3B 

211. 

AP< 73)  = P*FTN* 

PD19 

212- 

API  79)=HHNTN  /APOSEE 

0UT3B 

213- 

APt  75 )=HKMTrt  / PEBSEE 

0UT3B 

219. 

60 

CONTINUE 

OUT  3B 

215. 

IFIIPFL63.  ME.  0)  60  TO  70 

0UT3B 

70— 

216. 

IF(  ITER. RE-3 ) 60  TO  90 

PO  1 9 

217. 

IFIV.L7.300..0B.ABSICi)S6»N).LT..001)  60  TO 

70 

F I NI 

70  — 

218. 

CALL  CRASH 

0UT3B 

219. 

220. 
221. 
222. 

70 

CONTINUE 

0UT3B 

IF!  1PFLS1.NE.0)  60  TO  90 
API  55 ) = MAR( NE0«2) 

0UT3B 

SIZ 

bo-, 
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223 

AP<56>  = VATU  N£0**|) 

SI 

\l 

1ZH 

AP<5  7)=  VAR<KEfl+5> 

si 

ll 

115 

AP<58>=  VAR<  NEQ*3  ) 

si 

\l 

90 

CONTINUE 

0UT3B 

COLL  PRINTC 1TCT,JTER/3,0,IPRINT1 

0UT3B 

I PR I NT  =0 

PO IH 

RETURN 

0UT3B 

ENTRY  OUTERR 

PO  IH 

WRITE  (6,100) 

P014* 

100 

FORMAT  (N9H  »»•»  CONTROL  01 VERSANCE  (SEE  NEXT  PRINT  BLOCK)  ) 

PQIH 

CALL  POUrtPI  APH0,PHI,1,L,JPB,2P1DP0Y(  3,7),!  ) 
GO  TO  1 

P01H 
PO  IH 

SUBR0UT INE 
PAT63 
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Subroutine  PAT63 


Purpose 

Subroutine  PAT63  computes  atmosphere  properties  and  derivatives  for  the 
1963  Patrick  Air  Force  Base  atmosphere  model. 

Description 

The  reference  for  this  atmosphere  model  is  noted  m Yol  I,  Section  3.3.2. 
This  model  has  some  programming  limitation  that  should  be  noted.  Above 
about  360,  000  feet,  the  mathematical  representation  is  very  poor;  therefore, 
the  properties  are  automatically  fixed  at  that  point  and  partials  are  set  to 
zero.  Below  sea  level,  a similar  procedure  is  employed  in  the  subroutine. 


c- 


HATH 

Symbol 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


SUBROUTINE 
SU6R  CODE 


SC 

SORT 


TF 

UMUF 


I 

Constant  In 

Suther  1 anils 

equation. 

198 

/DATA 

/( 

9 > 

P ADS  1 

D 

SC 

PAT  63 

I 

sc 

F 

Square  root 

f unci  Ion 

/SORT 

/(  i 

) 

ANLATM 

F 

SORT 

CHA5H 

F 

SORT 

DCTOE 

F 

SORT 

DER3A 

F 

SORT 

ENVPRM 

F 

SORT 

HUNT 

F 

SORT 

MOOELA 

F 

SORT 

MODELS 

F 

SORT 

OPWELL 

F 

SORT 

OUT 

F 

SORT 

PAT  03 

F 

SORT 

PAV02 

F 

SORT 

PDBC 

F 

SORT 

PDV3A 

F 

SORT 

STORE 

F 

SORT 

SYDVRT 

F 

SORT 

WTSCH 

F 

SORT 

I 

Constant  i n 

Suther 1 ands 

e q u at  1 o n. 

392 

/DATA 

/( 

t> ) 

PADS1 

0 

TMPF 

PAT  63 

1 

TF 

I 

Co  ns  t ant  In 

Sut  her  1 ands 

equation. 

/DATA 

/( 

5 ) 

PADS1 

D 

UMF 

. 30 1 i 10" ^ 

PAT43 

1 

UMUF 

30  OCT  72  G. 01-96 


FAT  63 


I. 

2 

3. 

H. 

5. 

6. 
7. 
ft. 
9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 

19 

20 
21 
22. 
23. 
29. 

25. 

26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 
39. 

35. 

36. 

37. 

38. 

39. 
HO. 


HI. 

H2. 

H3 

44. 

95 

H6. 

47. 

48. 
HI. 

50. 

51. 
52 
'53. 
5H. 
55. 
56 

57. 

58. 

59. 
60 
61. 
62. 
63. 
69. 
65 
'66. 


69 

70 

71. 

72. 

73. 
7h. 
75 


SUBROUTINE  PAT63(  Q.PV.HGO) 

DlflENSIQN  PVC  8) 

OAT  ft  R0,Rl,R2,R3,R4.fl$R6,R7,R8,R9R10,RllR12,Rl3  / 
8 .3CeG90273H 182425,  3.6752156174349436 
.54871345414796215,  1.4678068127507852 
-.61463378717574666,  -1 .5399754331174728 
82668415705291311,  1 2852426316497672 

-.57234501173756826,  -.62238012815282461 
.17229840038525958,  14809576798626313 

-.018335310293538199  ,-.01349827673004048  , 

S0,S1,S2,53,$4,55,$6_S7,$8,S9,S10,S11,512,S13  / 
8.497018499534999  ,4  168051278711044 

1.001136979720595  

-1.287997400735040 
1 67  40D68445355  95 
-1.176664525367179 
.3640551544325923 
-.03986181926386985 


OAT  ft 


DATA 


3756892095830644  , 

0 01497086070749703. 
.1300346805055508  , 
-.248063347106903  , 
1062741660382213  , 
-.01364547919427445  / 


T0,T1,T2,T3,T4,T5,T6T7,T8,T9,T10T1!T12,T13  / 
-.10248437640715577  , -.20389894971168512 

-.020399380671279852  , .33088492304959274 
-.55473185906456939  , -.55482018087304384 

.9B595655569038398  , .67846024779392942 

- 66677674378491896  40978650717250266 


.19688591214668486 


.1 


-0  020901390466879155  -0  0X1595950191818112  / 
0, Ul i , U12  / 

4.40342043825234 
4.96010494231746 
-5. 601 421 15337547 
- 220023723522458 

o, vi i , viz  / 

1 12706762874920 
10.0440410672136 
-2.23257012396212 
-.478341831166437 

0,U11  U12/ 
.992654769148778 
5 91573933414227 
-3.68807856455253 
-0.250816685602551 


0,X11  •/ 
-7.37560544610898 
53  98019892929005 
15.50685603467332 
2.10573116S88631 


368136922321633 


1 
2 

3 

4 

5 

6 
7 

1 
2 

3 

4 

5 

6 
7 

1 
2 

3 

4 

5 

6 
7 

OAT  ft  U0,l)l,U2,U3,  U4,U5,U6,U7,U8,09,U1 

13  67521561743494  , 1 . 09742690C29592 

2-2  45853514870299,  -7.69987716558737 
38.99669982154836  , -4.57876009390054 
HI  72298400385259  , 1 629053H478H890 

5-. 175477597490526/ 

OATft  VO, VI  VZ, V3, V4  V5 , V6.V7 , V8_V9, VJ 

14  168051278ft 103  , 2.00227395944118  , 

2-5.15198963494015,  0.0748543035374852, 

3 .910242764098854  , -9.41331620293744 
43.64055154432592  , 1 . 1 690158264*043 

5-. 17739122952557  / 

DATA  UG  tfl  U2,  U3,U4  145  U6,U7  IJ6  U9  U) 
rl-  203898949711685,  -.04&79876134&5598, 

2-2  21892743625828,  -2. 7741 4090436523 
34.74922173455749  , -5.33421395027935 
41  96885912146685  , 1.25049506145537 

5-0.150747352493635/ 

DATA  RHO,  PO.AO  /. 00229645  , 2124.0827,1137.98 

DATA  X0,Xl,X2.X3,X4fX5,X6,XT,X8,X9,Xl“  “ 

*1.09742690829592  , 8.80684087650468 

*-30  7995086623495,  24.80052471158729’ 

*-32  051 3206573037,-44. 81 136922T003 75 
*16.29053447848889,  -2.42026095874704  , 

DATA  Z0,Z1 , Z2,Z3,Z4,Z5,Z6,Z7 , Z8.Z9, ZiO, Zll  / 

*-.0407987613425598,  1.98530953829756  . -6  65678230877484 

*-11  0965636174609  , 24.57869667071134 
*-37  3394976519553  ,-29.50462851642021 
*12.50495061455371  , -2.75898354162806 
COmtlON  / SPECO  / UflU2  ,RORR 
DATA  C0EF1,TF5C  / 1.78l8E-4,590./ 

C0«n0N/6L06AL/lOUni4(91  ),JP3 
DATA  CONST  1.  C0NST2/ 

* 4 . 1 61 5334 15E-4,  8 323066830E-4/ 

EQUIVALENCE  (TF,TRPF),t UflUF.UMF) 

COnUDN/DATA/ 

♦PI  ,RAO  ,RD1  ,SC 

*FTNH  , CAR  ,J0P1  , J0P2 

IRH.LT.O.  ) H=0. 

1F(H  ST  370000.)  H=370000. 

X-  (H-  2 £5  )*1  .E-5 

PXBHO  = RO  + X*(R1  + X*(R2  -*X*CR3  +X*(fi4  +X*| R5  +X*(R6  -*X*(fi7  + X#< 
1 R8  +X*(R9  + X*(  RI0  + X*(R11  + X*(R12  ,+  X*R13 ))))}))))))) 

PXF  = SO  ♦ X*(S1  + X *( S2  +X*(S3  + X*  ( S4  +X*<S5  +X*tS6  *X*($7  *X*l 
1 S8  +X#(S9  +X*(S10  + X»{ 511  + X*(S12  + X*S 13  1)  ) ) ) ) 1 1 > > ) > 

PXA  - TO  * X*(Tl-»X  *<  T 2 +X*(T3  +X*  <T4  + XWT5  ♦X»«T6  •»  X*{  T7  + X*( 
1 T8  *X*l  T9  ♦X*mC  + X*lTli+X*(H2  *X*T  13  ) ) ))  1)  ) ) > ) > > 

pv<n=  po*exp<-pxp) 


28  4953304073449) 
17.71973209320163 
-1.80896822992361 


,UMF 
, J0P3 


,TflPF 
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87 
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* + X*( 28  + X*CZ9  + X*C210  + X*2l 1 )))}>)))) ) 

PAT  631 

no. 

ARR  - 1 E~10»PV( 3 >*C QXA  ♦OXA*DXA> 
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TR2  = CQNST2*( P VC  3 )*ARR  + PV(7)*PV(7)) 

PAT63I 

112 

Tn20=  TR*Th 

PAT63I 

113 

ST2  = Z . ST/  TSC/T5C 
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RETURN 
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30  00  90  1-5.8 
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URU2=0. 
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RETURN 
END 
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PAY  02 


Purpose 

PAY02  computes  the  payoff  improvement. 


Description 

The  method  of  computing  the  payoff  improvement  is  described  in 
Sections  12.2  and  1 5.  3 of  Volume  I. 
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FORTRAN  HATH 
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I 

NCN 

OUT 
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SYMBOL 
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STORAGE  SUBROUTINE  USA6E 
aTotK  COC_  SUBR  CODE  VAR 
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n 
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/PARAM 

n 

2761 
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I 
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UT  VOL  0 . UN06. 
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FAV02 
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FTR  , LIFT 

,PP 

,PR 

,P0 

,OPOY( 3,8 ) 

GENF 

51. 
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CDnnON/STS/  STS 
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OTHERWISE  USE  CALCULATED  VALUE  DC  AND  SAVE  IN  DO 

COHN 

197. 

c 

FOR  NEXT  ITERATION. 

COHN 

148 

RAT  = DC/OO 

PAY02 

149 

IFCRAT  ST  85)  EO  TO  150 

UH 

150 

no 

OCON(NCN)  = DC 

PAY02 

151. 

GO  TO  180 

PAYOZ 

152 

150 

CONTINUE 

PAY02 

153. 

I Ft  RAT  LE.l.)  GO  TO  160 

PAY02 

154 

1 Ft  RAT  LE.3  > GO  TO  140 

UH 

155. 

DCONt NCN  )=3 . *Dfl 

UH 

156. 

GO  TO  180 

PAY02 

157 

160 

CONTINUE 

PAYQ2 

156. 

DP$Q=DPSQV( 1 . 85-RAT  1**2 

UH 

159. 

1T0 

OCON(NCN)  =D0 

PAY02 

160. 

180 

CONTINUE 

PAY02 

161 

DO  - DCONt NCN) 

PAY02 

162 

T?T 

CONTINUE 

PAY02 

163. 

c 

PRINT  CALCULATED  STEP  AND  HETRIC  AND  RETURN 

CORN 

164. 

CALL  IPfil4HDP$Q,0PSQ, 1,1,0) 

PAV02 

165. 

CALL  IPRl2HDC,OC,I,l,0) 

PAY02 

166. 

RETURN 

PAY02 

167 

c 

VI-E  CALCULATE  PAYOFF  IMPROVE  ACCOUNTING  FOR  CONSTRAINT 

COHN 

1 68 

c 

MISSES 

CO  PIN 

169. 

200 

OP  =0. 

PAY02 

no. 

NCC  = NO  -I 

PAY02 

171 

DO  210  1=1, NCC 

PAYQ2 

172 

210 

DP  = DP  -Btl.NO)*  DSQU) 

PAY02 

173. 

DP  = OP  / B(NO,NO) 

PAY02 

174. 

DO  230  1=1, NCC 

PAY02 

175. 

DO  220  J=1 . NCC 

PAY02 

176 

220 

XHU.J)  = 6(1, J)  - Btl.NO)  * B(J.NG)/  BIND, NO) 

PAY02 

177 

230 

CONTINUE 

PAY02 

176. 

DO  250  1=1, «CC 

PAY02 

179. 

SOU  ) =0. 

PAY02 

180. 

DO  240  JK=  1, NCC 

PAYOZ 

181. 

240 

SQ(I)  = 5Q(  l > + OSO(JX)  * XFtlJK,I> 

PAYOZ 

182. 

250 

CONTINUE 

PAYOZ 

163. 

in  =o. 

PAYOZ 

184. 

DO  260  1=1, NCC 

PAYOZ 

185. 

260 

xn  = xh  + sot i > * osati ) 

PAYOZ 

186 

I FC DPSG'Xn.GT.O. ) GO  TO  290 

PAY02 

187. 

DC  = DP  + SIG  * SORT ( ( OPSO  -XU)/  BIND, NO)) 

PAYOZ 

188. 

c 

VI “F  ON  SIZING  PROBLEMS  1J0P  WILL  BE  NON-ZERO 

conn 

189 

c 

ON  SECONDARY  PASSES  THROUGH  TRAJ.  PROGRAM 

conn 

190. 

c 

SINCE  THE  OLD  TRAJ.  IS  OPTIMIZED  STEP  SIZE 

conn 

191. 

c 

AND  METRIC  MUST  BE  SHALL  BUT  NOT  EXCESSIVELY 

conn 

192. 

c 

THIS  LOGIC  ASSURES  SENSIBLE  VALUES 

CORN 

193 

IFUJOP.EQ  0)  GO  TO  265 

FINI 

194 

IFtABSCOC)  GT.3.*P«N>  60  TO  265 

F1N1 

195. 

DC=3  *PflIN*SIG 

FINI 

196. 

DPSa=9.*DPS0 

FINI 

197. 

GO  TO  130 

FINI 

198 

c 

VII  PROBLEM  CONVERSANCE  TEST 

COHN 

199. 

V>5 

CONTINUE 

FINI 

20C. 

IF  (ABS  < DC  >.LT.  PAIN)  ITER  =3 

PAYOZ 

201. 

c 

VI I - A CONSTRAINT  MISSES  CAUSING  TROUBLE  TEST 

CONN 

202 

c 

GO  TO  VII-B 

CORN 

203 

IFtSlGNtl  , DC  KNE.SIS)  GO  TO  290 

PAY02 

204 

60  TO  130 

PAYOZ 

205. 

270 

WRITE<  6,280  >«!],<  ( B( I,  J ),J=l, 51,1  = 1, 9 ) 

PAY02 

206 

280 

FOBn«T  (////, 2X.31H  ATX  INVERS.  ERROR  IN  PRVO  NO  =I3/.(E15  6.8E13. 

PAY02 

207. 

16)) 

PAY02 

208. 

CALL  STPlTt 11 ) 

PAY02 

209. 

c 

VII-B  C0N5TA1NT  MISS  PROBLEM 

COHN 

210. 

c 

TEST  IF  IT  HAPPENED  BEFORE  IF  SO  QUIT 

COHN 

211 

c 

ELSE  RESET  TO  RESTORE  CONSTRAINTS  AND 

COHN 

212. 

c 

PRINT  MESSAGE 

COHN 

213. 

2 9 G 

!F( I20P  NE  3)  GO  TO  300 

PAYOZ 

214. 

ITER  =3 

PAY02 

215. 

GO  TD  140 

PAY02 

J'"- 

1 

Jl80- 


|n<H 


290- 


265- 

265- 


J130- 


290- 


3gq— i 


1 140- 
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200  120P  - a 
ITER-I 
HZH-  NCWST 
WRITEI 6,210) 
310  FORMAT  { 
15 

RETUlW 

END 


52H0  PAYOFF  LOSS  PREDICTED, 


PAYQ2 

PAY02 

PAY02 

PAYG2 

REDUCE  CONSTRAINT  fllSSE  PAY32 
PAYQ2 
PftV02 
PAY02 
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SUBR0UT INE 
PDBC 


Subroutine  PDBC 


Purpose 

This  subroutine  computes  functions  of  state  and  a partial  derivative  for 
cut-off,  constraint  and  payoff  targets. 

Description 

PDBC  {and  PDBCQL  in  the  quasi-linearization  module)  contains  the  equations 
for  all  function  target  conditions  available  in  the  trajectory  program.  These 
target  conditions  include  the  orbital  inj'ection  parameters,  entry  range  and 
special  targets  described  in  Section  5 of  Volume  I. 

A key  feature  of  the  logic  in  this  routine  is  concerned  with  the  dependance  of 
orbLtal  parameters  on  one  another.  This  is  accommodated  by  using  masking 
functions  to  trigger  computation  of  the  parameters  needed  to  calculate  the 
desired  function. 

An  example  might  be  when  PDBC  is  called  with  the  variable  code  argument, 

KK  = 17  meaning  eccentricity  is  to  be  calculated.  The  equation  sequence 

necessary  for  this  computation  is: 

ECC  = SQRT  (1.  - RV20MU*  2.  - RV20MU*  CSGI  * CSGI) 

. (RV20MU  is  a function  of  VI) 

CSGJ  = SQRT  (1  - SNGI  * SNGI) 

SNGI  = V * SING  AM /VI 

VI  = SQRT  (V  * V + 2.  * VE  * V * COSGAM  * SINPSI  + VE  * VE) 

Therefore  the  masking  of  variable  MM  and  MASK1,  MASK2,  and  MASK6  is 
non  zero  and  MM  is  less  than  MASK7. 
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ftINCL 

t 

a 

Orbital  Inclination 

cunt)) 

/ORBIT  /( 

T > OUT 

i 

AINCL 

POBC 

fl 

AINCL 

A LT 

h 

i 

Altl tuda 

/STATE3M 

3 ) E0UA3 

I 

ALT 

OUT 

i 

ALT 

POBC 

I 

ALT 

ANOflLY 

* 

r 

True  onomo I y 

(RAO) 

/ORBIT  /< 

13)  OUT 

i 

AHOflLY 

POBC 

« 

ANOflLY 

APOGEE 

R 

0 

Apogee  radius 

<F7) 

/ORBIT  /( 

11  ) OUT 

I 

APOGEE 

a 

PDBC 

0 

APOBEE 

ftRGP 

B 

a 

Orbital  argument  of  pcrlgca 

(RAD) 

/ORBIT  n 

B)  OUT 

t 

ARGP 

P 

POBC 

n 

AEtGP 

fiSCNOD 

a 

a 

Longitude  of  ascending  node 

(RAD) 

/ORBIT  /( 

9)  OUT 

i 

ASCNOD 

POBC 

fl 

A5CHQD 

asyrp 

e 

fl 

Outgoing  «*ymptot« 

(RAO) 

/ORBIT  /I 

16)  POBC 

A 

ASYflP 

CAP* 

X 

0 

1 

/ORBIT  /C 

U>  POBC 

0 

CAPS 

CAPY 

V 

0 

Asymptote  paranetor 

(FT) 

/ORBIT  /( 

15)  POBC 

0 

CAPt 

cosonu 

C 0 S(  fl- Jir  ) 

fl 

Sc«  symbol 

/ORBIT  /l 

163)  POBC 

R 

CDSDflU 

COSGAn 

cost*) 

I 

Sea  symbol 

/MATE3/( 

6B7)  ACCEL 

1 

COSEAfl 

• 

BLR 

i 

COS  GAR 

BL8 

I 

COSGAR 

DEA3ft 

I 

COSGAfl 

EQUA3 

0 

COSGAR 

flODELA 

I 

COSGAfl 

flODELB 

I 

COSGAR 

OUT 

i 

COSGAR 

* 

POBC 

i 

COSGAR 

P0V3A 

i 

CQSGAfl 

COSPSI 

cos(^) 

I 

Set  symbol 

/STATE3/1 

705)  BLH 

i 

COSPSI 

BL7 

I 

C0SPS1 

, 

BLS 

1 

COSPSI 

0ER3A 

i 

COSPSI 

EQUA3 

0 

C05PSI 

ROOELA 

1 

COSPSI 

ROOELB 

l 

COSPSI 

POBC 

1 

COSPSI 

PDY3A 

1 

COSPSI 

CQSRHO 

cos(p) 

I 

Set  symbol 

/5T-ATE3/C 

70T ) BLH 

I 

COSRHO 

BL7 

I 

COSRHO 

BIB 

I 

COSRHO 

DER3A 

I 

COSRHO 

ECUA3 

fl 

COSRHO 

flCOELA 

I 

COSRHO 

flflOELB 

1 

COSRHO 

OUT 

I 

COSRHO 

PDBC 

I 

COSRHO 

PDY3ft 

1 

COSRHO 

cpsii 

cosl  V",  ) 

n 

Cosine  of  Inartlst  azimuth 

/ORBIT  /( 

157)  POBC 

R 

CPSII 

CSftNO 

C 0 s(  i ) 

n 

Sec  symbol 

/ORBIT  n 

162)  PDBC 

n 

C5AN0 

CSGI 

cost  7,  ) 

n 

Cosine  of  Inertia]  flight  path 

angle 

/ORBIT  /< 

155)  POBC 

fl 

CSGI 

CSI 

cost/) 

n 

Cosine  of  Inclination 

/ORBIT  n 

159)  PDBC 

fl 

CSI 

CSPSfl 

I 

Cosine  of  reference  azimuth 

/ORBIT  /< 

153)  POBC 

I 

CSP5R 

r 

REU3 

0 

CSPSfl 

CSXLrtR 

CO  S(  P~Or  ) 

I 

Cosine  of  refernece  latitude 

/ORBIT  /( 

197)  POBC 

I 

CSXLflR 

REU3 

0 

CSXLflR 

DANOG 

0 

Partial  derivative  of  boundary 

condition 

/ORBIT  /( 

109)  POBC 

D 

DANOG 

OANDH 

0 

Partial  derivative  cf  boundary 

co  ndl 1 1 on 

/DRBIT  /t 

105)  PDBC 

0 

DANDH 

DANOn 

0 

Partial  derivative  of  boundary 

condition 

/ORBIT  /( 

106)  PDBC 

0 

OAHDfl 

OANonu 

0 

Partial  derivative  of  boundary 

ccndl t i on 

/ORBIT  /( 

109)  POBC 

0 

DANDRU 

fl  NOV  72  G 01-96 
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fortran 

SYMBOL 

MATH 

SYMBOL 

CODE 

DESCRIPTION 

STORAGE 

SUBROUTINE  USAGE 

BLOCK 

LOG 

SUBR 

CODE  VAR 

DANDPS 

0 

Partial 

derl  vatlve 

of 

boundary 

eondi 

tl  on 

/ORBIT 

/( 

107  ) 

POBt 

0 

DANDPS 

DANORO 

0 

Partial 

derivative 

of 

bo  under? 

condi 

tlon 

/ORBIT 

/{ 

108) 

POBC 

0 

DANDftO 

DA  NOV 

0 

Parti  al 

der  1 vat  He 

of 

bo  under? 

condl 

tl  on 

/ORBIT 

n 

103) 

POBC 

0 

DAKDV 

OAPOG 

0 

Partial 

derl vatlve 

of 

boundar y 

condi 

tlon 

/ORBIT 

n 

00) 

PDBC 

0 

OAP0G 

DAP  OH 

0 

Parti  al 

derl vat! v« 

of 

bo  undary 

condl 

ti  on 

/ORBIT 

n 

91) 

P DSC 

0 

DAP  OH 

OAPOft 

0 

Partial 

der 1 vatlve 

of 

boundar  y 

co  ndl 

tlon 

/ORBIT 

/( 

92) 

PDBC 

0 

DAPO* 

dapohu 

0 

Partial 

der  t vat i ve 

of 

bo  undary 

condl 

tlon 

/ORBIT 

/< 

95) 

POBC 

0 

DAPDmJ 

DAPOPS 

0 

Partial 

derl vat! vc 

of 

bo  undary 

condl 

tlon 

/ORBIT 

/< 

93) 

POBC 

0 

DAPOPS 

oapdro 

0 

Partial 

derl vatl vn 

of 

boundary 

condl 

tlon 

/ORBIT 

/< 

99  > 

POBC 

0 

DAPOftO 

OAPOV 

0 

Parti  al 

der  t vatl ve 

of 

boundary 

co  ndl 

tlon 

/orbit 

/< 

89) 

POBC 

0 

DAPO  V 

OASDG 

0 

Partial 

derivative 

of 

boundary 

condi 

tlon 

/ORBIT 

/( 

125) 

PDBC 

0 

DASDG 

DASDH 

0 

Parti  al 

dtr i vatlve 

of 

boundary 

eondi 

tlon 

/ORBIT 

/( 

126) 

POBC 

0 

DASDH 

DASDH 

0 

Parti ol 

dart  vatl ve 

of 

boundary 

condl 

tlon 

/ORBIT 

n 

127) 

POBC 

0 

OASOK 

DASOriU 

0 

Partial 

of 

boundary 

condi 

tlon 

/ORBIT 

n 

130) 

POBC 

0 

DA5DHU 

DASDPS 

0 

Partial 

derl vatl ve 

of 

bo  undary 

condl 

tlon 

/ORBIT 

/i 

128) 

POBC 

0 

DASDPS 

OASDRO 

0 

Parti al 

der  I vat  He 

of 

bo  undary 

condl 

tlon 

/ORBIT 

/< 

129) 

POBC 

0 

DASDRO 

DASDV 

0 

Partial 

derl vat  1 ve 

of 

boundary 

condl 

tlon 

/orbit 

/( 

129) 

POBC 

0 

DASDV 

D0EDG 

0 

Partial 

derl vat  1 ve 

of 

bo  undary 

condl 

tlon 

/ORBIT 

/<> 

89) 

PDBC 

0 

OBEOG 

dbeoh 

0 

Parti  al 

derl vatlve 

of 

boundary 

condl 

1 1 on 

/ORBIT 

/( 

70) 

PDBC 

0 

DBEDH 

DBED* 

0 

Parti al 

derl vat  1 ve 

of 

boundary 

cond  1 

tlon 

/ORBIT 

/( 

71) 

POBC 

0 

OBEDft 

dbeohu 

0 

Parti  a 1 

derl vatl ve 

of 

boundary 

condl 

t ion 

/ORBIT 

/( 

79) 

PDBC 

0 

OBEOmi 

08EDPS 

0 

Partial 

der 1 vatl ve 

of 

boundary 

condl 

tlon 

/orbit 

/c 

72) 

PDBC 

0 

DBEDPS 

dbeoro 

0 

Parti  a 1 

der 1 vat  1 ve 

of 

boundary 

condl 

tlon 

/ORBIT 

13) 

PDBC 

0 

CBEDRO 

OBEOV 

0 

Parti  a 1 

der 1 vatl ve 

of 

boundary 

condl 

tlon 

/ORBIT 

/< 

68) 

POBC 

0 

DBEDV 

0CX06 

0 

Parti  al 

der 1 vatlve 

of 

boundary 

condi 

tlon 

/ORBIT 

a 

111  ) 

POBC 

0 

DCXOG 

OCXDH 

0 

Partial 

der  1 vat  1 ve 

of 

boundary 

co  ndl 

tlon 

/ORBIT 

/{ 

112) 

POBC 

0 

OCXDH 

OCXDM 

0 

Partial 

derl vatl ve 

of 

boundary 

co  ndl 

tlon 

/ORBIT 

/t 

113  > 

POBC 

0 

OCXDft 

OCXOMU 

0 

Parti  a 1 

der i vat  1 ve 

of 

boundary 

condi 

tlon 

/ORBIT 

/( 

1U) 

POBC 

0 

CCXDHU 

OCXOPS 

0 

Partial 

der i vatl ve 

of 

boundary 

co  ndl 

tlon 

/ORBIT 

/c 

119) 

PDBC 

0 

OCXOPS 

OCXORO 

0 

Parti al 

der i vatl v* 

of 

boundary 

condl 

tlon 

/ORBIT 

n 

115) 

POBC 

0 

OCXORO 

OCXDV 

0 

Partial 

der 1 rati ve 

of 

boundary 

co  ndl 

t i on 

/ORBIT 

n 

110) 

POBC 

0 

OCX0V 

DCVDG 

0 

Partial 

derl vatl ve 

of 

boundary 

condl 

tlon 

/ORBIT 

/t 

118) 

POBC 

0 

OCYDG 

DCYOH 

0 

Partial 

der I vatl ve 

of 

boundary 

condi 

tlon 

/ORBIT 

/( 

119) 

PDBC 

0 

OCYDH 

dcyd* 

0 

Partial 

der I vatl ve 

of 

boundary 

condl 

tlon 

/ORBIT 

/< 

120) 

PDBC 

0 

DCYOH 

DCYDttU 

0 

Parti al 

der 1 vatl ve 

of 

boundary 

condi 

tlon 

/ORBIT 

n 

123) 

PDBC 

0 

DCYDmJ 

DCYDPS 

0 

Partial 

der  1 vat  He 

of 

boundary 

condl 

1 1 on 

/ORBIT 

/( 

121  ) 

PDBC 

0 

DCYDPS 

DCYOfiO 

0 

Partial 

derl vatl ve 

of 

boundary 

condl 

tlon 

/ORBIT 

/( 

122) 

PDBC 

0 

DCYDRQ 

QCYDV 

0 

Partial 

der i vat  I ve 

of 

boundary 

cond  l 

tlon 

/ORBIT 

n 

1 IT ) 

PDBC 

0 

OCYDV 

DECOG 

A 

Partial 

der I vat  1 ve 

of 

boundary 

condi 

t i on 

/ORBIT 

/i 

55) 

POBC 

n 

DECDS 

decdh 

A 

Partial 

derl vatl ve 

of 

bound  ary 

cond  i 

tlon 

/ORBIT 

n 

56) 

POBC 

H 

DECDH 

OECDrt 

0 

Partial 

derl vatl ve 

of 

boundary 

condl 

tlon 

/ORBIT 

/< 

57) 

POBC 

0 

DECDH 

OECDMJ 

0 

Partial 

der  i vat  He 

0 f 

boundary 

condl 

tlon 

/ORBIT 

a 

60) 

POBC 

0 

DECOMU 

decops 

A 

Partial 

derl vatlve 

of 

boundary 

condl 

tlon 

/ORBIT 

n 

56  ) 

PDBC 

A 

DECOPS 

OECORO 

n 

Partial 

derl vatlve 

of 

boundary 

condi 

tlon 

/ORBIT 

n 

59) 

PDBC 

A 

DECDRO 

OECDV 

n 

Partial 

der  Hat  i ve 

of 

boundary 

co  nd  1 

t i on 

/ORBIT 

/< 

59) 

POBC 

A 

DECDV 

DENOG 

0 

Partial 

der  Hat  He 

of 

boundary 

condl 

tlon 

/ORBIT 

n 

132) 

PDBC 

Q 

DEN06 

OEHOH 

0 

Partial 

der  Hat  He 

of 

boundary 

condi 

tlon 

/ORBIT 

/( 

133) 

PDBC 

0 

DENDH 

DEWQrt 

0 

Parti  a 1 

derl vatl ve 

of 

boundary 

condl 

tlon 

/ORBIT 

/t 

139) 

PDBC 

0 

DENOM 

dehomu 

0 

Partial 

der  Hat  He 

of 

boundary 

co  ndl 

tlon 

/orbit 

/( 

137) 

PDBC 

0 

DENDHU 
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FORTRAN 

SYMBOL 

MATH 

SYMBOL 

CODE 

DESCRIPTION 

STORAGE  __ 

SUBROUTINE  USAGE 

BLOCK 

LOC 

SUBS 

CODE  VAR 

OENDP5 

0 

Partial 

der  i 

atl 

VC 

of 

boundary 

condition 

/ORBIT 

/( 

135) 

P.O&C 

0 

OENDPS 

DENDRO 

0 

Partial 

dir  1 

atl 

1* 

of 

boundary 

condition 

/ORBIT 

n 

136) 

PDBC 

0 

OENORG 

OENDV 

0 

Partial 

der  1 

• tl 

V* 

of 

boundary 

eondf 1 1 on 

/ORBIT 

/( 

131 ) 

PDBC 

0 

OENDV 

OGID6 

rt 

Partial 

d«r  1 

atl 

vt 

of 

boundary 

condl 1 1 on 

/ORBIT 

/( 

27) 

POBC 

n 

06IDG 

DGIDH 

a 

Partial 

dir  1 

atl 

ve 

of 

boundary 

c ondi tied 

/ORBIT 

/( 

2B  ) 

PDBC 

A 

D6I0H 

0GI09 

0 

Partial 

der  l 

• tl 

ve 

of 

boundary 

condition 

/ORBIT 

/( 

29) 

PDBC 

0 

DGIDR 

D6IDAU 

0 

Partial 

der  1 

atl 

ve 

of 

boundary 

condition 

/ORBIT 

/( 

32) 

PDBC 

0 

osioni) 

OGIOPS 

n 

Partial 

derl 

atl 

ve 

of 

bo  undary 

condl tl on 

/ORBIT 

/( 

30) 

PDBC 

a 

OGIOPS 

061 080 

A 

Partial 

dtr  i 

atl 

v« 

of 

boundary 

condition 

/ORBIT 

/< 

31  ) 

POBC 

a 

OGIDRO 

DGIDV 

n 

Partial 

dir  1 

atl 

we 

of 

boundary 

condl tion 

/ORBIT 

/( 

26) 

PDBC 

a 

OGIDV 

D1DG 

n 

Partial 

derl 

at  I 

VI 

of 

boundary 

condition 

/ORBIT 

/( 

62) 

PDBC 

n 

01 DG 

DlOH 

n 

Part  la  1 

der  i 

atl 

ve 

of 

boundary 

condl tton 

/ORBIT 

/( 

63) 

POBC 

« 

01  OH 

DIOH 

0 

Partial 

d«r  i 

atl 

v« 

of 

bo  undary 

cond 1 tl o n 

/ORBIT 

/( 

69) 

PDBC 

0 

DIOR 

Diomj 

0 

Partial 

d«r  l 

atl 

VC 

of 

boundary 

condl tl on 

/ORBIT 

/( 

67) 

PDBC 

0 

D10RU 

01  OPS 

n 

Partial 

dtr  l 

at) 

VC 

of 

bo  undary 

condition 

/ORBIT 

/( 

65) 

PDBC 

n 

01  OPS 

DIORO 

« 

Part  l a l 

dtr  1 

atl 

vc 

of 

boundary 

condl tton 

/ORBIT 

/( 

66) 

POBC 

n 

01  ORO 

DIOV 

n 

Partial 

dtr  1 

atl 

vt 

of 

boundary 

condition 

/ORBIT 

n 

61) 

PDBC 

a 

DIOV 

OAIDG 

0 

Partial 

der  1 

atl 

ve 

of 

boundary 

condl tton 

/ORBIT 

n 

91) 

POBC 

0 

Dill  OS 

DAIDH 

0 

Partial 

derl 

atl 

vc 

of 

bo  undary 

condition 

/ORBIT 

n 

92) 

POBC 

0 

DR1BH 

omon 

0 

Partial 

derl 

atl 

VC 

of 

boundary 

condition 

/ORBIT 

n 

93) 

POBC 

D 

DRlDR 

DAIDAU 

0 

Partial 

dtr  I 

atl 

vc 

of 

boundary 

co  ndl 1 1 on 

/ORBIT 

n 

96) 

POBC 

0 

DRIDRU 

oaidps 

0 

Partial 

dtrl 

atl 

ve 

of 

boundary 

condl tlon 

/ORBIT 

ft 

99) 

POBC 

0 

omops 

daidbo 

0 

Partial 

dtr  i 

atl 

vc 

of 

boundary 

condl tlon 

/ORBIT 

/( 

95) 

POBC 

0 

ORIDRO 

omov 

0 

Partial 

der  I 

atl 

ve 

of 

boundary 

condl tTon 

/ORBIT 

/( 

90) 

PDBC 

0 

OPtIDV 

onoos 

0 

Partial 

der  1 

atl 

ve 

of 

bo  undary 

condl tlon 

/ORBIT 

n 

139) 

POBC 

0 

OnODG 

DHODH 

0 

Partial 

der  f 

atl 

ve 

of 

boundary 

condition 

/ORBIT 

n 

190  ) 

PDBC 

0 

DRODH 

daooa 

0 

Partial 

derl 

atl 

vc 

of 

boundary 

condition 

/ORBIT 

n 

191) 

POBC 

0 

drodr 

onoonu 

0 

Partial 

der  1 

atl 

vc 

of 

boundary 

condition 

/ORBIT 

n 

199) 

PDBC 

0 

DR0ORU 

DftODPS 

0 

Partial 

dtr  1 

atl 

ve 

of 

boundary 

condl tl on 

/ORBIT 

/c 

192) 

POBC 

0 

DRODPS 

DrtODRO 

0 

Partial 

der  1 

atl 

ve 

of 

boundary 

condition 

/ORBIT 

n 

193) 

PDBC 

0 

drodro 

D«ODV 

0 

Partial 

der  I 

atl 

we 

of 

boundary 

condition 

/ORBIT 

/t 

138) 

PDBC 

0 

DRODY 

DNOOS 

0 

Part  1 a 1 

der  1 

atl 

ve 

of 

boundary 

eondf t i on 

/ORBIT 

/{ 

76) 

POBC 

0 

ONODG 

DN00H 

0 

Partial 

der  1 

ati 

ve 

of 

boundary 

condition 

/ORBIT 

n 

77) 

PDBC 

0 

dnqdh 

ONODh 

0 

Parti al 

derl 

atl 

ve 

of 

boundary 

condition 

/ORBIT 

n 

78) 

POBC 

0 

QNOOR 

DNOOHU 

0 

Partial 

der  ] 

ati 

ve 

of 

boundary 

condition 

/ORBIT 

/t 

81) 

POBC 

0 

dngdhu 

DNODPS 

0 

Partial 

der  i 

atl 

ve 

of 

boundary 

condition 

/ORBIT 

/( 

79) 

PDBC 

0 

ONODPS 

OHO ORO 

0 

Partial 

der  i 

atl 

ve 

of 

boundary 

condition 

/ORBIT 

n 

60) 

PDBC 

0 

ONODRO 

DN0DV 

0 

Parti al 

der  i 

atl 

ve 

of 

boundary 

condition 

/ORBIT 

/( 

75  > 

POBC 

0 

ONODV 

DP0G 

A 

Partial 

der  1 

atl 

ve 

of 

boundary 

condition 

/ORBIT 

/i 

98) 

PDBC 

A 

DPDG 

DPOH 

n 

Parti  al 

der) 

ati 

ve 

of 

boundary 

cond it i o n 

/ORBIT 

/( 

99  ) 

POBC 

n 

DPOH 

DPOrt 

0 

Partial 

dtr  1 

atl 

vc 

of 

boundary 

condition 

/ORBIT 

n 

50) 

POBC 

0 

DP  DR 

dpoau 

0 

Partial 

der  l 

atl 

ve 

of 

boundary 

condl t i on 

/ORBIT 

/i 

53) 

POBC 

0 

opdru 

DPOPS 

rt 

Partial 

der  i 

atl 

vt 

of 

boundary 

condition 

/ORBIT 

n 

51) 

PDBC 

n 

DPOPS 

OPDRO 

ft 

Partial 

derl 

atl 

ve 

of 

boundary 

condl tl o n 

/ORBIT 

/( 

52) 

POBC 

A 

DPORO 

0P0V 

n 

Partial 

der  I 

at! 

ve 

of 

bo  undary 

condition 

/ORBIT 

/( 

97) 

POBC 

a 

DPDY 

OPEOG 

0 

Partial 

der  i 

atl 

vc 

of 

bo  undary 

condition 

/ORBIT 

/( 

97) 

POBC 

0 

OPEOG 

OPEDH 

0 

Partial 

derl 

atl 

ve 

of 

bo  undary 

condition 

/ORBIT 

/< 

98) 

PDBC 

0 

dpedh 

DPEOft 

0 

Parti  at 

derl 

atl 

ve 

of 

boundary 

condl 1 1 o n 

/ORBIT 

/( 

99) 

PDBC 

0 

DPEOR 

DPEOrtU 

0 

Partial 

der  i 

vatl 

ve 

of 

boundary 

condition 

/ORBIT 

/< 

102) 

PDBC 

0 

oPEomi 

8 NOV  T2  G.Ol-Nt 
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FORTRAN 

SYMBOL 


svmbl  C0DE 


DESCRIPTION 


STORAGE  SUB ROOT] HE  USAGE 

block  loc  subr  code  yar 


OPEDPS 

0 

Partial 

dar I vat l ve 

of 

boundary 

condition 

/ORBIT 

/( 

100) 

PDBC 

0 

OPEOP5 

DPEORO 

0 

Parti al 

der 1 vat 1 v« 

of 

boundary 

condl  tloo 

/ORBIT 

/( 

ion 

POBC 

0 

OPEDRO 

OPEDV 

0 

Partial 

of 

boundary 

condl tlon 

/ORBIT 

/( 

86) 

PDBC 

0 

OPEDV 

DPIOG 

n 

Parti al 

der l vat  1 ve 

of 

boundary 

condition 

/ORBIT 

/( 

31 ) 

PDBC 

ft 

OPIOS 

OPIDH 

n 

Parti  a 1 

derl vat i ve 

of 

boundary 

condition 

/ORBIT 

/( 

35) 

PDBC 

ft 

DPIOH 

DPlDh 

0 

Partial 

der 1 vat i ve 

of 

boundary 

condition 

/ORBIT 

/< 

36) 

POBC 

0 

DP  I DM 

DPIOHU 

0 

Partial 

der l vat?  ve 

of 

bo  undary 

condition 

/ORBIT 

/( 

38) 

PDBC 

.0 

OPIDMU 

OPIOPS 

n 

Partial 

der 1 vat 1 ve 

of 

bo  undary 

condition 

/ORBIT 

/< 

37) 

POBC 

ft 

OPIOPS 

OPIORO 

tn 

Partial 

der 1 vat  1 ve 

of 

boundary 

condl t f on 

/ORBIT 

/< 

38) 

PDBC 

PI 

OPIORO 

OPIOV 

ft 

Parti  at 

der  t vat 1 ve 

of 

boundary 

condition 

/ORBIT 

/( 

33) 

PDBC 

ft 

OPIOV 

OSWJG 

ft 

Partial 

der I vat l ve 

of 

boundary 

condition 

/ORBIT 

/( 

83) 

PDBC 

ft 

dshds 

DSftOH 

ft 

Parti  ml 

der 1 vatl v« 

of 

boundary 

condition 

/ORBIT 

/( 

84) 

PDBC 

ft 

DSflDK 

DSHDH 

0 

Partial 

derivative 

of 

boundary 

condition 

/ORBIT 

/< 

85) 

PDBC 

0 

oswm 

DSHDnu 

0 

Parti al 

der 1 vat 1 ve 

of 

boundary 

condition 

/ORBIT 

/( 

88) 

PDBC 

0 

os  no  mi 

dshops 

ft 

Partial 

der 1 vat i ve 

of 

boundary 

condition 

/ORBIT 

/( 

86) 

POBC 

ft 

oshops 

OSKORO 

ft 

Partial 

derivative 

of 

boundary 

condition 

/ORBIT 

/( 

87) 

PDBC 

ft 

DSnoRQ 

DSHD  V 

ft 

Parti al 

der i vatl ve 

of 

boundary 

condition 

/ORBIT 

/( 

82) 

PDBC 

ft 

dsmdv 

OVIOG  . 

ft 

Part?  al 

der 1 vatl ve 

of 

boundary 

condition 

/ORBIT 

/( 

20) 

POBC 

ft 

OVIDE 

DVIOH 

ft 

Parti al 

der i vatl ve 

of 

boundary 

condition 

/ORBIT 

/C 

21) 

POBC 

ft 

DVIOH 

OVlOrt 

0 

Partial 

der 1 vat l ve 

of 

boundary 

condl ti on 

/ORBIT 

/( 

22) 

PDBC 

0 

DVIOH 

DVIDBU 

0 

Partial 

derivative 

of 

bo  undary 

condition 

/ORBIT 

/( 

25) 

PDBC 

0 

OVIORU 

DVIDPS 

ft 

Partial 

der l vat  1 ve 

of 

boundary 

condition 

/ORBIT 

/( 

23)' 

POBC 

ft 

DVIDPS 

DVIDRO 

ft 

Partial 

der l vatl ve 

of 

boundary 

condition 

/ORBIT 

/( 

24) 

POBC 

ft 

DVIDRO 

DVIDV 

ft 

Partial 

of 

boundary 

condl t Ion 

/ORBIT 

/< 

18) 

POBC 

POBC 

n 

K 

DYIOV 

ppo 

ECC 

e 

ft 

Orbital 

eccentricity 

/ORBIT 

/( 

6) 

OUT 

PDBC 

1 

ft 

ECC 

ECC 

ENERGY 

E 

G 

Entr gy 

/ORBIT 

/( 

IT) 

OUT 

PDBC 

I 

0 

erersy 

ENER6V 

ER 

er 

I 

Earth  radius. 

(FT) 

/GLOBAL/l 

2) 

COORDS 

CRASH 

E0UA3 

GEINP 

PADS1 

PDBC 

sons 

TRTOSZ 

I 

1 

1 

l 

1 

1 

1 

I 

ER 

REH 

ER 

ER 

ER 

ER 

ER 

ER 

F 

ft 

Value  of  boundary  condition  function  or  array  of 
state  derivatives 

/PDBC 

/(* 

) 

POBC 

ft 

F 

gam 

»I 

0 

Inert i a 1 

flight  path  angles 

l RAD  > 

/ORBIT 

/( 

2) 

OUT 

POBC 

I 

D 

SAMI 

SAMI 

GD 

1 

I 

GAR  derivative 

/STATE3/( 

16) 

DER  3 A 
PDBC 

0 

I 

6D 

GO 

G* 

sn 

I 

Product 
co  nst  ant 

of  Menton's  universal  gravitational 
and  the  .as*  of  the  earth.  IFT3/SEC2) 

/GL0BAL/( 

67) 

CRASH 
OUT 
p ADS  1 

I 

T 

0 

EH 

6M 

En 

PDBC 

I 

EM 

B NOV  72  fi. 01-46 
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1)  ACCEL  I SR 
BL5  I SR 
E0UA3  I SR 
FH3  I SR 
GE1HP  I G 
SE1XP  I SR 
GEINP  0 IS 
OUT  I SR 
PAOS1  1 SR 
PDBC  I SR 
HEU3  I GR 
SOINP  I GR 
SIZE  I GR 
S1Z1  I GR 
5SZ2  I GR 
SIZ3  I GR 
SIZR  I GR 
SORG  I GR 
STAU  I GR 

T)  DER3A  0 HD 
PDBC  t HD 

S]  OUT  I HAKTA 
P DBC  A HART  A 

2J  DER3A  0 HTD 
OUT  1 HTO 
PDBC  I HTD 
PDY3A  A HTO 


IATft 

1 

At  oo  s p here  option  flog 

/ ARCDAT/< 

7) 

EQUA3 

1 

iATft 

FXDAT 

I 

lATft 

OUT 

X 

IATft 

PDBC 

I 

TATft- 

a 

VT 

J 

'I  ATft 

I OP 

i 

Option  code 

/PDBC  /(* 

1 

PDBC 

1 

10P 

IPFL61 

1 

1PFLG1/0  supretsts  print-out  of  velocity 

losses  and 

/GLOBAL/C 

69) 

FNTG 

i 

IPFLSl 

Inertial  Euler  angles* 

OUT 

1 

IPFLSl 

PDBC 

1 

IPFLSl 

PRINT 

1 

IPFLSl 

TRTQ5Z 

0 

IPFLSl 

1SKP 

ft 

Redundancy  flag 

/PDBC  /(» 

) 

PDBC 

ft 

I5KP 

J VAR 

c 

tasking  array  counterpart  (powers  of  2.) 

/PDBC  /(« 

) 

PDBC 

C 

J VAR 

K 

u 

Variable  code  nuaber 

/PDBC  /(♦ 

> 

PDBC 

u 

t 

KK 

I 

Variable  code  nuaber 

/PDBC  /(» 

> 

PDBC 

I 

KK 

tins* 

0 

flashing  array  for  dependency  calculation 
parameters  and  partial  derivatives 

of  orbit 

/PDBC  /(♦ 

> 

PDBC 

D 

ftASK 

mj 

n 

l 

Long! tude 

/ST  AT£3/( 

7) 

OUT 

I 

ftU 

PDBC 

l 

HU 

OCORHO 

w*COSRHG 

l 

See  syabel 

/ST  ATE3/( 

70S) 

DER3A 

1 

OCORHO 

EQUA3 

n 

OCORHO 

ftODELA 

i 

OCORHO 

ftDDELB 

I 

OCORHO 

PDBC 

1 

OCORHO 

PDY3A 

I 

OCORHO 

OftGZ 

6? 

I 

Earth  rotation  rate 

(RAD/SEC) 

/GLOBAL/< 

3) 

ADID3A 

i 

OftGZ 

CRASH 

i 

OftEGA 

DER3A 

i 

OftGZ 

EQUA3 

I 

OftGZ 

6E1NP 

i 

OftGZ 

ftODELA 

l 

OftGZ 

flQDELB 

i 

OftGZ 

PDBC 

i 

OftGZ 

P0V3A 

i 

OftGZ 

SOINP 

i 

OftGZ 

TOPft 

1 

OftGZ 

ORBPRft 

vi 

I 

Inertial  velocity 

(FT/SEC) 

/ORBIT  /( 

1) 

OUT 

1 

VI 

PDBC 

I 

ORBPRft 

PDBC 

ft 

VI 

SR  n l Gr  «v  i t«t  l ont  l acceleration  at  surface  of  tKe  eartR.  /6L08AL/1 

r l FT/SEC2) 


HD 

h 

I 

ALT  derivative 

/STATE3/C  l 

HftNTft 

H 

ft 

ftoaentca 

/ORBIT  /(  I 

HTD 

Q 

I 

Heating  derivative 

/STATE3/(  2 

e NOV  72  G.01-N6 


p 

p 

ft 

Si«l< litgt  rictui 

(FT  > 

/ORBIT  /( 

5)  OUT 

1 

p 

PDBC 

ft 

p 

PA 

p 

1 

Atnospherlc  pressure 

( PSF  > 

/GENF  /< 

308 > EQUA3 

ft 

DZft 

r* 

FH2 

I 

PA 

inPUL 

1 

PA 

OUT 

I 

PA 

PDBC 

I 

PA 

SDER3 

I 

PA 

PER  GEE 

R 

0 

Perigee  redigs 

(FT  > 

/ORBIT  /( 

12)  OUT 

1 

PERGEE 

P 

PDBC 

0 

PER8EE 

PPO 

I 

Psrttsl  derivative  of  boundary  condition 

/ORBIT  /( 

19)  PDBC 

ft 

DV1DY 

POBC 

I 

PPD 

PSU 

n 

Inertial  axleuth 

(RAO) 

/ORBIT  /( 

3)  OUT 

I 

PS1I 

I 

POBC 

ft 

PSII 

Q 

q 

i 

Dynamic  pressure 

(PSF) 

/RENT  /( 

303)  ENVPRft 

I 

0 

EQUA3 

ft 

Q 

OUT 

I 

0 

PDBC 

I 

0 

VT 

I 

c 

R 

R 

I 

Radial  distance  fro*  earth  center  to  vehicle 

(FT) 

/6ENF  n 

305)  BLR 

I 

R 

BL7 

I 

R 

BL8  . 

1 

R 

DER3A 

I 

n 

E0UA3 

ft 

R 

* 

nOOELA 

I 

R 

ftOOELB 

I 

R 

PDBC 

I 

R 

POY3A 

l 

R 

TRTOSZ 

I 

R 

RE 

R 

n 

Unit  reynolds  nuobtr 

( 1/FT) 

/GENF  /( 

306)  OUT 

ft 

RE 

• y 

POBC 

ft 

RE 

RO 

i 

At  mo s □ her  1 c density  ( SLUC5/FT**3  ) 

/GENF  /( 

309  ) BL7 

I 

RO 

BL8 

I 

RO 

DER3A 

1 

RO 

EQUA3 

1 

RO 

OUT 

2 

RO 

PDBC 

I 

RO 

PDY3A 

1 

RO 

ROR 

i 

Deri*.  Of  density  ort  alt. 

/GENF  /( 

313)  BL7 

I 

RQR 

BL8 

X 

ROR 

EQUA3 

I 

ROR 

PDBC 

I 

ROR 

PDV3A 

I 

ROR 

5 

« 

Partial!  of  boundary  conditions 

/PDBC  /(* 

) PDBC 

ft 

S 

SCROSS 

0 

Cross  range 

(FT) 

/ORBIT  /( 

199)  OUT 

I 

SCROSS 

c 

POBC 

0 

SCROSS 

SD 

n 

Rate  of  change  of  boundary  condition  function 

/PDBC  /(* 

> PDBC 

ft 

SD 

SOOUN 

0 

Oo*n  range 

(FT) 

/ORBIT  /( 

196)  OUT 

I 

SOOUN 

0 

POBC 

0 

SDOWN 

SINDflU 

s 1 n(  *i-Mr  ) 

ft 

See  syabol 

/ORBIT  /( 

169}  POBC 

ft 

SINDRU 

SINGAft 

$ 1 n(  7 > 

i 

See  syabol 

/STATE3/( 

688)  8L9 

I 

SING Aft 

BL7 

I 

SINGAft 

BL8 

I 

SINGAft 

DER3A 

I 

5 1 NS Aft 

EQUA3 

0 

SINGAft 

ftODELA 

I 

SINGAft 

rtOOELB 

1 

SINGAft 

PDBC 

I 

SINGAft 

PDV3A 

1 

SINGAft 

SDER3 

1 

SINGAft 

8 NOV  72  6 01-96 


FORTRAN  HATH 

SYMBOL  SYMBOL 

SINPSI  sln(*> 

SINRMO  si  nip) 

SniNAJ 

Snsi  si  nt  ) 

SHBNU  Slnllf) 

SNI  slnl/I 

SNPSR  stnl*.) 

SNJLBR  s i n(  P~Pr  > 

SPSli  $ I n(  V'j  I 

SO 


SORT 


STOT  St 

8 NOV  72  G 01-N6 


cooe DESCRIPTION 

I See  syabol 


1 See  syabol 


A Seet.iajor  aiU  < FT ) 

n Sine  ol  inertial  flight  path  angle 
A See  syabol 

n Sin*  of  Inclination 

! Sine  of  reference  atiitith 

I Sine  of  reference  latitude 

A Sin  of  Inertial  axlcutfc 

1 A synthesis  data  array  (37,5)  that  contains  the 
flyback  data  and  scae  injection  quantities 


F Square  root  function 


0 Total  range  (FT) 


STORAGE  SUBROUTINE  USAG1 
BLOCK  LOC  SUBR  CODE  VAR 


/STATE3/< 

ION)  BLN 

1 

SINPSI 

BL7 

I 

S1NPSI 

6L8 

1 

SINPSI 

DER3A 

I 

SINPSI 

E0UA3 

0 

SINPSI 

RODE LA 

I 

SINPSI 

HODELB 

I 

SINPSI 

PDBC 

l 

SINPSI 

P0Y3A 

I 

SINPSI 

/STATE3 /( 

706)  BLN 

I 

SINRHO 

BL7 

I 

SINRHO 

6L8 

I 

SINRHO 

DER3A 

I 

SINRHO 

E00A3 

0 

SINRHO 

HOOELA 

I 

SINRHO 

rtOOELB 

1 

SINRHO 

OUT 

I 

SINRHO 

PDBC 

I 

SINRHO 

PDV3A 

I 

SINRHO 

/ORBIT  /( 

10)  OUT 

I 

SniNAJ 

PDBC 

a 

SRI  RAJ 

/ORBIT  /< 

15N)  POBC 

n 

SNSI 

/ORBIT  /( 

161)  POBC 

n 

SN6KU 

/ORBIT  /( 

160)  POBC 

a 

SNI 

/ORBIT  /( 

152)  PDBC 

I 

SNPSR 

REU3 

0 

SNPSR 

/ORBIT  /< 

1*16  > POBC 

l 

5NXLHR 

REU3 

0 

SNXLAR 

/ORBIT  /( 

156 > POBC 

a 

SPSIl 

/SUINS/l 

IN)  ENVPRA 

a 

SB 

FLYBKP 

n 

SO 

ISPRAT 

i 

SO 

POBC 

i 

so 

PRITVA 

i 

so 

RANGE 

a 

so 

HEU3 

0 

so 

size 

0 

5Q 

SUEUR 

n 

so 

51ZIN 

n 

SQ 

STAU 

i 

SO 

5UN0UT 

n 

so 

TAflPAR 

0 

so 

TAMPER 

A 

so 

THRUST 

A 

SQ 

TRTOSZ 

a 

50 

VEHDF 

A 

so 

WT  VOL 

A 

so 

/SORT  /($ 

) ANLATfl 

F 

SORT 

CRASH 

F 

SORT 

OCTOE 

F 

SORT 

0ER3A 

F 

SORT 

ENVPRA 

F 

SORT 

HUNT 

F 

SORT 

MQOELA 

F 

SORT 

HODELB 

F 

SORT 

OPUELL 

F 

SORT 

OUT 

F 

SORT 

PAT  63 

F 

SORT 

PAY02 

F 

SORT 

POBC 

F 

SORT 

PDY3A 

F 

SORT 

STORE 

F 

SORT 

SYnvfiT 

F 

SORT 

UTSCH 

F 

SORT 

/ORBIT  /( 

15B)  OUT 

I 

STOT 

POBC 

0 

STOT 

TRTOSZ 

1 

STOT 

570 


DESCRIPTION 


STORAGE 
BLOCK  LQC 


UBR  CODE  VAR 


Ruco s p 

V, 


fl  Cross  rang*  angle 
H Doan  range  angle 
K Total  rang*  angle 
I Tloe  (elapsed) 


(RAD)  /ORBIT  /( 


1 Longitude  derivative 
I Relative  velocity 


/STATE3/1 
(FT /SEC)  /STATE3/{ 


I State  vector  derivatives  in  steepest  descent  nodule  /$TATE3/( 


VI  See  syabol 
ft  inertial  velocity 

I Oertv.of  viscosity  art  alt- 


151)  POBC 

n 

TC 

iso)  pobc 

n 

TO 

U5>  PDBC 

it 
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1. 

SUBROUTINE  PDBC(K*,F, 

S, SO, IOP 

, isicp  > 

POBC 

2. 

C 

FDBC 

3. 

C 

THIS 

SUBROUTINE 

COMPUTES 

FUNCTIONS  OF  STATE 

AND  PARTIALS 

POBC 

9. 

C 

FOR  VARIOUS  PURPOSES  IN 

TABTOP 

PDBC 

5. 

c 

».  DEFINITIONS*. 

POBC 

6. 

c 

PDBC 

7. 

c 

XX  = 

variable  code  number 

PDBC 

6 

c 

F = 

value  of  function 

PDBC 

0. 

c 

S = 

PARTIAL  DERIVATIVE 

ARRAY 

PDBC 

10. 

c 

SD  = 

time  derivative  of 

F 

PDBC 

11. 

c 

iop  - 

OPTION  FLAG  = 0 = 

COMPUTE  F ONLY 

POBC 

12. 

c 

l = 

COMPUTE  S 

POBC 

13. 

c 

2 = 

ESTIMATE  SD 

IF  P05SIBLE 

PDBC 

19. 

c 

3 = 

COMPUTE  SO 

PDBC 

15 

c 

1 5 KP  = 

BYPASS  FLAP 

TO  INHIBIT  BEDUNOANT  CONFUTATION 

PDBC 

16. 

c 

PDBC 

IT. 

DIMENSION  SC  1 >,FC  I) 

PDBC 

IB. 

COMMON/ ARCDAT/ 

AACDAT 

19. 

♦ SREF 

»EJ 

. XISP 

jTMULT 

.OTNC 

, DTPI 

ARCDAT 

20. 

*1  ATM 

, IttDDE 

, JAER 

, JPRO 

QMAX 

,SF)AX 

ARCDAT 

21. 

♦XLRAX 

, HDHAX 

,GMOOT 

t ALFMAX 

,PHMAX 

flAEA 

ARCDAT 

22. 

♦ MAEB 

,*AEC 

, MACD 

, MAEE 

.flAEF 

, MAEG 

ARCDAT 

23 

♦ MT 

. Ml  SP 

, MXCS 

,M2C6 

, MUDA 

,MWDB 

ARCDAT 

29. 

♦ MDB 

,XCGR 

, ZCSR 

, XE 

'ZE 

XT 

ARCDAT 

25. 

«OR£F 

,MCND 

R HO  B 

,OKULT 

, REMAX 

ARCDAT 

26. 

♦ ,FRATE 

, ARCDt 9 ) 

RETAP 

27. 

DIMENSION 

ARCDAC  90) 

ARCDAT 

28. 

E0U1 VALENCEC SREF. ARCDA  ) 

ARCDAT 

29. 

C0IW0N/STATE3/ 

STATE3D 

30. 

♦ VAR( 19) 

, DVAR  ( 19),  VARL  ( 99)  ,DVARL(99) 

,Y0(9) 

, S VY(  10) 

t 

STATE30 

31 . 

• XLC  9,9) 

,YBP(  20,9  ), 

VOS  (20, 

9 > COS  GAM 

SINGAM 

,5AVBP( 15 1 

STATE3D 

32 

♦SiNPSI 

.COSPSI 

.S1NRH0 

, CQSRHQ 

OCORHO 

,0CDRO2 

STATE3D 

33. 

*S  VBV  (9), OMEGA 

,0MEGA2 

STATC3B 

39. 

*VOV 

, 6DV 

, RDV 

.MOV 

,P0V 

,00V 

t 

5TATE30 

35. 

♦UOV 

.VOS 

, GDG 

,R06 

,POS 

,006 

9 

STATE3D 

36. 

♦UD6 

, VOH 

, GOR 

, MQR 

,PDR 

,ODR 

t 

STATE3D 

37 

♦UOR 

,VDM 

,GDM 

, MOM 

fpom 

,VOP 

r 

STATE30 

38 

♦ GDP 

,PDP 

.OOP 

,UDP 

, VO0 

, 6D0 

STATE3D 

39 

♦POO 

»UDQ 

f HTDV 

,HTOR 

STATE3D 

90. 

91 

REAL  MDM  , MDV,  MDR 
COMMONEST  ATE3/ 

5TATE3D 

5TATE3D 

92 

♦S1N2R0 

, C0S2R0 

, C0S2SM 

STATE3D 

93 

EQUIVALENCE  C VAR<  1).  V ) A VAfl(2).GAPl)  ,(  VAR(3),ALT) 

,(  VAR(9),rt>  # 

EQUV3 

99 

♦ < VARl  5 >.P5I ),(  VARt  6), 

RKOl.l  VARC  7>,mn.<  VAR(8).HT)  , 

( VAR<9),SQ2)/ 

EQUV3 

95 

♦t  0 V ARC  l > 

VD),C  DVARC2 

, GO  > , C DVAR( 3>.HD  ).( DVAR<  9 >,M0  ) 

, < DVARC  5 ) . PO ) 

EQUV3 

96 

♦ ( DVAR( 6 > 

OD ).  ( OVARC  7 

. UD).(DVAR(8),HTD),C  DVARC  9 ),  S02D  ) 

E0UV3 

97 

98. 

REAL  R.RU.MD 
COMMON/ GEHF/ 

E0UV3 

GENF 

99. 

*OMG( 20 ) 

,GnGPI2C,Z 

, VARQ(9) 

,T0  L(  9 > 

.SVAR(IO)  .UOCC  20  ) 

GENF 

50. 

♦ A(9,9> 

,Aco«m 

, BCON( 9 ) 

,COTI(  9,9) 

,DCON(  9) 

,DTP 

GENF 

51. 

♦ OTS 

,DT 

/G 

,OPSO 

,0 

,QS 

GENF 

52 

*R 

,RE 

,MACHr 

,PA 

,00 

,CS 

GENF 

53 

• VNU 

.PAR 

, ROR 

, CSR 

, VNB 

,suM$a 

6ENF 

59. 

♦SV5Q 

,TINEPK 

, TIMES 

.TOP 

,T0S 

,TRC9) 

GENF 

55. 

*T5T( 20  > 

, TPH  (201 

, D I $(  20  ) 

, 01 P(  20 ) 

,T 

GENF 

56. 

♦TLP 1< 20 ) 

,TLS1  (20) 

. DIPK20  ) .DTS1C20) 

,TIHE 

,OMP 

GENF 

57. 

♦Tinpfi 

,LIFI 

, DRAG 

.TAX 

,TBUBN 

,TBLJ(  20 ) 

GENF 

58. 
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, FPOLD 

,FPB 

,HACHR 

,MACHV 

GENF 

59. 

♦ OR 

,0Y 

,FVAC 

. LIFTV 

GENF 

60 

♦LIFTR 

, LI  FT A 

ORAGV 

' DRAGS 

DR  ASA 

GENF 

61 

♦ 

LIFTH 

, OBR 

,DB 

,ISP 

, ISPF 

GENF 

62. 

♦ 

ULFT 

, ULFTV 

.ULFTR 

t ULFTA 

GENF 

63. 

♦ XflCG 

, xnCGV 

.XMCSR 

.XMCGA 

,xncsn 

, CODAE 

GENF 

69. 

♦CULFT 

,CT 

, CALPHA 

.COE 

, DELTAS 

,510 

GENF 

65 

♦COO 

,SIOA£ 

,XC6 

,ZC6 

,XJ 

GENF 

6 6. 

COMMON  / 

GENF  / 

GENF 

67. 

♦ XJV 

, XJH 

, 8H 

, GAMMAD 

, xks 

, XXP 

GENF 

68. 

♦FRATED 

, I RATED 

GENF 

69. 

♦PI 

,P2 

;p3 

, XK1 

,XX2 

, XX3 

GENF 

70. 

♦ XX  IT 

,X*2T 

, XK3T 

, XKIO 

,XK20 

, XX3D 

GENF 

71. 

♦ XK1A 

,XK2A 

. XK3A 

, XX 1 V 

, XX2Y 

, XX3V 

GENF 

72. 

♦ XXI  G 

,XK26 

, XK3G 

,XK1P 

, XK2P 

, XX3P 

GENF 

73, 

♦ XX 1 R 

, XK2F 

, XX3R 

, XX 10 

,XK2C 

, XX30 

GENF 

79 

»*XK1U 

, XX2U 

, XX3U 

, xxm 

,XK2N 

, XX3M 

GENF 

75. 

♦ PV 

.PS 

,PP 

,PR 

>0 

,0PDYC3,8) 

GENF 

20  OCT  72  6 01-96 


573 


76.  REAL  LIFTR  LIFT  , LIFTA.LIFTH  , 

77  * ISP.  1SPF,  tnACHV,LIFTV  , IRATEO 

78.  DIMENSION  TPHKIO  },TSTH  10  > 

79.  EQUI VALENCE<TLP1,TPH1 >,< TLSi ,T5T1 > 

80  COnmON/ GLOBAL/ 
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ei . 

*GR 

,EB 

,onsz 

, XLArtRF 

YHURF 

,LUH 

02 

* 

,JJOP( 10) 

. IFflTAL 

.NARC 

. NBRAN 

,NFARC 

,ID(A) 

83 

♦ 

,KT  AB( 20  ), 

ITABC 20 ) 

SIG  , HAXT  AB 

84. 

* 

,GP1 

.PS1RF.IPFLS1.  IPFt63.1PFLG3,IPFLGH, 

NEQFH20) 

85 

* 

I TPSO  . KSOL  . KGLOBLC 8 ) 

86. 

CDnnON/  ORBIT/  VI. 

gafu. 

PSII, 

xnui. 

p. 

87. 

* 

ECC, 
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SninAj, 

AP06EE, 

88. 

* 

PERGEE, 

ANOHLY, 

CAP  X 

CAPY, 

ASYHP, 

ENERGY, 
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* 
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90. 

♦ 
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97. 
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98. 

* 

OBEOG  , 
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¥ 
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101 

ONOORU,  DSHDV, 
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DSHD6, 
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* 
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DAPDG, 

OAPDH, 
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103. 

* 

OAPDPS , 

DAPORO, 

DAPDmJ. 

OPEDV, 

DPEDG, 

DPEOH  , 

104. 

♦DPEDR 

,DPEDPS 

,DPEORO 

DPEOHU 

, D AND V 

0 AMDS 

105. 

* 

DAHDH  , 

DAHOH  , 

DANDPS, 

C ANDRQ , 

DANDHU, 

DCXDV  , 

106. 

* 

DCXDG  , 

OCXDH  , 

DCXDH  , 

DCXOPS, 

DCXDRO, 

DCXOHU, 

107. 

* 

OCVDV  , 

DCVD6  , 

OCYOH  , 

DCYDH  , 

DCYOPS, 

OCVDRO . 

108. 

* 

DCYDHU, 

DASDV  , 

DASOS  , 

CASDH  , 

DASOH-, 

DA5DPS, 

109. 

* 

DASORO, 

DRSDMII, 

OENOV  , 

OENDG  , 

DENDH  , 

OENDB  , 

110 

* 

OENDPS, 

DEWDRO, 

dendhu. 

DHQDV  , 

OrtODS  , 

DHODH  , 

111 

* 

DHODFl  , 

DdODPS, 

DPIOORO, 

DHODHU 

112 

DI PENSION 

orbpbpk  16) 

PPO( 7.18) 

113 

EQUIVALENCE  ( VI , ORBPRM ), < DVI DV, 

PPO) 

119. 

120. 
121 
122 
123 
129 

125 

126 

127 

128 

129. 

130. 

131 

132 
133. 
139. 

135. 

136. 

137 

138 
139. 

190. 

191. 
142 
143. 
194 
145 

146. 

147. 

148. 

149. 

150. 


COrmQN/GRBIT/  YnXRF,$NXLrtR, CSXLfiR,SDOWN, S CROSS ,TD,TC 


115 

*,SNP$R 

.CSPSfl 

,SNGI 

, CS  G1 

.SPSII 

, CPSI I 

116 

* STOT 

,CSI 

,SNI 

, SNSNU 

, CSANO 

,coSDnu 

117. 

* SINOHU 

,THT 

. UTFUEL 

118. 

01  HEWS ION 

JVBBI36) 

HASM  36), 

HS(2) 

EQUI  VALENCE  t J1ASfc(  1 LttSKl  ),<  HASM  2),  HSK2  HASKt  3 ),HSR3>, 

1<  RASM  4),H$K4  ),  (HA5M5  >,HSK5>  ,<HASKl  6 >,HSK6 ) ,(  HR5KC  7 > .rtSKT  ), 


2<PlASK(8),flSK8),  ( HASM  9 ),  HSK9  ) ,<  flASK(  10  >,  nSK  10  > ,(  HASM  li 

3, < HASM  12),ftSK12),(HASM  13  ),  H5X13  >,  ( HASM  14  ) , HSK14  ), 

4 CHASM  15),HSK15  ),  CHASM  16  ),  HSX16  ),  ( HASM  17)  ASK17), 

5 ( HASM  18  ),  fl$K  1 8 ) . C HASM  19  ) , H5K  19  ),  ( HASM  20  ),  n$K20 ) 

6 < flASKC  21  )#«SK21  ),  C HASM  22  >,  H$K22  ) . ( HASM  23  ), HSK23 1, 

7 C HASM  24  ),  H5K24  ),  C HASM  25  >,  HSK25  ) , ( riASKC  26  ),  P1SK26  >, 

8 (PIASM27  )i  P1SK27  ) . ( HASM  28)MSK28>.<  P1A5M29  ),HSK29  >. 

9 CHASM  30  >,flSK30>,  CHASM  31  >,HSK31  >,  CHASM  32KHSK32), 

X C HASM  33  >,flSX33>,  CHASM  34  >,H$X341,  CHASM  35  J.HSX35), 

A CHASM36),flSK36> 

DATA  J VAR  /(JGOOOOl, 0000003.  0000007. 

1 0000010,0000023  "6000043, 

2 0000107,  0000367,  0000517,  0001001, 

3 00C3043,  0005043,  0010023,  0020063. 

4 0040063,  0100043,  0201001,  0400003, 

“ ,04000007 

,0104000107 
,03043001043 


j,nsicii  > 


.010000000 

,0367000367 

,05043001043 

,010004310043 


501000001  ,Q3O6OO03 

6023000023  ,043000093 

70504000517  ,01001001001 

6010023010023  ,020036000063  ' 040036000063 

9 01001001001,  01003400003  / 

OATA  HAS*  t 1,2,  4.  0.  16,  32  , 64,  128.  256  , 512  , 1024,  2048, 
14096,  8192,16384,  32768  , 65536  . 131072  262144  , 524288, 

2 1048576  . 2097152  , 4194304  , 8388608  , 16777216  , 

3 33554432  , 67108864,  134217728,  268435456,  536870912  , 

4 1073741824  , 2147483648  ,4294967296,8589934592  , 

5 17179869184,0/ 

DATA  HS/  03000003,  07000007/ 

REAL  RUB,  R JO  ISPB,  ISPO,  IOVEL,NNB,NO 
COflHGN  /SUING/ 

PHASE  II  SIZING  PARARERERS 


GENF 

FRAT 

GENF 

GENF 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

RETAP 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

•ORBIT 

ORBIT 

ORBIT- 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

ORBIT 

POBC 

PDBC 

POBC 

POBC 

PDBC 

PDBC 

PDBC 

POBC 

POBC 

POBC 

PDBC 

PDBC 

POBC 

PDBC 

POBC 

PDBC 

PDBC 

POBC 

PDBC 

POBC 

POBC 

PDBC 

PDBC 

POBC 

POBC 

POBC 

PDBC 

PDBC 

PDBC 

PDBC 

SIZING 

SIZING 

SIZING 
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151. 

152 

153. 

159 

155. 

156. 

157. 

158. 

159. 

160. 
161. 
162 


*TZ, 

*SV(2S>, 

PHfiS 

*UB0 

*BK1, 

♦OKI. 

♦AEX lT . 

♦ XPL, 
»0V0, 

♦'sll&o 


VVC31. 

SQ(  37.51, 
>E  I SUlNi 
ULOO, 

BK2, 

0K2, 

TVACO, 

TVACB, 

DVB. 

BE  CO  , 

. SVDCON 


opcih).  erob, 
sec  111,  TUT, 

i PAR  AflERERS 

PZ(5>, 

TLN6, 

va. 

SWt  20), 

DUEB. 

DtJED, 

TOLUT, 

upb. 

TwRAT2. 

BK3, 

BK9 

ISIZE, 

TRAFlS, 

TWR ATO 

DK  3 . 

0K9, 

FRFLS, 

IPASS. 

IPSMAX 

NO, 

UFO, 

IDVEL, 

ISPO, 

ISrB, 

NNB, 
«UB, 
B5TG  , 
, 1 HUNT 
10 

UEO, 

«uo, 

ORBI, 

, 10P5TG 

WEB, 

ystg, 

ITNBU  , 

,iszb(i5 

«. 
up  a 

^ITNDU  , 

MLS, 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

SIZING 

OH 

POBC 


163 

169. 

165 

K=1 

MM  = 0617T77 
60  TO  BO 

PDBC 

PD&C 

POBC 

so-| 

166 

10 

CONTINUE 

PDBC 

— 

167. 

1F<  XX  GE  30  > GO  TO  530 

PDBC 

530  — 

168. 

C 

PARAMETER  IS  AMONG  ORBITAL  SET 

PDBC 

169. 

C 

TEST  FOR  EST I NATE  OPTION 

PDBC 

170. 

IF(10P  EO. 21  GO  TO  150 

POBC 

950  — 

171 

K=KX-11 

PDBC 

172. 

IFUOP  EB.O)  60  TO  20 

PDBC 

20— 

173. 

C 

TEST  FDR  PARAMETER  CALCULATION  ONLY 

PDBC 

179. 

R=1 B.K 

PDBC 

175. 

20 

IF( ISKF.EQ.O)  80  TO  90 

PDBC 

HO  — 

176 

30 

nn^ANOC JVARI  K>  -fl$t !5KP>) 

PDBC 

177. 

IF(ftrt.NE-O)  SO  TO  50 

PDBC 

50- 

178. 

IF(X-U  1230, 230, 920 

PDBC 

230- 

179. 

90 

= JVAR{K) 

PDBC 

ieo. 

C 

TEST  AND  COMPUTE  VI 

PDBC 

_ . J 

181. 

50 

IF(O.EQ  AND(  15*9,  nS  Kill  60  TO  60 

PDBC 

60— 

182. 

VE  = fi»  OCORHO 

PDBC 

183. 

VI=  S3RT(  V*V  +2.#1/E*V*CDS6A**SINPSI+¥E*V£> 

POBC 

189. 

IF( nn  IT  W5K2)  GO  TO  230 

POBC 

230- 

185. 

C 

TEST  AND  COHPUTE  GAHHA  INERTIAL  AND 

ITS  IRIS  FUNCTIONS 

POBC 

186 

60 

1FC  ANO(  I’M, nSK2>. EO.O)  GO  TO  70 

PDBC 

Jo— 

187 

SNGI  = V.SINGAH/VI 

PDBC 

188 

GAI1I  = ASINISNG!  ) 

POBC 

189 

CS6I  = SORT ( 1 . - SN6I.SNSI) 

PDBC 

190. 

ISXP  =1 

PDBC 

191. 

IF(NN.LT.MSK3)G0  TO  230 

PDBC 

230 

192. 

C 

TEST  AND  COMPUTE  PSI  INERTIAL  AND  ITS 

TRIG  FUNCTIONS 

POBC 

193 

70 

I Ft  AN0(MM,nSK3).ES.O)  60  TO  BO 

POBC 

So— 

199. 

SP51 1=1  V.COSSA«»SINPSI*V£  >/t  VI  .CSGI J 

POBC 

195. 

PSII  = ATAN2(Y.C0S6AH*SINPSI+YE  . V.C0S6AN.C0SPSII 

PDBC 

196 

cpsii=  cos<psii> 

POBC 

197 

ISKP  =2 

PDBC 

198 

IFCflH.LT.«5K9)  GU  TO  230 

PDBC 

230 

199 

C 

TEST  AND  COMPUTE  Ml  INERTIAL 

PDBC 

200 

80 

IF(  ANO(  PM,MSX1  >.EB.O>  60  TO  90 

PDBC 

5o— 

201 

*MUI  = MU*  OMGZ.TINE 

PDBC 

202. 

IF1XK.IT.0.AND  IPFLS1.NE.0)  GO  TO  510 

PH1SZ 

203. 

IF(MM  LT.MSX5)  60  TO  230 

POBC 

230 

209. 

c 

TEST  AND  COMPUTE  SEMI-LATUS  RECTUM 

PDBC 

205. 

90 

1F(  AND<  rtfl,rtSK5  >.E0  0)  80  TO  100 

POBC 

ICO- 

“l 

206. 

P=  R*R*  VI*VI«  CSGI*CS6I  /6« 

POBC 

207. 

IF( API  LT.flSK6)  60  TO  230 

POBC 

230 

208 

c 

TEST  AND  CDrtPUTE  ECCENTRICITY 

POBC 

209 

100 

1F(  AND(  Pin, ilSKfc  ) EQ.O)  GO  TO  110 

POBC 

*?10— 

210. 

RV20HU  - R*VI*VI/GR 

POBC 

211. 

ECC=  SQRT(  1.  - fiV20rtU*(2.-RV2CWU>*CS6I*CSGI 

) 

PDBC 

212. 

IF(«*  LT.nSK7)  60  TO  230 

PDBC 

230 

213. 

c 

TEST  AND  COMPUTE  INCLINATION  AND  IT5 

TRIG  FUNCTIONS 

PDBC 

219 

no 

IF(AND(MM,MSK7).Efl.<!>  SO  TO  120 

POBC 

?2G  — 

215. 

CS1=  CDSSHD*  5PSII 

PDBC 

216. 

AINCL  - ACOStCSl  ) 

POBC 

217 

SNI  = S1N< AINCL) 

POBC 

218. 

IF(MM.LT.MSK8)  GO  TO  230 

PDBC 

230 

219 

c 

TEST  AND  COMPUTE  ABG.  OF  PERIGEE 

PDBC 

220. 

120 

IF< ANOl  Pm,nSK8 J.EQ.O ) GO  TO  130 

PDBC 

[130- 

1 

10- 
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221. 

222 

223 

224. 

225. 
226 
227 

226. 

C 

CSGNU  r(P  -R  l/R/ECC 

IFt AB5tCSGNU).GT.l  > C5GNU~SIGN(  1., CSGNU) 
GNU  = ACOSt  CSGNU) 

SROI  = SINRHO/SNI 

IF<  ABStSROI ).ST.l  ) SROI  = SIGNU..SROI) 
ARSP  = ASIN(  SROI ) - GNU 
IFlflPI  LT.nSK9>  GO  TO  030 

TEST  AND  COnPUTE  LONS.  OF  ASCENDING 

NODE 

POBC 

FH1SZ 

P08C 

P014 

P014 

F014  i 

POBC 

POBC 

229 

no 

I FT AND(fln,nSK9 ) EQ.O)  80  TO  140 

PDBC 

140— 

230. 

SPSI  = SPSl 1*SI NRHO/SWI 

P014 

231. 

1F( ABS<SPSI > GT.l.  ) SPS1=  SISMC 1 . ,SP$I  1 

P014 

232 

ASCNOO  = xnui  - ASIN(SPSI) 

P014 

233. 

I FC  £n«  LT.NSK10)  SO  TO  230 

POBC 

234 

C 

TEST  AMO  CONPUTE  SENI-NAJOR  AXIS 

POBC 

235 

140 

IFt  ANDtnn.nSIllO)  EQ.O ) SO  TO  150 

PDBC 

T5&— 

236 

SnJHAJ  = fi*6n  /(2.«sn  -R*VI»VI> 

PDBC 

237. 

I FINN  LT  ns«m  GO  TO  230 

PDBC 

238 

C 

TEST  AND  CONFUTE  APOGEE 

POBC 

239 

150 

i Ft amD( nn,  nsxu ) eo.O)  so  to  160 

POBC 

Tfco— 

240 

APG  GEE=  SrtIflAJ*(  1 . + ECC) 

PDBC 

241 

lF(Mrt  LT  NSK12)  80  TO  230 

PDBC 

242. 

c 

TEST  AND  CONFUTE  PERIGEE 

PDBC 

243. 

160 

1F< AND{nn,rtSK12).£C.O)  60  TO  170 

POBC 

J 7 6“ 

244. 

PERGEE  = S«IPIAJ*(  l.-ECC) 

POBC 

245. 

IF<  Nrt.LT  f!SK13)  60  TO  230 

PDBC 

2H6. 

c 

TEST  AND  CONPUTE  TRUE  ANONOLY 

POBC 

247 

170 

!F( AN0(Nn,nSKl3)  EQ  0)  GO  TO  180 

PDBC 

I Sfi— 

248 

ANONLY  = ATAN2<  SNGI/CS6I,  1.-  R/  P > 

PDBC 

249 

I Ft  nn  LT.NSK14)  60  TO  230 

PDBC 

250 

c 

TEST  AND  CONPUTE  CAP  X 

POBC 

251 

180 

mAND<nn,nsKi*i>.EO.o>  go  to  no 

PDBC 

No— 

252. 

CAPX  = P/ECC 

PDBC 

253. 

IF<  Plrt.CT  nsxi5)  SO  TO  230 

POBC 

254 

c 

TEST  AND  COnPUTE  COPY 

PDBC 

255. 

190 

IFt anoi nn, nSKis t.EO  oi  go  to  200 

PDBC 

2oo— 

256. 

CAPY  = P.ECC  / SORT!  ECCECC  -1 > 

PDBC 

257 

IFtnn  LT  nSKl6)  GO  TO  230 

.PDBC 

258 

c 

TEST  AND  COnPUTE  ASSYHPTOTE 

PDBC 

259 

200 

IF(  ANDtrtrt.flSM.)  EO.O)  GO  TO  210 

PDBC 

Sib— 

260 

ASYttP  =:  AfcOSt  l./ECC) 

POBC 

261. 

IFt  nn  LT  nSX17)  60  TO  230 

POBC 

262. 

c 

TEST  AND  COnPUTE  ENERGY 

POBC 

263. 

210 

IFt  ANQC  nn, nS KIT). EO.O)  SO  TO  220 

PDBC 

£20— 

264 

ENERGY  = 2 *BH  / SnlfiAJ 

PDBC 

265 

IFtnn  LT  nsxiB)  SO  TO  230 

POBC 

266 

c 

TEST  AND  CONFUTE  NONEMTUN 

POBC 

267 

220 

I FC  AND<r»N.nSK18>  EQ.O)  GO  TO  240 

POBC 

240— 

268. 

HNNTH=  R*  V J ♦ C561 

POBC 

269 

IF(NN  GE.NSK19)  60  TO  240 

POBC 

2 40— 

270 

IFUK.LT  0)  GO  TO  540 

POBC 

271. 

c 

RETURN  REQ-  ORB.  PARA.  THR0U6H 

ARG.  LIST 

PDBC 

272. 

230 

F = ORBPRN(K) 

PDBC 

273. 

RETURN 

PDBC 

274 

c 

TEST  AND  COnPUTE  PARTI AL5  OF  » INERTIAL 

PDBC 

2 75 

240 

IFt AND(Nn,NSX19>. EQ.O)  60  TO  250 

POBC 

250— 

276. 

OVIPV  =1  V-»R*OCORHO*CGSSAK*SI*.'PSI  )/VI 

POBC 

277 

SNGI=V*SINGArt/VI 

PDBC 

278. 

OVIDG  = -V£*SN6I*$INPSI 

POBC 

279. 

DVIDH  = VE*(V  * C056AN*  SJNP5I+  R^OCORHO )/  (R*VI> 

POBC 

280 

DVION  =0. 

PDBC 

281 

DVIDPS=  VE* V*COSSAH*COSPSI/  VI 

PDBC 

< 

282 

DV10R0=  -SINfiHO*VE*(  V*C0S6Art»SI WPSI+  VE)  / 

(COSRHO*VI) 

PD&C 

28  3 

DVIONU=  0 

POBC 

2 04. 

IF<«N.LT  NSKZO)  80  TO  420 

POBC 

285 

c 

TEST  AND  COMPUTE  PART I AL5  OF  6ANNA 

INERTIAL 

PDBC 

286. 

250 

IFt AND(nn,nSK20). EO.O)  SO  TO  260 

PDBC 

260— 

287. 

VICI  = VI»  CSGI 

PDBC 

288 

T71Q=  - V»  SlNGAn/lYI»  VICI  ) 

PDBC 

289 

DGIDV  - SINSAM/V1C!  ♦ TNO*OVIOV 

PDBC 

230- 


230- 


230- 


230- 


230- 


230- 


230- 


230- 
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290 

291. 

292. 
293 
299 

295 

296 

297 

C 

0G10G  - V*C05GAfl/VlCI  ♦ TI9Q*0VI06 

OGIDH  = TMQ«0VIDH 

0GI0«=0 

061  OPS-  TP1Q*  DV10PS 
0G1 ORO-  TflQ«  DV10R0 
D6I  DfUI=0. 

I Ft  m LT  P1SK21  ) 60  TO  920 

TEST  AND  COMPUTE  PAnTlALS  P5I  INERTIAL 

POBC 

PDBC 

POBC 

POBC 

POBC 

POBC 

POBC 

POBC 

298 

260 

IF< ANOtnm  nSK21 > EQ  0)  GO  TO  270 

POBC 

TiT=, 

299 

mi=  CPSI I ♦CPSI I /(  V*CQ5GAn*C0SPSI  > 

POBC 

300 

DPIOV= 

-ve*  mi/  v 

PDBC 

301 

OP  I DH= 

-DP  I OV*V/R 

PDBC 

302 

OP  1 0G= 

DP  I DH#R*S INGAn/COSGAn 

PDBC 

303 

DP  I DPS 

— 

PDBC 

309 

CPSII*CPSlI/t  C0SPSI*C0SPS1  )+$INPSI#VE  »mi  /cdspsj 

PDBC 

305 

DPIDBO 

= -R*CrtGI*5INRH0*Tni 

PDBC 

306. 

DPI  DflO 

= 0. 

PDBC 

307 

DPIDrt 

= 0. 

PDBC 

308 

I Ft  tnn 

LT.nSK22)  90  TO  920 

PDBC 

309 

c 

1E5T  AND  COHPUTE  PART  I ALS  DF  HU  INERTIAL 

PDBC 

310 

270 

I Ft  AN  DC  Pin,  (15K22  ) EO  0 J GO  TO  280 

POBC 

!e6— 

311. 

oniov 

=0 

PDBC 

312. 

onioG 

=0, 

POBC 

313 

oniDH 

=0 

PDBC 

319 

onion 

=0. 

POBC 

315 

oniDPS 

=0. 

POBC 

316 

OPIIOBO 

= 0 

POBC 

3H. 

DPUDftU 

-1. 

POBC 

318 

i Ft  nn. 

LT  RSKZ3)  60  TO  920 

POBC 

319 

c 

TEST  AND  COMPUTE  PARTI ALS  OF  5Eni-LAT US  RECTUM 

PDBC 

320 

280 

IF(  ANDt  Nrl,mSKZ3  >.EB  0>  6D  TO  Z1 0 

PDBC 

2^6 — 

321 

Tn2“  2 

.»  P /VI 

PDBC 

322 

Trt3=  2 

.*  P / R 

POBC 

323 

T H9=-2 

..P/CSSI  «SNGI 

POBC 

329 

OPOVs 

Tn2*DVIDV  * Tn>(.D6IPV 

PDBC 

325. 

OPOG- 

TH2.DVID6  ♦ TnH»OGIDG 

POBC 

326. 

OPOH- 

TP13  * TB2»OVIOH  ♦ TflN*OGlDH 

PDBC 

327 

op  on* 

0. 

POBC 

326 

OPDPS- 

Tn2»DYIDPS  » Tni»DSIDPS 

PDBC 

329 

OPOR0= 

T|>I2»OVIORO  ♦ TPIH.DGIORO 

POBC 

330 

0P0nU= 

0 

PDBC 

331 

i fc  pin 

LT  nSS2N)  GO  TO  N20 

PDBC 

332 

c 

TEST 

AND  COrlPUT  £ FARTIALS  OF  ECCENTRICITY 

PDBC 

333 

290 

1 Ft  AND(  Pin,nSK29  )-E0  0)  GO  TO  30Q 

PDBC 

Joe— 

339 

Tnn= 

RV20NU  -1. >»RV20RU»CSGI»CSG1/ECC 

POBC 

335 

Tns=  2 

•Tnn/vi 

PDBC 

336 

TM6  s 

RV20NU*(  2 - HV20RU)  * L3SI*  5NGI/  ECC 

POBC 

337 

TM7  - 

tjw  a 

FDBC 

336 

oeco»/= 

TN5»DVIDV  + TPIG.pGI  OV 

POBC 

339 

DECDG= 

Tn5*0VIDG  + TP16»0GI0fi 

POBC 

390 

0£CDH= 

Trt7+  Tn5»0VlDH  + Tnt»DGIOH 

POBC 

391 

DECDn= 

0 

POBC 

392 

OECDPS 

-T P15*0VI DPS  ♦ TM6.DSI0PS 

PDBC 

393 

DECDBO 

=TF15*OVIDR0  ♦ TuGjOGIORO 

PDBC 

399 

OECDMO 

= 0 

POBC 

395 

iFcnn 

LT.F1SR25)  GO  TO  N20 

POBC 

396 

c 

TEST  AND  COMPUTE  PARTI ALS  OF  INCLINATION 

PDBC 

347 

3G0 

IFlANOCrtn ,ri5K25  l.ES.O)  00  TO  310 

POBC 

398 

TM8  - 

-COSRHQ.  CP51I  /5NI 

PDBC 

399 

OIOVs 

THB.DPIOV 

POBC 

350 

D I 06- 

TN8.DPI0G 

POBC 

351 

01  DH- 

TnB.DPIOH 

PDBC 

352 

oion? 

0. 

POBC 

353 

01 0P5= 

TnS.DPI OPS 

POBC 

359 

DIORO= 

5 I NRHO*$PS I 1 /SNI  * TF18.DPIDP0 

POBC 

355 

01  Drtll- 

0. 

PDBC 

356 

iFtnn 

LT  HSK26)  GO  TO  N20 

POBC 

357. 

c 

TE5T 

ANO  COnPGTE  PARTI ALS  OF  ARG  OP  PERIGEE 

POBC 

358 

310 

IF<  ANO(P)n,PlSK2fc>.EO  0)  GO  TO  320 

PDBC 

3zc — 

359 

CGNAfl 

- cost  GNU  ♦ AR6P  ) 

PDBC 

360 

SNGNil 

- SI N(  GNU  ) 

POBC 

361 

DSNOP= 

-1  /( B*ECOSNGNU  > 

POBC 

1-96 

1 

4ZD 


HZO 


HZ  0 


42C 


420 


HZO 
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362. 

OGHOR  - -P-OGHDP/  R 

poec 

263. 

OS-JOE  a -*P-nl/ECC  »OS>JOP 

P08C 

269. 

Tn9  = - SIRSrf2»CST/SHl/SHI/CGHAR 

poac 

265 

DSE3Y  =-0SS5P»0PCV  - BSRD£»OECOY  + TR9»DI0V 

POBC 

366. 

DiECS  =-C3RBr«0PCS  - BSHCE«OECBG  + Tfl9»BI08 

POBC 

367 

DBcCrt  = -BSWS  -BSHBr»6FDH  ~BSHBE»OECBH  ♦ TH9*BIDH 

POBC 

368 

OSEDR  =0. 

PDBC 

369. 

B3E0RD=  CBSRHS/(SH1»CSNAR)-DGNOP»OPORO  -OGROE*OECDRO  +T««»BIDRO 

POBC 

37G 

naEDPS=  -CSRCr.CPGFS  -DSNDE.DECOPS  ♦TN9.0IBPS 

PDBC 

371 

DBECBU=  0. 

POBC 

372. 

IFIKR.LT.RSK27)  SB  TO  *120 

PDBC 

373. 

C 

TE5T  Olio  COMPUTE  PARTIKLS  OF  LQHG.OF  ASCEHOIHS  NODE 

POBC 

37  9. 

320 

IF(  ARBI  AR,ASK2T).Ea.S>  SO  TD  330 

POBC 

375. 

CORD  a-CBSJaSCHGO  -BO-  bbgzotihe) 

POBC 

376 

CtJDBPI  = CPSII  »SIRRHQ/<SHI*CDNO> 

PDBC 

377. 

OHBDRR  = SFSI1»C0SSH0/<SNI»CBND> 

PDBC 

378. 

ONBOI  = - SPSII'SIJJRHB.CSI  /t  S«I»SNI»CDHO  » 

PDBC 

379. 

DN2CV  = BHCBPI.BPIDW  ♦DHOBI »DI BY 

FDBC 

380. 

DHBDG  = BHBBPI*DP10S  ♦ B«D01»BIDS 

PDBC 

381. 

BROOK  = DHDDPI»DPIOK  ♦DH0D1»DIBH 

PDBC 

382 

DHBDR  =0. 

POBC 

383. 

Q HO  DP  S=BRO  BP  I * DP  I CF  S ♦DHODt»DIBPS 

POBC 

339. 

DRBCSBa  CROCKS  ♦DHOBFI *DP I ORB  ♦ DNODI*DIDRO 

PDBC 

385. 

OHOORU=  I. 

PDBC 

386. 

IFCRR.LT.BSK28)  SB  TO  H20 

POBC 

387 

c 

TEST  ARB  CB*?‘JTE  PARTI  ALS  OF  SBIBAJ 

POBC 

366. 

330 

IF(  ARB[R«,RSK28>.Ea.0>  SO  TO  3H0 

POBC 

389 

c 

TEST  FOR  ROBERT  UR 

POBC 

390. 

IFCK.EO.Sfc)  GO  TO  BIO 

POBC 

391. 

DSBDR  = SBIBAJ/R.Cl.  ♦ SBIBAJ«VI*VI/SB> 

PDBC 

392 

0SBBV1=  2.*SBIBAJ*SfllBAJ*¥I  /6B 

PDBC 

393- 

OSRDV  = DSRDY1»OYIOY 

PDBC 

399. 

OSADS  = D5ADVI.0YIDS 

PDBC 

395. 

OSBBH-  DSBDR  ♦ 0SBDV1»0¥1DH 

PDBC 

396. 

DSBOB  = 0. 

PDBC 

397. 

DSBB?S=  BSBBVI*  oyiops 

PDBC 

398 

DSBBRO-  BSBBVI»B¥1DR0 

POBC 

399 

DSRDBU  = 0. 

POBC 

900 

c 

TEST  FOR  EHERGY 

PDBC 

901. 

IFCK.E3.35)  GO  TO  108 

PDBC 

902, 

IFCBB.LT.BSKZ9)  SO  TO  RZO 

POBC 

903 

c 

TEST  AHD  COBPUTE  PARTIALS  OF  BP06EE 

POBC 

909. 

390 

IF!  A*B(*A,rtS«29).Ea.&>  80  TO  350 

PDBC 

905 

DAPDA  = 1.4ECC 

PDBC 

906 

OAPDt  = 5*I*AJ 

POBC 

907 

DAPQtf—  DAP0A*0$*D¥  4 DAP0E*0£CDV 

POBC 

908 

DAPOS  =DAFOA*QS*DS  4 DAPDE*OECDS 

POBC 

909 

DAP0H=0APDA»05ADH  ♦DAPDE*DECOH 

POBC 

910. 

OOPOft  = 0. 

POBC 

911. 

OAPCPS=  DAPDA»DS*B?S  + OAPDE*DECOPS 

PDBC 

912. 

OAPOR 0=  OAFBA*OS«OfiO  + OAPD£*DECORO 

POBC 

913. 

DAFDAD=  0. 

POBC 

919. 

IFtrtH.LT.nS«3G)  GO  TO  920 

PDBC 

915 

c 

TEST  A fed  COMPUTE  PARTIALS  OF  PERIGEE 

POBC 

916. 

350 

IF(  AHD<flB,RSK3S I.EO.O)  GO  TO  360 

POBC 

917. 

OPEDA  = l.-ECC 

PDBC 

918 

DPEBE  = -SBIBAJ 

PDBC 

919 

OPEOtf  - CFEBA«OSRBY  ♦ OPEOE*OECDV 

PDBC 

920. 

DPEDG  = CPEBA.OSrBS  ♦ BFEDE«OECDS 

POBC 

921. 

DPEOU  a BrEBA»05BDH  ♦ BPEBE»DECDH 

PDBC 

922. 

DPEDB  = 0 

POBC 

923. 

OPEBPSr  BPEBA»BSBBPS  ♦DPEDE*OECDPS 

POBC 

929 

DPEaRO=  BPEBA.DSKBRO  ♦dpebe»oecoro 

PDBC 

925 

BPECRJa  0. 

PDBC 

926 

IFtn»_uT.RS*31 ) GO  TO  H2G 

POBC 

92  7 

c 

TEST  ARC  CCRr'JTE  PARTIALS  OF  ANBBOLY 

POBC 

928. 

360 

IFC ARBCflB.BSKil I.Ea.O)  SO  TO  370 

PDBC 

929. 

CSARO  = CBSCAHOBLY) 

POBC 

930 

CS2  = C5AR0-CSAN0 

PDBC 

931. 

COR  = l.  - R/P 

PDBC 

932. 

OARBGI  = CS2/  CSSI/  CSSI/  COH 

POBC 

933. 

CARDS  = CS2»5H3I/CP«CDR»C0R«CSGI I 

POBC 

939. 

0AR3P  = . BAJJOR  » R/P 

PDBC 

530— } 


[Tsd*-^ 


5 7G~1 


920 

920 — _ 
910 1 


920- 


920“ 


578 
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*<35. 

DANDY  = DANQSI *061 0 V ♦ DANDP*DPDV 

P08C 

**36. 

CANOS  = 0ANDS1 *DS1 OS  ♦ DANCP*OPOG 

PD3C 

937. 

0A9DH  = DAWOH  0ft9DSI*DSl0K  + CANQP*OPOH 

P05C 

*♦38. 

DAND4  =0. 

FDBC 

939. 

DA9CPS  = OANDSI *OSIDPS  ♦ CANC?*OPOPS 

POBC 

990. 

0A90RO  = DANDoI *0SI DRO  * OANDP*CPCRO 

PDBC 

991  . 

OANcmi  = o. 

POBC 

992. 

1 F ( R9.LT.fiS K32 ) SO  TO  920 

POBC 

9 43. 

C 

TEST  AND  COMPUTE  PARTI ALS  OF  CAPS 

PDBC 

449. 

370 

I FC AND( fi«,nS<32).Ea.G)  SO  TO  380 

POBC 

445  . 

DCXOP  =1./  ECC 

PDBC 

446. 

DCXOE  = -P/( EtC*ECC  ) 

FOBC 

447  . 

DCXDV  = DCX0P*0PCtf  ♦ CCXOE*DECDV 

PDBC 

44  8. 

OCXOS  = DCXOP«DPDS  + OCXO£*DECOS 

PDBC 

4H9  . 

DCXOH  = OCXDP^DPDH  ♦ ODXO£*BECOH 

PDBC 

450. 

OCXDfi  =0. 

POBC 

H51. 

OCXOPS=  DCXCP*OPDPS  +OCXOE*OECOPS 

PDBC 

*<52. 

DCXDRD-  OCXOP*BPDRO  ♦OCXOE*OECORO 

PDBC 

453. 

OCXD«U=  0. 

PDBC 

459 

IFl  rm.LT.fiSK23l  CO  TO  920 

PDBC 

455 . 

C 

TEST  AND  COMPUTE  PARTI ALS  OF  CAPY 

PDBC 

H56 

360 

! Ft  ANO(  fifi. nSK33  ).E9.0  ) CO  TO  390 

PDBC 

45  7. 

T«1  = ECC+ECC 

FDBC 

*<68 

T92  = Tfll-1 

PDBC 

459 

S0E2  = SQRTt  TR2 ) 

FOBC 

960. 

OCYDP  = ECC/  SQE2 

PDBC 

961. 

OCYDE  = P/S0E2*<  1-  - Till/  TH2» 

PDBC 

*162 

OCYDV  =OCYDP*OPDV  + OCYOE»OECDV 

PDBC 

963. 

DCYOG  =OCYDP  »OPOS  +DCYGE*DECDS 

PDBC 

969 

OCYOH  =OCYOF*OPDH  ♦ OCYOE«DECDH 

PDBC 

965- 

DCYOH  =0 

POBC 

966. 

DCYOPS  =OCYOP*OPOPS  +DCYOE*  OECOPS 

PDBC 

967. 

DCYORO  = DCYDP»OPORO  ♦DCYOE*  OECORO 

PDBC 

968 . 

OCYOrtU  “ 0. 

POBC 

969 

1 Ft  firt.  LT . RSK34 ) SO  TO  920 

PDBC 

970 

C 

TEST  AM)  CGflPTJTE  PARTI  ALS  OF  ASSYfiPTQTE 

PDBC 

971. 

390 

IF*  A«0< 99,95*39 >.£3.  C>  60  TO  920 

PDBC 

972 

SNASY  s SlN(ASYrtP) 

PDBC 

973. 

DASOE  = 1./  < $NASY*ECC*ECC> 

POBC 

979. 

OASDY  = DASDE*DECDY 

POBC 

975. 

DASDS  = DASQE*DEC06 

POBC 

976. 

DASDH  = DASQE'OECDH 

PDBC 

977. 

OASDrt  = 0. 

POBC 

978. 

OASOPS=  DASDE*OECDPS 

PDBC 

979. 

OASORO  = DASOE*  DECDRO 

PDBC 

980. 

DASDftO  = 0. 

POBC 

981. 

SO  TO  920 

PDBC 

982. 

c 

CORPUTE  PARTI ALS  OF  ENERGY 

PDBC 

983. 

900 

CONTINUE 

POBC 

989. 

BENOSN=  -2.*Gfi  / I 591 HAJ*  SrtlfiAJ) 

PDBC 

985. 

OENOY  = DENDS*  * DS9DY 

POBC 

986. 

CENOS  = OENDSfi  * DSRD6 

PDBC 

987. 

DENCH  = OENDSfi  * OSHDH 

PDBC 

988. 

OENOH  = 0. 

PDBC 

989. 

DENOPS=  DEWOSN  * DSHOPS 

POBC 

990. 

DENDfiO=  OENDSfi  * PSfiORO 

PDBC 

991 

DE«OflU=  0. 

PDBC 

992. 

60  TO  920 

PDBC 

993. 

c 

COMPUTE  P ART  I ALS  OF  AOflENTU* 

PDBC 

999. 

9 1 G 

CONTINUE 

PDBC 

995. 

DiU3DR=HfiNTfl/R 

PDBC 

996. 

D*ODYI=  HrtNTfi  / VI 

PDBC 

997. 

OfV)DSI=  - R*  VI  * 5NCI 

PDBC 

998. 

OflODV  = DflODVI*OVIOV  ♦ CftODS!  *DSIDV 

PDBC 

999. 

C90DS  = D90DVJ »0Vl0S+0900ol*DoI  DS 

FDBC 

500. 

Q*ODH  = C9O0R  ♦ DflQDVl  *0VI  CH  ♦D90DSI*DSIDH 

PDBC 

501 . 

090 DN  -0. 

PDBC 

502 

C9DDPS  =Drt0DVl*0V10P5  + C*0QSI*D3I OPS 

PDBC 

503 

090 ORO  =DflQDYl*D YICRQ  ♦ OAODSI*DSIORO 

PDBC 

509. 

DflOOHU  =0. 

POBC 

505  . 

c 

STORE  PARTI ALS  IN  S AND  COMPUTE  SO 

PDBC 

506 

920 

K=iC-18 

PDBC 

920 

92  G 


920 1 


920 
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579 


ft) 


VO 


d 


507 

508 

509 

510 

511 

512 

513 
519. 
515. 

516 

517 


521 

522 


523. 

52*i 


525 

526 


527 

528 


529. 

530 


531 

532 


533 

539 


590 

591 

592 

593 
599 

595 

596 

597 

598 

599 

550 

551 


565 

566 


5b  t 
568 


930 


990 


00  930  J = 1 , 7 
StJ)  =PPO<J,K) 

CONTINUE 

1 Ft 10P.LT.2)  RETURN 
50=  0. 

00  990  J=l,7 

SO  = 50  ♦ S(  J )*F(J> 

CONTINUE 

IFCK  EO  9. OR. it. £0.9)  SD=$0  ♦OPlfiZ 
RETURN 

I OP  = 2 RAP  1 0 ESTIMATE 


OF  TIME  DERIVATIVES 


POBC 

POBC 

POBC 

POBC 

POBC 

POBC 

POBC 

POBC 

POBC 

POBC 

POBC 


518  950  RsKK-Il 

519  IFtK  GT.9JCALL  SIPIT(93) 

520  GO  TO  t960, 970,9 90, 990, 500, 510,510, 510, 510), K 


POBC 

POBC 

POBC 


960  50=  VD 

GO  TO  520 


POBC 

POBC 


970  50=  GO 

GO  TO  520 


POBC 

POBC 


980  SD=  PS10 
60  TO  520 


POBC 

POBC 


990  SO  = UO+ONGZ 
GO  TO  520 


POBC 

POBC 


500  50  = 2 *P/Grt*( HD/R+VD/V 
GO  TO  520 


-GD*5 J NGAM/C056AN) 


POBC 

POBC 


510  SO  = 0 

CALL  STP IT( 99 ) 


POBC 

POBC 


520  RETURN 
C Kit  GE  30 


REENTRY  TYPE  TARGETS 


POBC 

POBC 


535  530  K=  KK-29 

536  IFtlOP  EO  2)  GO  TO  ( 550 , 590 , 61 0,  690, 700, 760, 810  >, K 

537  GO  10  1590,570,600,630,690,750,800) 

538  * ,K 

539  C OOUNRANGE  CALCULATION 


POBC 

POBC 

POBC 

POBC 

POBC 


590  COSOrtU  = COStrtU-YRXRF)  PDBC 

51NDDU  = SIN( flU-YRXRF  ) PDBC 

TDNUI9=  CSPSR*(5INRHO*CSXLnR-COSRHO*SNXLrJR*COSDmn+5NPSR*COSRHO*SIN  POBC 
lOrtU  POBC 

TODEN-  5INRH0*SNXLI*IR  + COSRHG*C$XLnR*COSDFlU  PDBC 

TO  = ATAN2C  TONUH. TODEN)  PDBC 

SDQUN  =TO*Efl  P06C 

1F(KK  LT  0)  60  TO  580  POBC 

IF<  IOP  GT.O)  60  TO  550  POBC 

F-  TD*ER  PDBC 

60  TO  560  POBC 

PARTIALS  OF  DOUNRANGE  PDBC 


960 — | 9 70— 1 980- 
520— [ 


520 — j 


520 — 1 


520-H 


520“ 


990- 


500— | 


5io-» 


550- 


552  550  COSTO  = C0S( TO ) PDBC 

553  S(l)  =0  POBC 

559  St  2 ) -0  POBC 

555  5(3)  =0  POBC 

556  5(9)  =0.  PDBC 

557  S(5>  =0.  POBC 

558  St  6)  =Efi*COSTD*COSTO*<  t CSP$R*(  CO5RriG*CSXLnfi+SlNRH0*SNXLflR*COSDf1U  ) PDBC 

559  1 -SMPSR*SlNRH0*5INDtnU)/T0DEN  - T0NUfl*<  COSRHG+SNXLMR  -SINRHO*CSXL  POBC 

560  2<nfi  ♦ COSDnj)/(TQOEN*TDDEN)  ) PDBC 

561  S(7)  =ER*C05T0*C05TD*t t CSPSR*C05RH0-*5NXLrtR*Sl NO HU  +SNPSfl*CO$R HO  POBC 

562  l*COSOnU )/TOOEN  ♦ TDNUn*CQSRHO*CSXLflfi*SI NOnU/( TDDEN*TDDEN)  ) PDBC 

563  1 F < IOP  EO.l)  RETURN  PDBC 

569  SD  = S(  6 )»F(  6 ) + S<7)*F<7)  POBC 


560  RETURN 
C CROSS 


RANGE  COMPUTATION 


POBC 

POBC 


5 70  COSOrtU  = COSt  rtU“YrtXRf  ) 
siwonu  = siNtnu-YnxRF) 


PDBC 

PDBC 


569  580  CONTINUE  PDBC 

570  ST C = CSPSR  *COSRHO*SINDnU  - $NPSR*(  SI NRHO*CSXLflR  -COSRHO^SNXLflR*  PDBC 

571  1 COSOflU)  POBC 

572.  TC  = ASJN(STC)  POBC 

573.  SCROSS=TC*ER  PDBC 

5 79  I FI KK  LT  0)  60  TO  610  POBC 


550 — | 


590 
570 — ! 


580-1 


610* 

600* 


610— | 


590- 


690 1 

63G— j 


560—1 


700 — j 
690-i 


760- 

750- 


810- 

800* 
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VI 


575 

576. 

577. 
576. 


692 


601 

602 

603 

609. 

605. 

606 

607 

608 
609. 
610 
611. 
612. 
613 
619 


622 


623 

629 


625 


626 

627 

628. 

629. 

630. 

631 

632 

633 
635 


IFt l OP .ST  0)  60  TO  590 

F-TC*ER 

GO  TO  560 

PART  1 ALS  OF  CROSS  RANGE 


PD8C 

PDBC 

PD8C 

POBC 


579.  590  COSTCO  COS(TC)  POBC 

580  Stl>  = G POBC 

581  $t2)=0.  PDBC 

582.  S<  3 )-0.  POBC 

583.  St 9 )=0.  * POBC 

589  $(5)=0.  POBC 

5 85  S<  6 1=  ER;COSTC*(-CSPSR*SlNRHO*SlNOnU  - SNPSR*t COSRHO*CSXLnR+SlNRHQ  POBC 

586  1*  SNXLfiR*  COSDHU ) 7 POBC 

587  St  I > = Eit/COSTC*t  CSFSR*CQSfiMO*COSDrtU  - 5NPSR*COSRHO»SNXLMR*SINDF1U  ) POBC 

568  I Ft  1 OP  E3  1)  RETURN  POBC 

589  SO  - $(  6 )*Ft  6 ) + SI7)*FU)  POBC 

590  RETURN  POBC 

591  C TOTAL  RANGE  POBC 


600  cosomu  = cost  Piu-vnxRF) 


593  610  CONTINUE 

599.  COSTHT  = SJNRHQ*  SHXLrtR 

595  THT  = ACOSt COSTHT) 

596.  STOT  = ER*THT 

597.  lF(KK.LT.O)  RETURN 

598.  1 Ft 10P  ST.O)  GO  TO  620 

599  F=  ER*THT 

600  GO  TO  568 


+ CQSRHO*CSXLNR  * COSDflU 


620  SNTHT  = SINtTHT) 

$( 1 )-0. 

St  2 7=0. 

St  3 >=0. 

SC  9 )=0 
$<5>=0 

St  6 1=  -ER*{  CQSRHO*SNXLnR  -SI  NR90*CS  XLWR»COSDPlU  ) / SNTHT 
SIND«U=  SlNtnU-'VHXRF) 

St  71=  COSRHO*CSXLfiR*Sl«OrtU  / SNTHT 


• £R 
1 Ft IOP 
SO  “ 
GO  TO 


EO  1)  60  TO  560 
St  6 )*F(  6 ) + $(  7 >*Ft  7 ) 
560 


DYNAMC  PRESSURE 


615  630  IFUOP  NE.01  GO  TO  690 

616  F"  Q 

617  RETURN 

618  C PART  I ALS  OF  DYNAH1C  PRE55URE 


619.  690  St  1 ) = 2.*3/V 

620  St  2 ) = 0 

621  IF(IATPl-I)  660.670,650 


650  CALL  STPl Tt  96 ) 


660  CALL  ANLATNt ALT,PA,1 ) 
GO  TP  680 


670  CALL  PAT63t  ALT , PA, 2 ) 


680  St  3 )-Q/fiO»ROfi 
St  9 )-0. 

SC5  7-0. 

St  6 >=0. 

St  7>=0 

I Ft IOP  EO.l)  RETURN 

SO  = Ft  l)*St  1 >+  Ft  3 )*  SC  3 > 

RETURN 

C HEATING  RATE 


635  690  IFtlOP.GT  0)  GO  TO  700 

636  F = HTD 

637  RETURN 

638.  C HEATING  RATE  PART  I ALS 


639  700  St  1 ) = 3.15#  HTO/V 

690  SC  2 ) =0. 

691  I Ft  I ATft  -1  ) 710,720,650 


692 

693. 
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710  CALL  ANLATflt ALT, PA, 1 > 
GO  TO  730 


POBC 


PDBC 

POBC 

POBC 

PDBC 

POBC 

PDBC 

PDBC 

PDBC 


POBC 

POBC 

POBC 

PDBC 

PDBC 

POBC 

PDBC 

PDBC 

PDBC 

PDBC 

PDBC 

POBC 

POBC 

POBC 

PDBC 

PDBC 

PDBC 

PDBC 


PDBC 

PDBC 

PDBC 


PDBC 


PDBC 

PDBC 


POBC 


POBC 

POBC 

POBC 

POBC 

POBC 

PDBC 

PDBC 

POBC 

POBC 


POBC 

POBC 

PDBC 

PDBC 


PDBC 

PDBC 

PDBC 


POBC 

POBC 


1560'-] 


’1 

J560- 


560- 

560- 


66C—1  670-.650- 


B — l 


680  — 


Tgg^ 


no— 1 720—s 


650  — 


3 — 


581 


in 

in 


646.  740  SC4>  =0 

647  SC  5 )=  0. 

6 H 6 . SC  6 1=  0. 

649  Sc  7)=  0* 

650  1FC  1CP.E0.1)  RETURN 

651.  SD  = SUKUJ  4 S13)*F<3> 

652.  RETURN 

653  C REYNOLDS  NUMBER 


72C  CALL  PAT631  ALT, PA ,2) 


645. 


730  5(3)  = 5 * HTO*fieR/fiO 


FDBr 


f DBC 


F08C 

FCBC 

PDBC 

POBC 

PDBC 

PDBC 

PDBC 

PDBC 


654 

655 
656. 
657 
65a 


RE  = W/VNU 

!F( IOP  6T.C)  60  TO  760 

F = RE 

RETURN 

PARTI ALS  OF  REYNOLS  NUMBER 


659 

660 
661  . 


SI  1 > =1./  VNU 

Si  2 ) = 0. 

1 F(  I ATM-1 ) 770,760, 6S0 


662. 

663 


770 


CALL  ANLAim  ALT,PA,1  ) 
GO  TO  790 


780  CALL  PAI63C ALT,PA,2) 


665  790  SC  3)  - - RE/VNU*VNR 

666.  80  TO  7 HO 

667  C PAYLOAD  6HT 


660  800  CALL  WIDRP i SQC  3 , 5 >-U  ORBDftP  B*2. -1  ) 

669  CALL  PAYLGOCPLOAD.DPZ.Sflt1*,!  ),Sh(3f5),W> 

670  1FU0P.6T.G)  GO  TO  BID 

671.  F=  PLOAO 

672  RETURN 

673  C PAYLOAD  PARTI ALS  


PDBC 

PDBC 

PDBC 

PDBC 

PDBC 


PDBC 

PDBC 

PDBC 


770 — »78C- 


PDBC 

PDBC 


PDBC 


PDBC 

PDBC 

OS 


3- 


1 


I650-J 


JULY2B 

JULY28 

OS 

OS 

OS 

OS 


671. 

810  SC  1 >=G. 

POBC 

675. 

5C2)=0. 

POBC 

676 

$(  3 )“0. 

POBC 

677. 

S<4)=  6R*0P2 

JULY28 

67S 

S<  5 ) = 0. 

PDBC 

679 

SC  6 >=0 

PDBC 

680 

S(  6 )=0. 

PDBC 

681 . 

SC  7>=0 

POBC 

682. 

IFC10P.6T  1)  SO  s $(4>*FH> 

OS 

683- 

RETURN 

PDBC 

684. 

END 

PDBC 

740- 
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SUBR0UT INE 
PDY3A 


583 


Subroutine  PDY3A 


Entry  PDY 
Purpose 

PDY  or  PDY3A  combines  and  calculates  complete  partial  derivatives  of  the 
equations  of  motion  with  respect  to  the  state  for  the  adjoint  differential 
equation  coefficients.  PDY  is  called  from  MODEL  (MODELB). 


fortran 

SYMBOL 

MATH 

SYMBOL 

CODE 

DESCRIPTION 

S TORAGf 
BLOCK  LOC 

S URROL 
SUSH 

TINE 

CODE 

usage. 

VAR 

AG 

i 

Acceleration  vector 

t lament. 

/AXL 

/< 

2) 

ACCEL 

M 

AS 

a 

0ER3A 

1 

AG 

P0Y3A 

1 

*G 

AGM 

i 

Element  of  matrix  of 

acceleration 

vector 

part l at  s 

/AXl 

/( 

30  ) 

ACCEL 

0 

AG« 

URT  state. 

P0Y3A 

I 

agm 

AGR 

i 

Element  of  matrix  of 

acceleration 

vector 

partial: 

/AXL 

/( 

18) 

ACCEL 

0 

AGR 

URT  state. 

P0Y3A 

1 

AGR 

AGV 

i 

Element  of  matrix  of 

acceleration 

vector 

p art ! a 1 s 

/AXL 

/( 

b ) 

ACCEL 

0 

AGV 

URT  state 

PDY3A 

i 

AGV 

APm 

i 

Element  of  matrix  of 

acceleration 

vector 

partial: 

/AXL 

/( 

32  ) 

PDY3A 

i 

Ann 

URT  state. 

AMR 

i 

Element  of  matrix  of 

acceleration 

vector 

parti  a Is 

/AXL 

/< 

20  ) 

ACCEL 

0 

AMR 

URT  state. 

P0Y3A 

I 

AMR 

AMY 

r 

E lement  of  matri x of 

acceleration 

vector 

p art  I a l s 

/AXL 

/( 

8) 

ACCEL 

0 

AMY 

URT  state. 

PDY3A 

I 

AMY 

AP 

i 

Ac ce 1 er  at i o n vector 

element. 

/AXL 

/t 

3 ) 

ACCEL 

n 

AP 

a 

0ER3A 

I 

AP 

P0Y3A 

I 

AP 

APH 

i 

Element  of  matrix  of 

acceleration 

vector 

partial: 

/AXL 

/( 

31 1 

ACCEL 

0 

ARM 

URT  state. 

P0Y3A 

i 

APR 

APR 

i 

Element  of  matrix  of 

acceleration 

vector 

partial: 

/AXL 

n 

191 

ACCEL 

0 

APR 

URT  state 

PDY3A 

i 

APR 

APY 

i 

Element  of  matrix  of 

acceleration 

vector 

partial: 

/AXL 

/( 

7) 

ACCEL 

0 

APY 

URT  state. 

PDY3A 

1 

APY 

AYR 

i 

Element  of  matrix  of 

acceleration 

vector 

partial: 

/AXL 

/( 

29  1 

ACCEL 

0 

AVRI 

URT  state. 

PDY3A 

I 

Avn 

AYR 

i 

Element  of  matrlx^of 

acce  leratl  on 

v-e  ctor 

partial: 

/AXL 

/( 

17) 

ACCEL 

0 

AYR 

URT  state. 

PDY3A 

I 

AYR 

AVY 

i 

Name  of  acceleration 

p art I a Is  »*tr i x . 

/AXL 

/< 

5) 

ACCEL 

n 

AVY 

ACCEL 

0 

AY 

P0Y3A 

I 

AVY 

cosgori 

cos(  ? ) 

i 

See  symbo  1 

/STATE3/1 

687  ) 

ACCEL 

I 

COSGAn 

BLH  5 COSSAM 
BL6  I COS  G AH 
OEH3A  I COSGAM 
E0UA3  0 COSSAD 
P10DELA  I COSGAn 
MODELS  I COSSAM 
OUT  I COSGAfT 
PDBC  1 COSGAM 
PDY3A  I COSGAM 

COSPSI  COS*’/')  I See  symbol  /STATE3/1  705  ) BLR  I CaSPSI 

BL7  I COSPSI 
BL8  i COSPSI 
0ER3A  I COSPSI 
E0UA3  0 COSPSI 
MOOELA  I COSPSI 
MOOELB  1 COSPSI 
PDBC  I COSPSI 
PDY3A  I COSPSI 

CO  SR  HO  c 0 5 ( p ) I See  symbol  /5TATE3/1  707  ) BLR  I COSRHO 

BL7  I COSRHO 
BL8  I COSRHO 
0ER3A  I COSRHO 
E0UA3  M COSRHO 
MOOELA  I COSRHO 
MODELB  I COSRHO 
OUT  I COSRHO 
PDBC  I COSRHO 
PDY3A  I COSRHO 

OGDH  I Partial  Df  gravity  mrt  altitude  /GENF  /(  563)  BL7  I GH 

BL8  I GH 
E0UA3  0 GH 
P0Y3A  I OGOH 
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FORTRAN 

SYMBOL 


math 

SYMBOL 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLJi-K  LOL  SUBR  CODE  VAR 


MOM 

MDR 

MOV 

0C0RH0 


wxCOSRHO 


1 Gr i* 1 t at I ana  I attraction 


0 Partial  derivative  of  equation  of  aotion  URT  state  /STATE3/< 
0 Partial  derivative  of  equation  of  notion  URT  state  /STATE3/I 
0 Partial  derivative  of  equation  of  notion  URT  state  /STAT£3/( 
0 Partial  derivative  of  equation  of  notion  URT  state  /STATE3/! 
0 See  synbol  /AEC03  /! 

0 Partial  derivative  of  equation  of  notion  URT  state  /STATE3/I 
0 Partial  derivative  of  equation  of  notion  URT  state  /STATE3/I 
M Heating  derivative  /STATE3/! 


0 Partial  derivative  of  equation  of  notion  URT  state  /STATE3/! 

0 Partial  derivative  of  equation  of  notion  URT  state  /STATE3/! 

1 Control  option  /XCODES/f 


I Propulsion  flag  for  different  rocket  options 


0 Partial  derivative  of  equation  of  notion  URT  state  /5TATE3/I 

0 Partial  derivative  of  equation  of  notion  URT  state  /5TATE3/C 

0 Partial  derivative  of  equation  of  notion  URT  state  /5TATE3/! 

1 See  synbol  /STATE3/C 


/ GENF  /( 

301  ) 

BL9 

I 

3 

BL7 

I 

3 

BL8 

i 

G 

DER3A 

i 

G 

EQUA3 

PI 

G 

MODELA 

1 

G 

MODELS 

I 

G 

P0Y3A 

1 

S 

S0ER3 

1 

G 

S01NP 

PI 

S 

/STATE3/! 

729  ) 

A0E03A 

I 

GOG 

PDY3A 

0 

GDG 

/STATE3/I 

791  ) 

ADEQ3A 

I 

GOPI 

P0Y3A 

0 

GDPI 

/STATE3/! 

7501 

ADE03A 

1 

GOO 

P0V3A 

0 

GDO 

/STATE3/! 

795  > 

A0E03A 

I 

GOP 

P0Y3A 

0 

GDP 

/ AEC03  / t 

19  ) 

ACCEL 

0 

SOPH 

ADEQ3A 

i 

GDPH 

PDY3A 

0 

GDPH 

/ ST  ATE3/I 

735) 

A0E03A 

I 

GOR 

PDY3A 

0 

GOR 

/STATE3/I 

722  ) 

ADEQ3A 

I 

GOV 

P0Y3A 

□ 

GOV 

/STATE3/! 

22  ) 

0ER3A 

0 

HTD 

OUT 

i 

HTD 

PDBC 

i 

HTD 

PDY3A 

n 

HTD 

/ST  AT£3/{ 

759) 

ADEQ3A 

i 

HTDR 

P0Y3A 

0 

HTDR 

/STATE3/! 

753  > 

A0EQ3A 

i 

HTDV 

PDY3A 

0 

HTOV 

/XCODES/f 

195) 

ACCEL 

I 

JGII 

SNTG 

0 

JGII 

DER3A 

I 

JGII 

FNTG 

M 

JGII 

GUI3A 

I 

JGII 

MODELA 

1 

JGII 

MODELB 

I 

JGII 

P1TX3A 

I 

JGII 

POV3A 

I 

JG1 1 

/ XCOOES/  ( 

199  ) 

ACCEL 

I 

JPRP 

0ER3A 

I 

JPRP 

E0UA3 

I 

JPRP 

MOOELA 

I 

JPRP 

P0V3A 

I 

JPRP 

PROPB 

0 

JPRP 

PROPIN 

0 

JPRP 

/STATE3/I 

792  ) 

ADEQ3 A 

I 

PIOPI 

PDY3A 

0 

MOPi 

/STATE3/1 

736  ) 

ADEQ3A 

1 

MDR 

FDY3A 

0 

MDR 

/STATE3/C 

729  ) 

A0EQ3A 

I 

MDV 

PDY3A 

0 

MDV 

/STATE3/C 

708  I 

0ER3A 

I 

BCORHO 

E0UA3 

Pi 

OCORHO 

MODELA 

i 

0C0RH0 

MODELS 

I 

OCORHO 

PDBC 

I 

OCORHO 

PDY3A 

i 

OCORHO 
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FORIRAN 

SYiCROL 


nftIH 
S Y rnBOL 


CODE 


DESCRIPTION 


g^AOiJT  I Ng  USAGI 
WBn  C JOE  V»R 


STORAGE 
BLOW  LOC 


0CQSQ2 

u*OCORHO 

I 

Set  s y nbo  1 

/STATE3/I 

109  ) 

DER3A 

I 

0C0R02 

E0UA3 

0 

0C0R02 

nOQELA 

1 

DC0R02 

NDDELB 

I 

0C0RD2 

P0Y3A 

I 

0C0R02 

DOG 

0 

Partial  derivative  of  equation 

of 

not  1 o n 

URT 

state 

/STATE3/< 

7 32  ) 

A0EQ3A 

1 

GOG 

P0Y3A 

0 

ODS 

OOP 

0 

Partial  derivative  of  equation 

of 

*o  t i o n 

WRT 

state 

/5TATE3/I 

79T  ) 

ADE03A 

I 

OOP 

PDY3A 

0 

OOP 

ODR 

0 

Partial  derivative  of  equation 

of 

not  1 o n 

URT 

state 

/STATE3/C 

T 3 8 > 

ADE03A 

I 

OOR 

PDY3A 

0 

ODR 

ODV 

n 

Partial  derivative  of  equation 

of 

notion 

UIRT 

state 

/STATE3/I 

72b) 

ADED3A 

1 

00V 

, 

P 0Y3A 

n 

ODV  - 

ONGZ 

a 

i 

Earth  rotation  rate 

f RAD/SEC) 

/GLOBAL/I 

3) 

A01D3A 

i 

ONGZ 

CRASH 

i 

ONES  A 

DER3A 

i 

onSZ 

E3UA3 

i 

ONGZ 

GEI«P 

i 

ONGZ 

NODELA 

i 

obgz 

NODELB 

i 

ONGZ 

PDBC 

i 

ONGZ 

P0Y3A 

i 

ONGZ 

SDINP 

i 

ONGZ 

TDPI9 

i 

ONGZ 

POG 

0 

Partial  derivative  of  equation 

of 

no  1 1 o n 

WRT 

state 

/STATE3/( 

731  1 

ADE03A 

l 

POG 

PBY3A 

0 

POG 

POM 

0 

Partial  derivative  of  equation 

of 

not  1 o n 

WRT 

state 

/STATE3/1 

793  ) 

ADE93A 

i 

PON 

PDY3A 

0 

FBN 

POO 

0 

Partial  derivative  of  equation 

of 

not i o n 

WRT 

state 

/5TATE3/I 

751  ) 

ADEQ3A 

I 

POO 

PBY3A 

0 

POO 

POP 

0 

Partial  derivative  of  equation 

of 

not  1 on 

WRT 

state 

/ST  ATE3/C 

7H6  ) 

ADE03A 

I 

POP 

P0Y3A 

s 

POP 

POPH 

0 

See  iy nbo  I 

/ AEC03  a 

15  > 

ACCEL 

0 

PDPH 

ADE03A 

1 

POPH 

P0Y3A 

0 

POPH 

PDR 

□ 

Partial  derivative  of  equation 

o f 

notion 

WRT 

state 

/STATE3/C 

737) 

A0EQ3A 

I 

PDR 

FDY3A 

3 

PDR 

POV 

0 

Partial  derivative  of  equation 

of 

no  1 1 o n 

WRT 

state 

/ST  ATE3/( 

725) 

ADE03A 

I 

PDV 

P0Y3A 

0 

PDV 

OHULT 

= 0 OR  1 

I 

Heating  flag  nultlplier 

/ARCDAT/l 

90  ) 

DER3A 

I 

ONULT 

FXDAT 

0 

ONULT 

PDY3A 

1 

ONULT 

R 

R 

I 

Radial  distance  fron  earth  center 

to  vehi 

c le 

1 FT  ) 

/ GENF  /( 

305  ) 

BL9 

I 

R 

BL7 

I 

R 

BL8 

1 

R 

0ER3A 

I 

R 

E3t!A3 

ft 

R 

NODELA 

1 

R 

NOOELB 

1 

R 

PDBC 

1 

R 

P0Y3A 

I 

R 

TRTOSZ 

I 

R 

rog 

0 

Partial  derivative  of  equation 

of 

notion 

WRT 

state 

/STATES/! 

730  ) 

ADE33 A 

I 

ROG 

P0Y3A 

3 

ROG 

RDV 

0 

Partial  derivative  of  equation 

of 

notion 

WRT 

state 

/STATES/I 

723) 

A0E03A 

I 

RDV 

PBY3  A 

3 

RDV 

RHOB 

p. 

I 

Atmosphere  base  density  for  heatir 

i a calculation 

/ARCDAT/l 

39  ) 

0ER3A 

I 

RHOB 

1 LB/FT»*3 ) 

FXDAT 

0 

RHOB 

PDY3A 

I 

RHOB 
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( SLUGS/F  T »e  3 ) / GENF  /(  309  ) BL7  ) RO 

BL8  1 RG 

0ER3  ft  I RO 

EQUA3  I RO 

OUT  I RO 

POBC  I RO 

PDY3A  J RO 


ROR 

I Der  i 

v Of  density  art  »it . 

/GENF  /( 

313) 

BLT 

I 

ROR 

BL8 

I 

ROR 

E0UA3 

I 

ROR 

POBC 

I 

ROR 

PDY3A 

I 

HOR 

SINGAPI 

s i n ( 7 ) 

I See 

sy«bo I 

/ST  ATE3/( 

688  ) 

BL9 

I 

SINGArt 

BLT  I SINGAPI 
BL8  1 SINGAPI 
DER3A  I SINGArt 
EQUA3  0 SINGAPI 
PIODELA  I SINGAPI 
ROOELB  I SINGArt 
P DBC  I SINGAPI 
P D93A  1 SINGArt 
SDER3  I SINGArt 

SINPSI  sin(Y-)  I See  s>«boI  /STATE3/I  709)  BLR  I SINPSI 

BLT  I SINPSI 
BL8  I SINPSI 
0ER3A  I SINPSI 
EQUA3  0 SINPSI 
PIODELA  I SINPSI 
ROOELB  I SINPSI 
PDBC  I SINPSI 
PDY3A  I SINPSI 

S1NRH0  sin(o)  5 See  sy.bol  /STATE3/(  706)  BLN  I SINRHO 

P BL7  I SINRHO 

BL8  I SINRHO 
DER3A  I SINRHO 
EQUA3  0 SINRHO 
P1G0ELA  I SINRHO 
nOOELB  I SINRHO 
OUT  I SINRHO 
PDBC  I SINRHO 
PDY3A  I SINRHO 

SORT  F Square  root  function  /SORT  /(  s ) ANLATrt  F SORT 

CRASH  F SORT 
OCTOE  F SORT 
QER3A  F SORT 
ENVPRR  F SORT 
HUNT  F SORT 
PIODELA  F SORT 
PIODELB  F SORT 
OPUELL  F SORT 
OUT  F SORT 
P AT  63  F SORT 
PAY02  F SORT 
POBC  F SORT 
PDY3A  F SORT 
STORE  F SORT 
SYP1VRT  F 59HT 
UTSCH  F SORT 


UDG 

0 

Partial 

der i v at i ve 

of 

equation 

of 

■ot i o n 

URT 

state 

/ST  ATE3/( 

733  ) 

ADED3A 

1 

UDG 

PDY3A 

0 

UDG 

UDO 

0 

Partial 

deri vati  v e 

of 

equal! on 

of 

■ o 1 1 on 

URT 

st  at  e 

/ST  ATE3/t 

752  ) 

A0EQ3A 

I 

UDO 

P0Y3A 

0 

UDO 

UDP 

0 

Partial 

derivative 

of 

equati on 

of 

■ o t i on 

URT 

state 

/STATE3/( 

798  ) 

ADE03A 

I 

UDP 

P0Y3A 

0 

UDP 

UDR 

n 

Partial 

der i vat  i ve 

of 

equation 

of 

*o t i o n 

URT 

state 

/STATE3/( 

739  ) 

A0EQ3A 

I 

UDR 

PDY3A 

PI 

UDR 

UDV 

n 

Partial 

derivative 

of 

equation 

of 

■ ot  I on 

URT 

state 

/STATE3/( 

727  ) 

ADEQ3A 

1 

UDV 

P0Y3A  n UDV 
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f 0R1HAN 
SYMBOL 


MATH 

Symbol 


CODE 


DESCRIPTION 


5 TORAGE 
BLOCK  IOC 


SUBROUTINE  USAGE 
SUBh  CODE  VAR 


V 


(FT/SEC ) /STATE3/C 

1 > ACCEL 

I 

V 

AO) CB3 

0 

VAR 

ADJUST 

n 

VAR 

AGETB3 

0 

VAR 

AST3 

i 

VAR 

SL4 

i 

V 

BL7 

i 

V 

BL8 

i 

V 

C0N3 

i 

VAR 

DER3A 

i 

V 

0TF3 

i 

V 

ENVPRM 

i 

VAR 

E0UA3 

i 

V 

MODELA 

i 

V 

MODELA 

i 

VAR 

PI0DEL8 

i 

V 

MTX3A 

i 

VAR 

OUT 

i 

V 

OUT 

i 

VAR 

P DSC 

i 

V 

PDY3A 

i 

V 

REU3 

n 

VAR 

RKTA3A 

n 

V 

STP3 

i 

VAR 

TOP  M 

D 

KUDU 

YREF3 

fl 

V 

VOG 

0 

Parti  a 1 

derivative 

of 

equat io  n 

of 

noti on 

URT 

state 

/STATE3/( 

728  ) 

ADEQ3A 

I 

VDG 

POY3A 

0 

VOG 

VDM 

0 

Partial 

derivative 

of 

equat ion 

of 

notl on 

URT 

state 

/STATE3/I 

740  ) 

ADEQ3A 

I 

VDM 

PDY3A 

0 

von 

VDO 

0 

Parti  a l 

derivative 

of 

equation 

of 

notion 

URT 

state 

/ST  ATE3/< 

749  ) 

ADEQ3A 

I 

VDO 

PDY3A 

0 

VDO 

VDP 

0 

Partial 

der i vat l ve 

of 

equation 

of 

notion 

URT 

state 

/5TATE3/1 

744  > 

A0E03A 

1 

VDP 

P0Y3A 

0 

VDP 

VOR 

0 

Partial 

der i vat  1 ve 

of 

equation 

of 

notion 

URT 

state 

/ST  ATE3/( 

734  ) 

ADES3A 

I 

VDR 

POY3A 

0 

VOR 

VOV 

0 

Parti al 

derivative 

of 

equation 

of 

not i on 

URT 

state 

/STATE3/I 

721  ) 

ADE03A 

I 

VOV 

P0Y3A  0 VOV 


30  OCT  72  G 01-46 


589 


PDY3A 


SUBROUTINE  P0Y3A 

COMBINE  AND  CALCULATE  PARTIALS  FOR  AOJOINTS 


CGMMON/ARCOAT/ 


6. 

•5REF 

,EJ 

,XI5P 

,TMULT 

,DTNC 

7 

•1  ATM 

. IMODE 

,JA£fi 

, JPRG 

,DMAX 

6. 

•XLRAX 

, HDMAX 

, SMOOT 

,alfmax 

,PHMAX 

9. 

• MAEB 

,MAEC 

,MAEO 

,MAEE 

,MA£F 

10. 

*MT 

.RISP 

_«XCS 

.me  6 

MdDA 

n 

•MOB 

. XCGR 

-ZC6R 

,*E 

,ZE 

12 
13 
1 4. 

• OREF 

• .PRATE  , 
DIMENSION 

,RCND 
ARCDC  9) 
ABCDAt  40 ) 

,RHOB 

,4>RULT 

g REMAX 

EOUI VAlENCE(SREF-ARCOA) 
COriflON/ST  ATE3/ 

* V AR( 14)  , 0 VAR  <14),VA 

•XLl  9,9)  . YDP<  20.9 ).  YDS 


•s i np£i 

*5  VBV 

• VDV 
•UOV 

• UDG 
•UDR 

• GDP 
•POO 


.COSPSI 
( 9 ), 0RE6A 
,GDV 
. VDG 
,VDR 
,VOR 
,PDP 
, UDO 


REAL  md M . MDV,  RDR 
COMMON/ ST  ATE 3/ 


_ SI NRMO 
, 0MEGA2 
,RDV 
, GOB 
, GDR 
,GDR 
,OOP 
,HTDV 


, OVARLC 99  ) 

, Y2( 9 ) 

.svvdO) 

C056AR 

.SJWSAR 

,SAVBP( 15) 

, COSRHO 

, DCOfiHD 

,OCGfi0Z 

'roy 

, PD  V 

,ODY 

,ROG 

, PDG 

,DDS 

,MDfi 

„PDR 

,00R 

,flDR 

,PDR 

.VOP 

,UDP 
, HTOR 

, VDG 

, GOO 

29 

•S1N2R0 

. C0S2R0 

, C0526M 

30. 

COMMON/ AECG3/ 

31. 

* APHG 

, APHfl 

.ALPHA 

, VDA 

-GDA 

,POA 

32. 

• S1NA 

, C05A 

,PHI0 

,PHID 

,PHI 

,SI NPHI 

33. 

•CGSPHl 

, GDPH 

-PDPH 

, XLAMAC  9 ) 

, XLAMPt  9 ) 

, CDO 

34 

• CDOR 

, CLD 

,FK 

,XCGR 

,2C6R 

,CLOR 

35. 

*Cn 

, CMA 

CttAfl  #CMR 

, CMC 

,CRCR 

,FX« 

36. 

• CLAM 

. CL 

,CLA 

,CLR 

37. 

38 

•CO  , CDA 

COMMON/ GENE/ 

,CDR 

39. 

• OflG( 20 ) ,0MGP(20. 

2 ), VARQi 9 ) 

,TOL( 9 ) 

-SVARl 10) 

. UCC( 20 ) 

40. 

*A(  9,9) 

, ACGNt  9 > 

,BCON( 9 ) 

. COTI( 9 9) 

- DCON( 9 ) 

.DTP 

41. 

♦OTS 

,0T 

,DPS0 

#o 

42. 

♦R 

,RE 

, MACH 

,PA 

,RD 

,cs 

43. 

• VNU 

.PAR 

,K0« 

,CSR 

- VNR 

, sums a 

44. 

• SVSQ 

,T IrtEPH 

.TIMES 

#TOP 

,TOS 

_Tfi(  9 > 

45 

»TST(20>  , TPH  (20). DISC  20} 

,D1P( 20 } 

,T 

> 

46 

»TLPH20>  ,TLS1  120  ),DIPI(20 ) 

, DI 51( 20 ) 

.TIME 

,OMP 

47 

•TimpR 

,UFT 

, DRAG 

.TAX 

,TBURN 

,TBU(20) 

48 

*AE 

,FP 

,FPOLD 

,FPD 

, MACHR 

,RACHV 

49 

•DR 

,DV 

,FVAC 

,l!ftv 

50. 

•LIFTR 

.LJFTA 

DRAGV 

'dragr 

.ORASA 
, ISPF 

51 

♦ 

LIFTR 

,DBR 

,DB 

,ISP 

52. 

* 

ULFT 

.ULFTV 

, ULFTR 

ulfta 

53. 

• xncs 

, XMC6V 

, XMCGR 

XMC&A 

.XMCGR 

, CODAE 

54 

•CULFT 

,CT 

.CALPHA 

,CDE 

-DELTAE 

,SIO 

55. 

•COD 

, SIDAE 

, XCG 

,ZCG 

56 

COMMON 

/ GEHF  / 

57. 

• XJV 

, XJR 

, GH 

,GAMMAD 

,XK6 

#XXP 

58. 

•FRATED 

, 1RATED 

59 

•PI 

,P2 

>3 

, XK1 

, XK2 

,XX3 

60. 

•XKIT 

,XK2T 

. XX3T 

, XK1 0 

. XK20 

,XK30 

61 

*XK  1 A 

. XK2A 

-XK3A 

,XX1  V 

,XX2V 

,XX3V 

62 

• XK1G 

, XK2S 

,XX3G 

rXXlP 

XK2P 

. XX3P 

63 

• XX1R 

,XX2R 

. XX3R 

.1X10 

g XX2G 

, XK30 

64 

• XXI U 

, XK2U 

t XX3U 

-XX1R 

,XX2R 

, XX3M 

65. 

• PV 

,PG 

.PP 

.PR 

,P0 

, OPDYC 3>8 ) 

66. 

REAL 

LIFTR  „ LIFT 

. LIFTA. LIFTR  . 

flACrt- 

MACHR. 

67. 

* ISP. 

ISPF.  MACHV.LIFTY  . IRATEO 

68 

DIMENSION  TPHK  10  ), 

TST1C 10) 

69. 

EOUI VALENC£(TLP1.TPK1 J.ITLSI.TSTl ) 

70. 

COMMON 

/XCGOES/ 

71. 

• I TO 

( 9 >,  I COR  (20). Ill 

. INTB 

, J3IB(20,; 

Z ) . JPH  (20.2 

72. 

♦JST 

( 20) 

, NCNST 

. NSB 

, NS  A3 

.NICN& 

73. 

• I20P 

,ICOP 

, IFAW 

, IFAR 

,IFB 

,IND 

74. 

•IOPEN 

,IPH 

,ISPH 

,ISST 

.I  ARC 

, 1ST ART 

75 

♦ ITCT 

, ITER 

, I VAR 

,JX 

,JPS 

,JS 
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76. 

• KQP 

,HPST 

, KST 

77 

*NCN 

, NEO& 

,N£Q 

, NOP 

76. 

• N5T 

,lfST 

, l PR  1 NT 

,istn 

79 

•IPHNB 

, IBU1 

, 1 BLK2 

, I STOP 

60 

*1  FOB 

,NB 

, LB 

.DB 

81 

*NCT1N 

.NEOF 

(IL6&(8),JPRP. 

JGI 1 , rtTT 

62 

83 

8*1. 

85. 

66 

87 

88 
89 
90. 
91 

92. 

93. 
9** 
95 
96. 
97 
98. 
95. 

100. 

101 

102 

103 

109 

105. 

106. 

107 

108 

109. 

110. 
111. 
1 12 
113 

119 
1 15 
116 

117. 

118. 

m. 

120 
121 
122 
123. 
129 

125 

126 
127. 
128 
129 
130. 

131 

132 

133 
139 
135. 

136 

137 

138 
135 

190 

191 

192 

193 
199 

195 

196 

197 

198 
199. 
150. 


,NA0 
,NPH 
,IPHN 
, I STPP 
, NPHP 


NCASE 

, ISTNB 
, L 

, NPHB 


I "LL'M-L  » imu  * ».  • / .1  I«ni  « J i,MLI  i , \ » HI 

«(  VAM5  ),P$I  ),( VAR(6  >,RH0>,<  VAfi<  7 ),rtU),(  VAR<  8),HT>  , (VAR<9), 
*<  OVAfil  1 ),  VD  ),  ( 0 V AR(  2 ) GO  ), ( 0V ARC  3 ),  HO  ) , t OVAfiC  9 >,190  ),  1 DVARt  5 ) 
♦<  QVAR(  6 >,00  MDVAR<  1 >,  UQ  ),  ( OVARl  B),HTQ),(OYAR{9),5Q20> 


S02^ 


REAL  rt.no, HD 
COnrtQN/OATA/ 


,RDl 

,J0P1 


*PI  .RAO 

•FTMrt  CAR 

CO nrtQN/ GLOBAL/ 

*GR  ,Eft  ,01161 

♦ ,JJ0P(10)  , I FATAL  MARC 

*,KTABC 20), ITAB(  20 > ,SIG 
*,GH  , PS1RF, IPFLG1 , 

*, ITPSO  ,KS0L  ,K6LO0L(8> 

connoN/  axl/ 

*AV  A6  ,AP  ,Art  , A VV 

♦ APIS  , A VP  , AGP  , AFP  ,A«P 

*APO  , AMD  , A Vli  ,AGO  ,APU 

DIrtENSlOM  AYU) 

EQUI VALENCE  (AY,AVV> 

EQUl VALENCE! GH.OGDH) 

ENTRY  POY 

I CALC.  SPEC.  IrtPULSE 
I F( JPRP  GT.l ) CALL  IrtPUL 


,sc 

, J0P2 


,UrtF 
, J0P3 


, T UPF 
, J0P9 


, XLArtRF  , YrtURF  ,LOfl 

, NBRAN  , NF  ARC  ,1019) 

, rtAXT  AB 

1PFL62,1PFL63,IPFL69,1NE0FL(  20) 


, A6V 
,AVR 
,ArtU 


, APV 
,ASR 
# Avn 


,AflV 
, APR 
,ASn 


,AVS  , A8G 
, AHR  , A VO 
,APn  , Ann 


,apg  , 

, AGO  , 


AND  PARTI ALS 


II  CALC. 
CALL  ACCEL 


ACCELERATION  VECTOR  AND  rtATRlX  OF  PARTI ALS 
OUT  PARTIAL  DERIVATIVES 


III  GRIND 
V5Q  = V*  V 
VDV=  AW 

ROSQ  = JU  0C0RO2 

V06=  ROSQ*  l COSRHO*COSGArt+SINRHD*COSPS I *$I NGAft ) -6*C0SGAfl 
VDP=  ROSQ*  SINRHO*  SI NPSl*C0S6Art 

VDR=  0C0R02*(  COSRHO’S  I NG  An  S I NR  HO  * C05P  5 I ♦COSSArt  > - DGDH*SI  NGAH+ AV 
1R 

VDQ  = RDSQ  *1  -2.*SINRH0*$I  NGArt-  COSRHQ*COSPSI*COSGAft+  S1NRB0*SINR 
1HO*C0SP5I*  COSSArt/COSRHO ) 

von-  AVrt 

IFtJGII  EQ  8 > 80  TO  9 

GDV"  COSGArt*( 1./R+  G/VSO)  - ROSQ/ VSQ»( COSfiKQ*COSGArt+$r NRH0*C0SPS1 
1*S1NG Art)* AGV/V- AS/ V5Q 

606=  5INGArt*( G/V-V/fi)  ♦ RQ50/V*{  SI  NRH0*C05P5  UCOSGAfV  CGSRKO*S 
1 1 NG Ad 1 

GDP=  Z.*0rtGZ*C05RH0*C0SPSl-  ROSA/ V*SI NRH0*S1 NPS I*$I NGAn 
GDR  = COSGArt*{  -V/l R*R  ) -060H/V)  +0C0RG2/ V*<  COSRHD*COSGAI9*  SlNRHO 
1*CQSP5I*S INGAH)  ♦ AGR/V 

GO0  = -2  *0 nGZ*S I NR  HC*S I NFS  1 + RQSQ/V*(  -2.*SI NRH3*C0SGArt+  COSPSI* 

1 SlNGArt*t  COSRHO-  S I NR HO* S I NRHD/C05RH0  ) > 

GDrt“  AGN/V 

IF(  ABSUOSGArtKLT  l.E-11)  GO  TO  10 
PDV~  -AP/(  VSQ*C0S6APl) 

1 * SlNRHO*COSGArt*$ I NPSI /(  R*CG5RH0  ) 

2 ♦ APV/( v*COSGAfl) 

* -RQSQ*SINRHO*SINPSI/< VSQ*CDS6Art) 

CSG$Q-C05GAfl*  COS  6AM 

P06  = GCORHO/CSG5Q*( fl*QrtGZ*5 I NRHD*5 I NPS I *$ INGArt/V-  2 *CO$PSI ) 
i *-$lNRHDW*SlNP5!*SINGAn/lR*COSfiH0  ) 

* + AP*SI NGArt/( CSGSC*V  ) 

PDP=  OCGftHO/CQSGAn*<fi»OnGZ*SlNRrtO*COSPSJ/V+2.*SlNPSI*$INGArt) 

1 +V*SINRHO*COSGAM*COSPSI/R/COSRHD 

POR=  SlNRHO*  SINPSUt  0C0RO2/C V*COSGArt > - V*COSGArt/(  R*R*COSRHO  ) ) 

1 +APR/1 V*C0$GAfl> 

P00=  V*COSGArt*SINP$I/<R*COSRHO*COSRHO ) +2  *0CORHO+ 

1 0flGZ/C05GAn*(2.*SINRHO*C0SPSI*SINGAn+  R*0(1GZ*SINPSI /V*( 

2 COSRHO*COSRHO-SlNRHD*SlHftHO ) > 

PDrt=  APrt/( V*C0S6Aft) 

GO  TO  20 


XCOOES 

XCODES 

XCOOE5 

XCOOES  ! 

XCOOES  ! 

XCOOES 

E&UV3 

EQUV3 

E0UV3 

EQUV3 

EQUV3 

DATA 

DATA 

DATA 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

RETAP 

AXL 

AXL 

AXL 

AXL 

AXL 

AXL 

P019 

PDY3B 

COHN 

COrtN 

COHN 

COrtN 

COrtN 

COrtN 

COrtN 

PDY3B 

PDV3B 

P0Y3B 

PDV3B 

P0Y3B 

P0Y3B 

PDY3B 

P0V3B 

P0Y3B 

PDY3B 

P019 

PDY3B 

P0V3B 

P0Y3B 

P0Y3B 

P0Y3B 

P0Y3B 

PDY3B 

PDY3& 

P0Y3B 

PDY3B 

PDY3B 

PDY3B 

PDY3B 

P0Y3B 

P019 

P0Y3B 

P0Y3B 

P0Y3B 

AAR19 

PDY3B 

PDY3B 

P0Y3B 

PDY3B 

P0Y3B 

PDY3B 

PDY3B 

P0Y3B 

PDY3B 

COrtN 


10- 


20-n 
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151, 

C 

IV  PARTIALS  ON  VERTICAL  RISE 

CGrtN 

152. 

9 

GDV=0. 

POIH 

153. 

606=0. 

POIH 

15*!. 

6DP=0. 

FO 1 * 

155. 

GQR=0. 

PQ  l H 

156. 

600=0. 

POIH 

15T . 

60*=0. 

FQ  1*1 

158. 

1C 

P0¥=0. 

P0Y39 

159. 

PD6-0. 

PDY3B 

160. 

PDR=0. 

P0Y3& 

161. 

P0H=0. 

PDY3& 

162. 

PDP=0. 

PDV3& 

163. 

P00=0. 

PDY3B 

16*. 

2G 

CONTINUE 

PDY3B 

165. 

ROV=  S1N6AR 

FDY3B 

166. 

RDS-  V*COSGAf! 

PDY3B 

167. 

QOV=  CQSSAfl*  C0SP5I/R 

PDY3B 

168. 

OOS-  -¥*SlNSA**COSPSI/R 

FDY3B 

169. 

ODP-- V»CDS6A*»SI NPSI /R 

PDY3B 

170. 

ODR=-V*OBV/R 

POIH 

171. 

RCLAn  = R»COSRHO 

PDY3B 

172. 

UDV—  COSSAR#  SINPS1/RCLAW 

P0Y38 

173. 

UDS=  -V*SINGAR*  SINPSI/  RCLAR 

PDY3B 

17*. 

UOP=  V*COSSAFUCOSPSI/  RCLAA 

FDY3B 

175. 

UDR-  -V*  UDV/R 

PDY3& 

176. 

UD3=  -U0R*SINRH0*R/  COSRHO 

PDY3B 

177. 

HD*=A*fl 

POIH 

178. 

nofl-Ans 

POIH 

179. 

rtD V=A*¥ 

POIH 

180. 

IF<Qfll)LT*RO.NE.O.  ) 60  TO  30 

PDY3B 

30— i 

181. 

HTOV=D. 

P0Y3B 

182. 

HT0R=0. 

PDY3B 

183. 

SO  TO  90 

PDY3& 

16*. 

30 

CONTINUE 

PDY3B 

185- 

HTD-  OflUtT*  17600-»SQRT(  RO/RHOB  )*(  Y/Z60CO.  >**3-15 

P0Y3B 

186. 

HTOV-  3 15  *HTO/ ¥ 

P0Y3B 

187. 

HTOfl=  .5  * HTO*ROR/  RO  . 

P0Y3B 

188. 

HO 

CONTINUE 

P0Y3B 

189. 

C 

COHN 

190. 

C 

V ZERO 

BANK  ANCLE  CONSIDERATION 

co  mi 

191. 

50 

I F<  J6I I .NE. 12 ) 

RETURN 

P0Y3B 

192. 

GOPH=G. 

PDY3B 

193. 

P0PH=0. 

P0Y3B 

19H. 

RETURN 

PDY3B 

195. 

END 

PDY3B 

20  OCT  72  6.01-** 
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Subroutine  PRMSET 


Purpose 

PRMSET  sets  up  nominal  values  of  adjustable  parameters  for  next  iteration 
or  solution  trajectory. 

Description 

PRMSET  is  called  from  TEST. 


FORTRAN 

SYMBOL 


HATH 

SYrtBOL 


CODE 


DESCRIPTION 


0° 

l'*-* 


STQRARF 


BlOUI 


LOC 


SUBROUTINE  USAGE 
SUBR  CODE  VAR 


1 COR 
IPOINT 

NPARA 


NPH 

OMG 

OnGP 

PARA 

SVAfl 


I 

Phase  sequence  array 

/ XCO  DES / ( 

10) 

ADJUST 

I 

ICOR 

FNTG 

I 

ICOR 

PRnSET 

I 

ICOR 

SD1NP 

n 

ICOR 

I 

Code  for  each  adjustable  parameter  In  steepest 

/PAR  API 

/( 

1 ) 

A0JU5T 

i 

IPOINT 

descent. 

PRnSET 

I 

IPOINT 

SDINP 

D 

IPOINT 

STAU 

I 

IPOINT 

TOPn 

D 

IPOINT 

i 

Number  of  adjustable  paraneters  In  trajectory 

/PAR  API 

/( 

13  > 

ADJUST 

I 

NPARA 

problem. 

BNTG 

I 

NPARA 

FNTG 

I 

NPARA 

MTX3A 

I 

NPARA 

PAVD2 

1 

NPARA 

PRnSET 

I 

NPARA 

SDINP 

n 

NPARA 

STAU 

i 

NPARA 

TEST 

I 

NPARA 

TOPn 

D 

NPARA 

I 

Nuober  of  phases  In  trajectory 

/ XCODES /( 

1 6*f  J 

BNTG 

I 

NPH 

FNTG 

0 

NPH 

PRnSET 

I 

NPH 

SD1NP 

n 

NPH 

TEST 

I 

NPH 

TOPn 

I 

NPH 

n 

Array  of  arc  cut  off  values  Csd3 

/GENF 

/( 

1 ) 

ADJUST 

n 

ono 

FNTG 

I 

onG 

PRnSET 

n 

onG 

PROPB 

i 

onG 

SDINP 

n 

OnG 

STP3 

I 

onG 

T0PI9 

D 

ionG 

0 

Array  of  phase  cut  off  values  £sd} 

/ GENF 

/( 

21  ) 

ADJUST 

0 

OnGP 

FNTG 

N 

onGP 

PRnSET 

0 

onGP 

SDINP 

n 

ohgp 

n 

Adjustable  parameter  noaina)  values. 

/PARAFI 

/( 

252) 

ADJUST 

1 

PARA 

PRPISET 

n 

PARA 

TOPn 

0 

PARA 

n 

Array  of  state  values  at  initial  problem  time  tsd3 

/SENF 

/( 

79  ) 

ADJUST 

0 

SVAR 

BNTG 

I 

SVAR 

FNTG 

I 

SVAR 

PRnSET 

n 

SVAR 

REU3 

I 

SVAR 

SDINP 

n 

SVAR 

TEST 

l 

SVAR 

TOPH 

i 

SVAR 

TRT0S2 

i 

SVAR 
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PSnStT 


<r- 

'V-> 


1. 

SUBROUTINE  PRflSETUI  > 

PRESET 

z. 

C 

COHN 

3. 

c 

SETS  UR  NOMINAL  VALUES 

OF  PAfiAHETERS  FOR  NEXT 

COHN 

8 . 

c 

ITERATION 

COHN 

5 

c 

DEPENDS  ON 

WHETHER  LAST  TRAIL 

TRAJECTORY 

COHN 

6 

c 

SERVES  AS  NEW  NOMINAL! 

11=0)  OR 

PREVIOUS 

CONN 

7 

c 

NOniNAL  WILL  BE  SOLUTION  TRAJECTORY  (II  ST 

0 ) 

COHN 

e. 

C0nn0N/STAIE3/ 

STATE3C 

9. 

♦VAR( 18)  _OVAR 

( 18 ), VARL  (99)  ,0VARL<99) 

,Y0(  9 1 

,SVY( 10) 

STATE30 

10. 

*XL(  9,8)  ,YOP(  20 

.9). YDS  (20.9).C0SSAH 

-S1NSAA 

,SAV6P( 15) 

STATE3B 

n. 

♦SINPSI 

,COSP$I 

,SINRHQ 

,C0SRH3 

,0C0RH0 

,0C0R02 

STATE3C 

u. 

♦ SVBV 

(9>,0flE6A 

,0HESA2 

STATE30 

13. 

♦ VDV 

, 80  V 

,RDV 

'«DY 

,PDV 

,OOV 

STATE20 

IS 

♦ UOV 

, V0£ 

, 80S 

RDS 

,PD6 

,006 

STATE3D 

15 

♦ UD6 

,VCR 

,GOR 

,nOR 

PDfi 

DOR 

STATE3D 

H. 

♦ UDR 

.von 

,6D« 

.non 

,FDH 

, VDP 

STATE3D 

17. 

♦ 6DP 

,POP 

,00P 

,UDP 

, VBD 

,800 

STATE30 

18. 

♦POO 

,uoo 

,HTOV 

,HTDfi 

5TATE3D 

18. 

REAL  no n . nov.  HDR 

STATE3D 

20. 

COnflOW/ ST ATE 3/ 

STATE3C 

21. 

♦S I N2R0 

.C0S2R0 

, C052sn 

STATE20 

22 

COrMON/GENF/ 

SENF 

23 

♦ 0HS<20>  ,0nSP(20,2),VARQ(9> 

,TOL<  9) 

, 5 V ARC  10) 

UDC<  20  ) 

9 

6EKF 

28 . 

* AC  9.9  > 

, ACON( 9 ) , BCON( 9 ) 

COTI (99) 

,DC0N(  9 ) 

, DTP 

SEHF 

25. 

♦ DTS 

,07 

, R 

,OPSO 

,0 

os 

9 

SENF 

28. 

♦ R 

,RE 

nACH 

,PA 

,RQ 

,cs 

6ENF 

27. 

♦ VNU 

.PAR 

. ROR 

,CSR 

, VNR 

,sunsa 

SENF 

28 

♦ SVSO 

,TIHEPH 

,ti*es 

,TOP 

,TQS 

,TR( 9 ) 

6ENF 

28 

♦ TST ( 20  ) .TPH 

( 20 ) 01 S( 20  ) 

0IP( 20  ) 

,T 

,w 

SENF 

30 

•TLPU20)  ,TL$  1 

( 20  ),01P1(  20  > 

.DISK  20) 

,!!«£ 

,OAP 

* 

SEHF 

31 

♦TlttPB 

.LIFT 

,DRA6 

.TAX 

# TBURN 

, TBUC 20 ) 

SENF 

32. 

♦ AE 

,FP 

,FPOU> 

,FPO 

rrtACHR 

, SACHV 

SENF 

33. 

♦or 

,ov 

,FVAC 

, LIFTV 

GENF 

38. 

♦LIFTR 

,LIFT  A 

DR  AS  Y 

'ORASR 

.ORASA 

t 

SENF 

35. 

* 

LlFTrt 

. DBR 

,0B 

,ISP 

, I SPF 

t 

GEHF 

38. 

* 

ULFT 

-ULFTV 

, ULFTR 

,ULFTA 

SENF 

37 

♦ XflC6 

.xncsv 

, XHC6R 

,XHC6A 

.xncen 

COO  AE 

9 

6ENF 

38 

♦CULFT 

,CT 

.CALPHA 

,CCE 

.OELTAE 

,S1D 

SENF 

38. 

♦ COD 

5 1 DAE 

,xcs 

,ZCG 

,13 

SENF 

HO. 

COP1HON 

/ GENF  / 

GENF 

HI. 

♦ XJV 

XJR 

,SH 

,GAflrtAD 

#XKG 

,XKP 

SENF 

82. 

♦PRATED 

, 1RATE0 

SENF 

83. 

♦ PI 

,P2 

>3 

,XK1 

,XK2 

,XX3 

SENF 

88 

♦ XK1T 

.XK2T 

. XK3T 

XK1D 

XK20 

. XX3D 

SENF 

85 

* X K 1 A 

,XK2A 

. XK3A 

.XftlV 

. XK2Y 

. XK3  V 

SENF 

88. 

♦ XXI  8 

,XK2S 

,XX3$ 

, XK1P 

,XX2P 

, XK3P 

SENF 

87 

♦ XK1R 

XK2R 

, XK3R 

,XK10 

, XX23 

, XX30 

SENF 

88 

♦XK1U 

, XK2U 

,XK3U 

,xxm 

,xx2  n 

,xx3n 

SENF 

88 

♦PV 

>6 

,PP 

,PR 

f0PDY(3,8) 

SENF 

50. 

REAL 

LlFTfl  . LIFT  . LIFTA.LIFTH  . 

flACH, 

rtftCHR, 

SENF 

51. 

♦ ISP, 

ISPF.  MACHV 

, LIFTV  . 1RATE0 

FRAT 

52. 

DIMENSION  7PH1(  10).T5T1(  10) 

GENF 

53. 

EQUI VALENCEC  TLP1 , 

TRH1 )»(TLS1.TST1) 

SENF 

58. 

COHflON 

/XCODES/ 

XCODES 

55. 

♦ ITQ 

C9).IC0R 

(201.IT1 

, I HTB 

#JSIO(ZO, 

2 ) , JPH  (20,2), 

XCQ0E5 

58. 

* JST 

(201 

,ncnst 

,NSB 

, NS  A& 

,N1C«& 

XCODES 

57. 

♦ I20P 

,ICOP 

, IFAN 

.IFAfi 

,IFB 

.IN0 

XCODES 

56 

♦I  OPEN 

,IPH 

,ISPH 

,IS$T 

, I ARC 

, I ST ART 

XCODES 

58 

♦1TCT 

,ITER 

^ 1 VAR 

,JK 

,JP5 

,JS 

XCODES 

60. 

♦ KOP 

,KPST 

,KST 

, NAD 

, NCA5E 

XCODES 

61 

♦NCN 

,NEOB 

,NEO 

,NOP 

,NPH 

XCODES 

62 

♦ NST 

.IPS! 

.IPftlNT 

,ISTN 

,1FHN 

, I STNB 

XCODES 

63 

♦IPHNB 

,IBLK1 

, I BLK2 

, I STOP 

, ISTPP 

, L 

XCODES 

68. 

*1  FOB 

,NB 

■ LB 

.HB 

NPHP 

.NPHB 

XCODES 

65. 

♦NCTIN 

.NEOF  , 

ILAB(81,JPHP, 

JGII .HTT.HPINt  20  >. JP1 . 

JP2,  JP3 

XCODES 

66 

COnnON/PARflR/ 

PAS  AH 

67 

♦ IPO) NT(  1 2 ),NP ARA, 

NPA  ,SPARA(9, 

121.14TFD  (91. NIP  (121. 

PAS  AH 

68 

♦5PAfiB( 

9,12)  , PAR 

A!  12  >, OPARt  12 

) ,S2INY(  9,9) 

PAR  AH 

69 

♦ ,0EIP(  9 ) 

PARAH 

70. 

c 

THIS  ROUTINE 

SETS  UP  NOMINAL  PARAMETER  VALUE 

FfiHSET 

71 

c 

I 

TEST  FOR 

NORflAL  OR 

ERROR  TYPE 

CONVERSANCE  STOP 

PRHSET 

72 

I FC  II 

6T.CJ  60  TO  30 

PRESET 

30' 

73. 

c 

1A  NORMAL  CONVERSANCE  SET 

PRHSET 

78 

00  20 

I-l.flPARA 

PRHSET 

75. 

1F( !POINT( J>  ST .21 ) 60  TO  10 

PRHSET 

1C 

596 
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Subroutine  PROPB 


Purpose 

Subroutine  performs  arc  initialization  for  adjoint  solution. 


Description 

PRQ5PB  is  called  from  BNTG. 


539 


Vn 


FOR  IRAN 

hath 

CODE 

DESCRIPTION 

SIORAG 

F 

SUBROUTINE  05 AGE 

SYMBOL 

symbol 

BLOCK 

LOC 

S08R  CODE  VAR 

AE 

A i* 

0 

Total  nozzle  € i 1 t area 

/GENF  /! 

520  ) 

ACCEL 

I 

AE 

exit 

FH2 

I 

AE 

IMPUL 

I 

AE 

PROPB 

0 

AE 

PROPIN 

0 

AE 

SDER3 

I 

AE 

AEIRO 

05  , , 

0 

Angie  of  attack  fro*  last  noainal  trajectory 

/ AEC03  /( 

1 > 

AST3 

ft 

APHO 

o 1 d 

( DEG  > 

FNTG 

I 

APHO 

PIT  X 3 A 

I 

APHO 

OUT 

I 

APHO 

PROPB 

0 

AEZRO 

PROP  1 N 

0 

AEZRO 

CDE 

0 

Constant  value  of  engine  deflection 

(RAD) 

/GENF  /( 

553) 

ELI 

I 

COE 

PROPB 

0 

CUE 

PROPIN 

0 

CDE 

DRAG 

D 

0 

Aerodynaalc  drag 

( LBS  ) 

/GENF  /( 

497  ) 

ACCEL 

I 

DRAG 

BL5 

I 

DRAG 

BL7 

I 

DRAG 

BL8 

I 

DRAG 

ENVPRF1 

I 

DRAG 

FH3 

I 

DRAG 

OUT 

I 

DRAG 

PROPB 

0 

DRAG 

PROPIN 

0 

0RA6 

S0ER3 

I 

DRAG 

VT 

n 

DRAG 

EJ 

A 

I 

Nozzle  exit  area 

(FT2) 

/ ARCDAT/( 

2 ) 

PROPB 

i 

EJ 

exit 

PROPIN 

i 

EJ 

SIZIN 

0 

EJ 

PRATE 

I 

Input  rated  vacuua  thrust  per  engine 

( LBS  ) 

/ ARCDAT / ( 

42) 

EQUA3 

I 

FRATE 

FXBAT 

I 

FRATE 

PROPB 

I 

FRATE 

PROP  1 N 

I 

FRATE 

S1ZIN 

0 

FRATE 

FRATED 

0 

Net  rated  aaxlaut  rocket  vacuua  thrust 

( LBS  ) 

/GENF  /( 

567  ) 

I PIP  UL 

I 

FRATED 

PROPB 

0 

FRATED 

PRO  P 1 N 

0 

FRATED 

FVAC 

n 

Total  vacuu*  thrust  [rocket] 

( LBS  ) 

/GENF  /{ 

528  ) 

ACCEL 

I 

FVAC 

E0UA3 

n 

FVAC 

FHZ 

i 

FVAC 

I OP  UL 

n 

FVAC 

PROPB 

N 

FVAC 

PROPIN 

n 

FVAC 

SDER3 

i 

FVAC 

Gammad 

0 

Pitch  rate 

(RAO) 

/GENF  /( 

564  ) 

BL4 

i 

GAMMAD 

PROPB 

0 

SAMNAD 

PROPIN 

0 

GAflMAD 

Gpiax 

i 

flaxiauo  total  acceleration  g load 

/ARCDAT/( 

12  ) 

BL5 

1 

GPIAX 

w 

P1AX 

FH3 

I 

GPIAX 

P10DELA 

I 

Gpiax 

PROPB 

I 

GPIAX 

PROP  I N 

I 

GPIAX 

GflDOT 

7* 

i 

Pitch  rite  ( DEG/SEC  ) 

/ AR  CDAT /{ 

15  ) 

0ER3A 

I 

GflDOT 

flODELA 

I 

GP100T 

mOOELB 

I 

GMOOT 

PROPB 

I 

GflDOT 

PROPIN 

I 

GflDOT 

HDflAX 

®max 

i 

fla*1*un  heating  rate  Inequality  constraint 

/ARCOAT/( 

14  ) 

PROPB 

I 

HDflAX 

30  OCT  72  G 01-46 


I ARC  ( Arc  no«b  t r /XCOOES/t  iHfc)  AD1CB3  I 1ARC 

AO  I 03  A I 1 AR  C 
AOJUST  I 1 ARC 
AST3  I I ARC 
BNTG  (1  I ARC 
ENVPRFl  I 1 ARC 
FNTG  H I ARC 
GET1T  I 1 ARC 
P100ELA  I I ARC 
PROPS  I I AR  C 
PROPIN  I I ARC 
REU3  I I ARC 
SDINP  n I ARC 
STAU  I I ARC 
STP3  I I ARC 
TRTOSZ  I I ARC 


I NEOFL 

I 

A 2,0  siord  array  that  contains  the  code  number  of 

/GLOBAL/C 

73  ) 

PROPB 

I 

INE8FL 

the  state  variables  Inequality  constraint  that 

PROPIN 

m 

I NEOFL 

applies  on  each  subarc  A zero  entry  Indicates 

that  no  SVIC  applies. 

STP3 

11 

INEOFL 

JAER 

I 

Aerodynamic  model  option  flag 

/ AfiCD  AT/< 

9) 

BEROCQ 

I 

JAER 

E0UA3 

I 

JAER 

GEINP 

I 

JAER 

OUT 

I 

JAER 

PROPB 

I 

JAER 

PROPIN 

I 

JAER 

VT 

I 

JAER 

J PRO 

I 

Propulsion  model  option  flag 

/ ARCOAT /( 

10) 

EQUA3 

1 

JPRB 

GEINP 

I 

JPRO 

IF1PUL 

I 

J PRO 

DODELA 

I 

JPRO 

PROPB 

I 

JPRO 

PROPIN 

I 

JPRO 

JPRP 

0 

Propulsion  flag  for  different  rocket  options 

/XCOQES/( 

199) 

ACCEL 

I 

JPRP 

0ER3A 

I 

JPRP 

EQUA3 

I 

JPRP 

HOOELA 

I 

JPRP 

PDY3A 

I 

JPRP 

PROPB 

0 

JPRP 

PROPIN 

0 

JPRP 

JP1 

0 

Option  flag  for  first  governing  equation 

/XCOQES/( 

217) 

AGETB3 

n 

JP1 

AST3 

fl 

JP1 

P100ELA 

H 

JP1 

HOOELB 

I 

JP1 

PROPB 

0 

JP1 

PROPIN 

0 

JP1 

JP2 

0 

Option  flag  for  second  governing  equation 

/ XCODES/( 

218  ) 

mODELA 

I 

JP2 

flODELB 

1 

JP2 

PROPB 

0 

JP2 

PROPIN 

0 

JP2 

JS 

I 

Absolute  value  of  arc  cut-off  option  code 

/XCOOES/< 

153) 

A0ICB3 

N 

JS 

ADIC3A 

I 

JS 

A01D3A 

1 

JS 

BNTG 

N 

JS 

FNTG 

n 

JS 

PROPB 

i 

JS 

PROPIN 

I 

JS 

STP3 

I 

JS 

T0L3 

I 

JS 

LIFT  I 0 Aerodynamic  lift  (LBS)  /GENF  /(  996  ) ACCEL  I LIFT 

BLR  I LIFT 
BL5  I LIFT 
BL6  I LIFT 
ENVPRM  I LIFT 
FH3  I LIFT 
OUT  I LIFT 
PROPS  0 LIFT 
PROPIN  0 LIFT 
VT  0 LIFT 
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FORTRAN  HATH 

SYRBOL  SYHBOL 


CODE 


DESCRIPTION 


STORAGE 
BLOCK  LOC 


SUBROUTINE  USAGE 
SUBR  CODE  VAR 


F1AEA 

nisp 

P1PI N 
NT 

MTT 

NST 


ons 

J 


OHAX 
R 01 


^hax 


REHAX  R 

*YrtAX 

T T 


TBU 

30  OCT  72  G.0I-A6 


I Curve  number 

I Curve  number  kISP  Ion  .table 

I Save  thrust  tune  nuabers  for  adjoint  solution 
I Curve  nuaber  -thrust  table 

FI  Thrust  curve  nuaber 

I Nuaber  of  arcs  In  trajectory 

1 Array  of  arc  cut  off  values  tsdl 

I Haxiaua  dynaatc  pressure  instantaneous  inequality 
liait  C PSF  > 

I Angle  to  radian  conversion,  .017A5329252 


I Flaxinua  unit  reynolds  nuaber  inequality  constraint 
0 Thrust  (LBS) 


I Saved  rocket  burn  initiation  tlaes  used  during 
adjoint  integration  (sd) 


/ ARCDAT/t 

16  1 

E0UA3 

I 

HAEA 

GEINP 

I 

HAEA 

PROPB 

I 

HAEA 

PROPIN 

I 

WAEA 

/ ARCDAT/ C 

26  ) 

imPUL 

I 

HISP 

PROPB 

I 

HISP 

PROPIN 

1 

HISP 

/XCODES/( 

197  ) 

PROPB 

I 

HP  IN 

PROPiN 

0 

HP  IN 

/ARCOAT /( 

25  > 

FXOAT 

I 

HT 

PROPB 

I 

HT 

PROPIN 

1 

HT 

THRUST 

1 

HT 

/ XCO DES /( 

196) 

EQUA3 

I 

HTT 

PROPB 

H 

ATT 

PROPIN- 

H 

HTT 

/ XCQ  D£S/( 

166  ) 

BNTG 

1 

NST 

FNTG 

0 

NST 

PROPB 

1 

NST 

SDINP 

I 

NS 

SDINP 

FI 

N5T 

TEST 

1 

NST 

T0PF1 

I 

N5T 

TRANS 

1 

NST 

/GENF  /( 

1 ) 

ADJUST 

n 

0 MS 

FNTG 

I 

OHG 

PRM5ET 

n 

OHG 

PROPB 

i 

OHS 

SDINP 

n 

OHG 

5TP  3 

i 

OHS 

TOPH 

D 

ions 

/ARCDAT/( 

11) 

PROPB 

i 

CAAX 

/DATA 

/< 

3) 

BLICO 

I 

RDI 

0ER3A 

I 

RDI 

FNTG 

I 

RDI 

GUI3A 

I 

RDI 

IWDELA 

I 

ROI 

HOOELB 

1 

ROI 

PA0S1 

0 

RDI 

PROPB 

I 

ROI 

PROPIN 

I 

RDI 

REU3 

I 

RDI 

SOI  NP 

I 

RDI 

sonG 

I 

RDI 

/ AR  COAT/( 

91  > 

PROPB 

I 

RENAX 

/GENF 

/( 

All  ) 

ACCEL 

I 

T 

BLGCDN 

n 

T 

BLA 

I 

T 

BL6 

I 

T 

BL7 

I 

T 

BL8 

1 

T 

EL2 

i 

T 

E0UA3 

0 

T 

FH1 

I 

T 

FH2 

I 

T 

FH3 

I 

T 

FHA 

I 

T 

IHPUL 

I 

T 

OUT 

I 

T 

PROPB 

0 

T 

PROPIN 

0 

T 

REU3 

0 

T 

SDER3 

I 

T 

/GENF 

n 

500  ) 

PROPB 

1 

TBU 

PROPIN 

0 

TBU 

602 


fcriran 

Symbol 


math 

SYltBOL 


CODE 


DESCRIPTION 


5 1 0 ft  A j S SUBBOUilNE  USAGE 

BlOU  LOC  SUSR  CODE  VAR 


T a URN 

t. 

0 

Rocket  burn  Initiation  tl««  on  foraard 

/ GENF  /I 

von 

EQUA3 

I 

TBURN 

b 

tr  ajectorylsdl 

P10DELA 

I 

TSURN 

PROPS 

0 

TBURN 

PROPIN 

n 

TBURN 

TPIULT 

T 

I 

Thrust  aultlplier  or  nunber  o 1 engines 

/ ARCDAT/I 

H ) 

E0UA3 

l 

TPIULT 

»u  1 t 

FXOAT 

n 

TPIULT 

PROP  B 

i 

TPIULT 

PROPIN 

I 

TPIULT 

SIZIN 

0 

TPIULT 

ZERO 

0 

Parti  a 1 of  each  nuaber  art  altitude 

/GENF  /< 

52H) 

E0JA3 

0 

P1ACHR 

PROPS 

0 

ZERO 

PROP  I N- 

0 

ZERO 

VT 

I 

P1ACHR 
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603 


PftOPO 


604 


*6R  ,ER  ,0N6Z  ,XLAMRF  ,YMURF 

*,JJ0PC10)  , IFATAL  ,NARC  ,NBRAN  NF  ARC 

»,XTAa<2G),tTAB<20>  SIG  ,nAXTA6 


’ bw  j.  » ■ nyi  lw  f |«i(U  * tin 

*,Sfl  ,PSIRF,IPFL61,  I 

*,ITPSa  ,ASDL  ,KSL0BLt8> 

EO  U I V ALENCEC  1NOF,IN£QFL(20)1 
EOUI VALENCEC 1NE0S,ILABC2>> 

ZERO  COMPUTATION  AREAS 

00  1 1=1,110 

1 ZEROl 1 1=0. 

00  Z 1=1,5* 

2 AEZRGC 1 1=0. 

LIFT=0. 

0RAS=6. 

6AN«A0=GMD0T*H01 
1.  INITIAL1Z  BIVARIATE  AERO 
IFt IARC.EO.NST)  JJJ=999 
1FCUAER.NE.21  SO  TO  30 
!F< JJJ.NE.999J  60  TO  20  . 


IPFLG2,IPFLG3,IPFLG4,1NE0FU 201 


GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

RETAP 

NOS 

APR2T 

CORN 

CORN 

P014 

P014 

APR2T 

APR27 

APR2T 

APR27 

P014 

PROPS 

PHOPB 

PROPB  30- 
PROPB  20- 


96. 

10 

JJJ=MA£A 

PROPB 

07. 

CALL  1NBVADC  JJJ 1 

PROPB 

98- 

GO  TO  30 

PROPB 

99- 

20 

IFC JJJ.NE.*AE*>  GO  TO  10 

PROPB 

TS3=r 

too. 

30 

CONTINUE 

PROPB 

101. 

C 

INITIALIZE  AIRBREATKER 

FIXED 

102. 

IFCIARC.EO.NST)  AAA  =999 

FIXEO 

IF< JPRQ.NE.2)  60  TO  350 

109. 

lFtKKH.Nfc.999>  60  TO  320 

FIXED 

320  — 

105. 

310 

KXK  = ftWDB 

FIXED 

106. 

CALL  mVPDCXKK) 

FIXED 

107. 

GO  TO  350 

FIXED 

108. 

320 

IF  (KKK.NE.fWOB)  60  TO  310 

FIXEO 

3 To— 

109. 

350 

CONTINUE 

FIXED 

no. 

C 

I-A  SET  UP  FLAG  FOR  INE0UAL1TV  CUTT  OFF 

< ADJOINT 

DISCONTINUITY  ) 

NOS 

111. 

INEOS=0 

APR2T 

113. 

IFC INEQFLC I ARC— l 1 > 31,31,39 

NOS 

119. 

31 

IFCJS-33)  39,32,33 

NOS 

115. 

32 

IF(QIUU.EQ.0*SU*RC-1  >)  INEOS-1 

APR2T 

116. 

60  TO  39 

NOS 

nr. 

33 

IFC JS-351  34,35,39 

NOS 

u~\ 

no. 

39 

IFC  HDMAX.EQ.OMGC IARC-1 ) ) INE05=1 

APRZ7 

119. 

GO  TO  39 

NOS 

» 

120. 

35 

IFC  REMAX. EQ  OBGC IARC-1 >1  INEDS=l 

APR27 

121. 

39 

CONTINUE 

NOS 

122. 

c 

II  TEST  FOR  MOMENT  BALANCE  AND 

INITIALIZE  ENG. 

OEFL. 

PROPB 

123. 

JP2  = 1 

PROPB 

129. 

COE  = 0. 

PROPB 

125. 

IFC JAER.NE.31  60  TO  40 

PROPB 

90 — l 

126. 

JP2-  2 

PROPB 

, \ 

127. 

90 

CONTINUE 

PROPB 

128. 

c 

IJ-A  TEST  FOR  AXRBREATKER 

FIXED 

129. 

IFC  JPR0.NE.21  GO  TO  45 

fixed 

95—i 

130. 

JP1=  9 

FIXED 

131- 

JPRP-1 

FIXED 

132. 

FETURN 

FIXED 

133. 

95 

CONTINUE 

fixed 

1 39  . 

c 

III  INITIALIZE  PROPULSION  BUR! 

TINE 

*N0  CURVE 

NUMBER 

PROPB 

135. 

AE=EJ»TRULT 

PROPB 

136. 

IFCMT1  50,90,50 

PROPB 

50-, 

137. 

50 

TBUBN  = TBU( I ARC  > 

PROPB 

138. 

MTT  = MPINCIARCl 

PROPB 

139. 

c 

CORN 

190. 

X 

11 I-A  TEST  FOR  ACCEL  LIMIT 

ANO  SET 

ROCAET 

FLAG 

CQflN 

191. 

IFC  GMAX  160,60,70 

PROPB 

60 — 1 

39- 

33- 

r 

*39 

,35- 

r 

I39 
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143. 


GO  TO  80 


PROPS  80—i 


144 
145. 
1 46 


70  JPRP  =3 

III-B 


THROTTLING  AND  DUAL  ENGINE  LOGIC 


PROPS 

CORN 

COflN 


147  80  IF(MSP . EQ .0. AND. JPRO .£0.0 ) RETURN 

148.  1F( JPRO.EQ.l  ) CALL  ISPIN 

149  IFtFRATE.EO.O  1 GO  TO  85 


AAA 

AAA 

FRAT 


85-1 


150 

151 


82  PRATED  = FRATE  * TftULT 
RETURN 


FRAT 

FRAT 


152. 

153. 


85  CALL  SPLfNEtHTT,  0..  FRATE,  DUN) 
GO  TO  82 


FRAT 

APR72 


82- 


154. 

90 

JPRP=1 

PFOPB 

155. 

FVAC=0. 

PD14 

156. 

T-0. 

P014 

157 

c 

COM 

158. 

c 

III-C  USE  RATED  THRUST  IF  INPUT 

COM 

159. 

IFC  FRATE. LE. 0. ) RETURN 

FRAT 

160. 

BE  = EJ.THULT 

FRAT 

181  . 

flTT-0 

PK1S2 

162. 

FVAC  = FRATE  * TNULT 

FRAT 

163. 

lF(JPRO.EB.l)  CALL  ISPIH 

AAA 

164 

PRATED  = FVAC 

FRAT 

185. 

IF{  GRAX.ST.O. > GO  TO  100 

FRAT 

166. 

JPRP  =2 

FRAT 

167. 

RETURN 

FRAT 

168. 

100 

JPRP  = 3 

FRAT 

169. 

TsFVliC 

PK1SZ 

170. 

RETURN 

APR 

171. 

ENO 

PROPS 

loo— | 
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60S 


8 


SUBR0UT INE 
PR0PIN 


607 


Subroutine  PRO  PIN 


Purpose 

Svibroutine  PROPIN  performs  arc  initialization  for  the  forward  trajectory. 


Description 

PROPIN  is  called  from  FNTG. 


SO  8 


sO 

o 

<3 


FORTRAN  OATH 

SYMBOL  SYMBOL 


DESCRIPTION 


S TOfiAGF  SUBROUTINE  USAGE 

BLOCK  LOL  SUBR  CODE  VAR 


AE 

AEZRO 

COE 

DRAG 


DTNC 


OVAR 


EJ 

FRATE 

FRATED 

FVAC 


GAMMAD 


• * 1 1 


o I d 


0 


A r 


e « i t 


0 Total  notxla  e«lt  area 

0 Angle  of  attack  fro»  last  noalnal  trajectory 

0 Constant  value  of  engine  deflection 

0 Aerodynaalc  drag 

1 Integration  interval 

0 State  vector  derivatives  in  steepest  descent 


1 Nozzle  exit  area 

I Input  rated  vacuua  thrust  per  engine 

0 Net  rated  naxiaua  rocket  vacuue  thrust 
M Total  vacuu*  thrust  trocketl 

0 Pitch  rate 


/GENF 

/( 

520  > 

ACCEL 

I 

AE 

FH2 

I 

AE 

IMPUL 

J 

AE 

PROP  B 

0 

AE 

PROPIN 

G 

AE 

S0ER3 

I 

AE 

/ AEC03 

/( 

1 ) 

AST  3 

n 

APHO 

(DEG) 

FNTG 

i 

APHO 

P1TX3A 

i 

APHO 

OUT 

i 

APHO 

PROPB 

0 

AEZRO 

PROP  1 N 

0 

AEZRO 

( RAO  ) 

/GENF 

/( 

553  ) 

ELI 

i 

COE 

PROPB 

0 

COE 

PROPIN 

0 

CDE 

( LBS  ) 

/GENF 

/( 

197  ) 

ACCEL 

i 

DRAG 

BL5 

i 

DRAG 

BL7 

i 

DRAG 

BL8 

i 

DRAG 

ENVFRN 

i 

DRAG 

FH3 

i 

DRAG 

OUT 

i 

DRAG 

PROPB 

0 

DRAG 

PROPIN 

0 

DRAG 

S0ER3 

I 

DRAG 

VT 

M 

DRAG 

( SEC  ) 

/ ARCDAT/( 

5 ) 

BNTG 

I 

DTNC 

FNTG 

I 

OTNC 

GEINP 

M 

DTNC 

PROPIN 

I 

DTNC 

id  du  1 e 

/ST  ATE3/ ( 

15  ) 

A0ICB3 

M 

OVAR 

ADIC3A 

I 

OVAR 

AD1D3A 

M 

D VAR 

0ER3A 

0 

VD 

DTF3 

I 

VT 

ENVPRM 

I 

OVAR 

POBC 

I 

VD 

PROPIN 

0 

OVAR 

REU3 

I 

OVAR 

RKTA3A 

I 

OV 

SDER3 

0 

DVAR 

STP3 

I 

OVAR 

YREF3 

1 

DVAR 

YREF3 

I 

VT 

(FT2) 

/ ARCDAT/( 

2) 

PROPB 

I 

EJ 

PROPIN 

I 

EJ 

SIZIN 

0 

EJ 

( LBS  ) 

/ ARCDAT /( 

12  ) 

E0UA3 

I 

FRATE 

FXDAT 

I 

FRATE 

PROPB 

I 

FRATE 

PROPIN 

I 

FRATE 

SIZIN 

0 

FRATE 

( LBS  ) 

/GENF 

/( 

567  ) 

IMPUL 

I 

FRATED 

PROPB 

0 

FRATED 

PROPIN 

0 

FRATED 

( LBS  ) 

/GENF 

/( 

523  ) 

ACCEL 

I 

FVAC 

* 

E0UA3 

n 

FVAC 

FH2 

i 

FVAC 

IMPUL 

M 

FVAC 

PROPB 

n 

FVAC 

PROPIN 

M 

FVAC 

SDER3 

I 

FVAC 

(RAD  ) 

/GENF 

/< 

561) 

BL1 

I 

GAMMAD 

PROPB 

0 

GAMMAO 

PROPIN 

0 

GAMMAD 

30  OCT  72  G. 01-16 


610 


'* 


GflAX 

G 

! 

PI  i * 1 mu®  total  acceleration  9 load 

/ARCOAT/I 

12  ) 

BL5 

I 

GflAX 

nAX 

FH3 

I 

GflAX 

flOOELA 

I 

GflAX 

PROPB 

I 

GflAX 

PROP  1 N 

1 

GflAX 

GODOT 

* 

I 

Pitch  rate  < DEG/5EC ) 

/ARCDAT/C 

15  ) 

DER3A 

1 

GflOOT 

?* 

flOOELA 

I 

GflODT 

MODELS 

I 

GflOOT 

PROPB 

I 

GflOOT 

PROPIN 

I 

GflDOT 

I ARC 

I 

Arc  nuttber 

/XC0DE5/C 

1 A6  ) 

ADICB3 

I 

I ARC 

ADID3A 

I 

IARC 

ADJUST 

I 

I ARC 

A5T3 

I 

IARC 

BNTG 

fl 

1 ARC 

ENVPfifl 

I 

IARC 

FNTS 

fl 

IARC 

GETIT 

I 

IARC 

flOOELA 

I 

I ARC 

PROPB 

I 

IARC 

PROF  I N 

I 

1 ARC 

REU3 

I 

IARC 

SOI  NP 

fl 

IARC 

STAU 

I 

IARC 

STP3 

I 

IARC 

TRTOSZ 

I 

I ARC 

I NO 

I 

F 1 aa  indicates  whether  on  first  nowtnal  trajectory 

/XC0BES/( 

1 A 1 ) 

AST3 

I 

1 NO 

( IND=1 ) 

BGET3 

I 

INO 

FNTG 

fl 

INO 

GU13A 

I 

INO 

P1TX3A 

I 

IND 

PROPIN 

I 

IND 

INEOFL 

n 

A 20  word  array  that  contains  the  code  number  of 

/GLOBAL/t 

73  ) 

PROPB 

I 

INEOFL 

the  state  variables  inequality  constraint  that 

PROPIN 

fl 

INEOFL 

applies  on  each  subarc.  A zero  entry  indicates 
that  no  SVIC  applies* 

STP3 

fl 

INEOFL 

I OPEN 

0 

Closed  to  open-loop  control  switch  when  equal  to  2 

/XCOOES/t 

1 A2  ) 

FNTG 

* 

IOPEN 

PROPIN 

0 

IOPEN 

ISTART  0 Initialization  and  divergence  flag  /XCODES/I  1H7)  AST3  0 ISTART 

BLGCDN  0 ISTART 
BLYNE  0 ISTART 
FNTG  I ISTART 
flOOELA  0 ISTART 
PROPIN  0 ISTART 
REU3  I ISTART 
TEST  fl  ISTART 
TOFiT  fl  ISTART 

/XCOOES/t  If?)  AST3  I ITER 
FNTS  I ITER 
GETIT  I ITER 
AODELA  I ITER 
OUT  I ITER 
PAY02  It  ITER 
PROP  I N I ITER 
TEST  It  ITER 
TOPff  fl  ITER 

JAER  I Aerodynamic  model  option  flag  /ARCDAT/C  f)  BEROCO  I JAER 

ESJA3  I JAER 
GEINP  I JAER 
OUT  I JAER 
PROPB  I JAER 
PROPIN  I JAER 
VT  I JAER 

JPRO  I Propulsion  model  option  flag  /ARCOAT/(  10)  E0UA3  I JPHO 

GEINP  I JPSO 
input.  I JPSO 
flOOELA  I JPSO 
PROPB  I JPHO 
PROP  1 N I JPRO 


ITER  I 


Trajectory  pass  indicator. 
ITER  = 1,  CONSTRAINTS 
= 2,  OPTIMIZATION 
= 3,  SOLUTION 
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Vi 

Ml' 

-a 


FORIHAN 

ivnaoL 

HATH 

SVdBOL 

CODE 

DESCRIPTION 

ft  T (1  ft  AGE 

filJAROUT  | IVE 

: U 5 A c 

BLOCK 

LOC 

5»U6R  LOOfe 

V AP 

JPRP 

0 

Propulsion  flag  for  different  retKet  options 

/XCOOES/< 

199  ) 

ACCEL 

I 

JPRP 

0ER3A 

I 

JPRP 

E8UA3 

I 

JPRP 

dODELA 

I 

JPRP 

P0V3A 

I 

JPRP 

PROPB 

0 

JPRP 

propin 

0 

JPRP 

J P 1 

0 

Option  flag  for  first  governing  equation 

/ XCQDES/( 

2in 

AGETB3 

fl 

JP1 

AST3 

rn 

JPl 

dODELA 

ra 

JP1 

dODELB 

i 

JP) 

PROPB 

0 

JPl 

PROPIN 

0 

JPl 

J P2 

0 

Option  flag  for  second  governing  equation 

/ XCODES/f 

218  ) 

dODELA 

1 

JP2 

dOOELB 

I 

JP2 

PROPB 

0 

JP2 

PROPIN 

0 

JP2 

JP3 

0 

Option  flag  for  third  governing  equation 

/ XCODES/f 

219  ) 

AGETB3 

0 

JP3 

AST3 

n 

JP3 

dODELA 

n 

JP3 

nODELB 

i 

JP3 

OUT 

i 

JP3 

PROPIN 

0 

JP3 

JS 

I 

Absolute  value  of  arc  cut-off  option  code 

/ XCO  DES/I 

153) 

ADIC83 

It 

JS 

ADIC3A 

I 

JS 

ADID3A 

1 

JS 

BNTG 

n 

JS 

FNTG 

R 

JS 

PROPB 

i 

JS 

PROPIN 

i 

JS 

STP  3 

i 

JS 

T0L3 

i 

JS 

LIFT 

t 

0 

Aerodynamic  lift  (LBS) 

/ GENE  /< 

996  ) 

ACCEL 

i 

LIFT 

BL9 

i 

LIFT 

BL5 

i 

LIFT 

BL6 

i 

LIFT 

ENVPfid 

i 

LIFT 

FH3 

i 

LIFT 

OUT 

i 

LIFT 

FROPB 

0 

LIFT 

PROPIN 

0 

LIFT 

VT 

0 

LIFT 

(IAEA 

I 

Curve  number 

/ARCDAT/t 

18) 

E3UA3 

1 

(IAEA 

GEINP 

1 

dAEA 

PROPB 

I 

(IAEA 

PROPIN 

1 

(IAEA 

MSP 

I 

Curve  number  klSP  loss  table 

/ ARCDAT/( 

26  ) 

IdPUL 

I 

MSP 

PROPB 

I 

MSP 

PROPI  N 

I 

MSP 

(IP  IN 

0 

Save  thrust  curve  numbers  for  adjoint  solution 

/XC00ES/( 

197  ) 

PROPB 

I 

dp  I N 

PROPIN 

0 

dPIN 

PIT 

I 

Curve  number  -thrust  table 

/ARCDAT/f 

25  ) 

FXOAT 

I 

dT 

PROPB 

I 

dT 

PROPIN 

I 

AT 

THRUST 

I 

dT 

PITT 

fl 

Thrust  curve  number 

/XCOOES/t 

196  ) 

EOUA3 

I 

dTT 

PROPB 

fl 

dTT 

PROPIN 

fl 

dTT 

N ARC 

N„ 

1 

Number  of  subarcs  In  the  problem. 

/GLOBAL/! 

18  ) 

FNTG 

I 

NARC 

3 

GEINP 

(1 

NARC 

PROPIN 

I 

NARC 

SDINP 

I 

NARC 

SIZ1N 

I 

NARC 
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RDI  I Angle  to  radlin  conversion.  .011*15  32  9252  /DATA  /(  31  BU  CO'  I RDI 

DER3A  I RDI 
FNTG  l RD] 
GUI3A  I RDI 
flfl  DEL  A I RDI 
nO DELB  I RDI 
P ADS  1 0 RDI 

PROPS  I RDI 
PROPIN  1 RDI 
REU3  I RDI 
SQ1NP  I RDI 
SOMG  I RDI 

T T D Thrust  (LBS)  /GENF  /(  HID  ACCEL  I T 

BtGCON  « T 
BLR  I T 
8L6  I T 
BL7  I T 
BLB  I T 
ELZ  I T 
EOUA3  0 T 
FH1  I T 
FH2  I T 
FH3  I T 
FH9  I T 
IMPUL  I T 
OUT  I T 

• ‘ PROPB  0 T 

PROPIN  D T 
REU3  0 T 
SDER3  I T 


T BU 

0 

Saved  rocket  burn  initiation  times  used  during 

/GENF 

/{ 

500) 

PROPB 

I 

TBU 

adjoint  integration  (sd) 

PROPIN 

0 

TBU 

T BURN 

t. 

M 

Rocket  burn  initiation  time  on  forward 

/GENF 

/( 

999  ) 

EQUA3 

I 

TBURN 

1 b 

tr  ajectory £sd  3 

MQDELA 

I 

TBURN 

PROPB 

0 

TBURN 

PROPIN 

n 

TBURN 

TIME 

t 

I 

Time  (elapsed) 

/GENF 

/< 

993  ) 

ADICB3 

0 

TIME 

A$T3  I TIP1E 
BCJTG  M TIME 
con3  i Tine 
DTF3  I TIME 
ENJPRM  I TIME 
E0UA3  I TIME 
FNTG  M TIME 
MODELA  I TIME 
OUT  I TIME 
PQ8C  I TIME 
PROPIN  I TIME 
REU3  M TIME 
RKTA3A  M TT 
RKTB3A  M TT 
ksef3  n time 


T MULT 

T 1 

Thrust  multiplier  or  number  of  engines 

/ARCOAT/C 

9 ) 

E0UA3 

I 

T MULT 

1 »ult 

FXDAT 

fl 

T MULT 

PROPB 

I 

TMULT 

PROPIN 

I 

TMOLT 

SIZIN 

0 

TMULT 

TST1 

• I 

fire  end  times  for  nominal  trajectory 

/GENF  /( 

933  ) 

BNTG 

I 

TST 1 

GET1T 

I 

TSTl 

PROPIN 

I 

TST1 

SDINP 

0 

TSTl 

TEST 

0 

TSTl 

TOPM 

I 

TSTl 

TRAN3 

I 

TSTl 

TRTOSZ 

I 

TSTl 

ZERO 

0 

Partial  of  math  number  «rt  altitude 

/GENF  /( 

529  ) 

E0UA3 

0 

MACHR 

PROPB 

0 

ZERO 

PROPIN 

0 

ZERO 

VT 

I 

MACHR 
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F0R1RAN  HATH 

SYHBOl  SYP1BOL 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

SLOCK  LOC  SU8R  CODE  VAR 


zz 


UNOfc . 


I 

A r r ay  of  variables 

for  adjoint  Integration  /5TATE3/(  29)  ADE03A 

1 

VARL 

ADIC63 

0 

VARL 

A0IC3A 

0 

VARL 

PROP  1 N 

I 

ZZ 

RKTA3A 

n 

F 

RKT83A 

n 

V 

STVBL3 

0 

VARL 

TRAN3 

ft 

VARL 

0 

File  of  all  output 

data  / UNOfc  /(*  ) BLICO 

0 

UNOfc 

BNCRVC 

0 

.UNOfc 

CRASH 

0 

. UNOfc 

FRENCH 

0 

UNOfc 

FXDAT 

0 

. UNOfc 

SEINP 

0 

■ UNOfc 

HUNT 

0 

■ UNOfc 

INEDIT 

0 

UNOfc 

I TER  B 

0 

■ UNOfc 

flODELA 

0 

UNOfc 

nONJ 

0 

. UNOfc 

DPSI 

0 

■ UNOfc 

OUT 

0 

■ UNOfc. 

PAV02 

0 

■ UNOfc. 

PRINT 

0 

UN06. 

PRINTV 

0 

UNOfc 

PRINTU 

0 

UNOfc . 

PRITEO 

0 

. UNOfc . 

PRITVA 

0 

UNOfc. 

PROPIN 

0 

. UNOfc. 

PRDTHR 

0 

. UNOfc . 

PRUTSfl 

0 

■ UNOfc, 

RANGE 

0 

.UNOfc 

S 

0 

. UNOfc 

SDI  NP 

0 

. UNOfc 

SIZE 

0 

■ UNOfc 

SIZIN 

0 

■ UNOfc 

SIZQUT 

0 

■ UNOfc 

SOLVE 

0 

■ UNOfc 

SPLICO 

0 

■ UNOfc 

SPLIZ 

0 

■ UNOfc 

SPLVNE 

0 

UNOfc 

SSSP 

0 

. UN06 

STAU 

0 

■ UNOfc 

STPIT 

0 

■ UNOfc 

SUCIOUT 

0 

■ UNOfc 

TABIN 

0 

. UN06 

TEST 

0 

■ UNOfc 

VEHOF 

0 

. UNOfc 

UTSCH 

0 

. UN06 

IdTVGL 

0 

UNOfc 
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PROPIN 


I 

SUBROUTINE 

PROPIN 

PROP  1 H 

2 C 

THIS 

routine  pereqrws 

ARC  INITIALIZATION 

PROP  1 N 

3 C 

FOR 

FORUARD 

TRAJECTORY 

PROPIN 

4. 

Cannon/ AEC03/ 

AEC03 

5 

♦ ftp  HO 

, APHR 

, ALPHA 

, VDA 

, GDA 

,PDA 

AEC03 

6. 

♦ SI  NA 

, COSA 

f PHI  Q 

. PHID 

, PHI 

.SINPHI 

t 

AEC03 

7 

♦COSPHI 

,60PH 

,PDPH 

, XLAfflAt  9 1 

, XLAflPt  9 ) 

,CDO 

t 

AEC03 

8. 

♦ CDC* 

, CLO 

,FX 

XCGM 

, ZCGM 

,CLOn 

, 

AEC03 

9 

♦ cn 

,CHA 

CMAM  Cpm 

,cmq 

,c*on 

,FKn 

f 

AEC03 

10 

♦ CLAD 

,CL 

, CLA 

,CLM 

AEC03 

11 

♦ CO 

.CO  A 

.CDfl 

9 

AEC03 

12. 

EDUl VALENCE  (APHO.AEZftO) 

APA27 

13. 

DIMENSION 

AEZROl l > 

APR27 

14 

COPtnON/GENF/ 

GENF 

15 

♦ 0*6(20) 

,OMGP(20 

2 ),  VARQ(  9 ) 

,TOL(  9) 

, 5 VAR( 10) 

,WDC(20) 

9 

GENF 

16. 

♦ A{  9, 9 ) 

, ACONt 9 ) 

,BCON( 9) 

, COT  It  9,9) 

, DCQNl  9 ) 

.DTP 

GENF 

17. 

♦ 0T5 

, DT 

,6 

,DPSQ 

,0 

.as 

GENF 

18. 

♦ R 

,RE 

.MACH 

,PA 

,R0 

,cs 

GENF 

19. 

♦ VNU 

,PAR 

,ROR 

,CSR 

, VNR 

.sunsa 

t 

GENF 

20. 

♦ 5YS0 

,T I MEPH 

.TIMES 

.TOP 

,TOS 

,TRI9> 

t 

GENF 

21 . 

♦ TSTl 20) 

, TPH  (20). 015(20) 

, OIP l 20  > 

,T 

,N 

f 

GENF 

22 

♦TLPU201 

,TLS1  ( 20  ). DI P l( 20 ) 

, DISK  20 ) 

, II  ME 

,0np 

t 

GENF 

23. 

♦TIMPR 

, LI  FT 

, DRAG 

, T AX 

,TBURN 

,TBU<  20) 

t 

GENF 

24 

♦ AE 

,FP 

, FPQLO 

, FPD 

MACHR 

.KACHY 

t 

GENF 

25 

♦ OR 

,0V 

, FVAC 

LIFT  V 

GENF 

26. 

♦ LI  FIR 

, LI  FT A 

ORAGV 

' ORAGR 

■DRAGA 

GENF 

27.  - 

♦ 

UFTM 

;OBR 

, DB 

, I SP 

, ISPF 

1 

GENF 

28. 

♦ 

ULFT 

ULFTV 

. ULFTR 

, ULFT A 

GENF 

29. 

♦ xmcg 

,xmcgv 

, XMCGR 

.XftCGA 

, XNCG* 

.CODAE 

GENF 

30 

♦tULFT 

,CT 

.calpha 

, COE 

, DELTAE 

.SID 

GENF 

31. 

♦ COO 

. 5 1 DAE 

,xcs 

, ZCG 

,XJ 

GENF 

32. 

COMMON  / G£NF  / 

GENF 

33 

♦ XJV 

,XJR 

(RATED 

, SH 

,GA«NAD 

, XXG 

,XXP 

GENF 

34 

♦FRATEO 

GENF 

35 

♦ PI 

,P2 

>3 

. XKl 

,XX2 

,IK3 

GENF 

36. 

♦ XX  IT 

, XX2T 

,XX3T 

, XK1D 

, XX20 

,XX30 

GENF 

37. 

♦ XXI A 

, XK2A 

XX3  A 

,XX1V 

.XX2Y 

,XK3V 

GENF 

38 

♦ XXI  & 

, XK2G 

, XX3& 

,XX1P 

, XK2P 

,XK3P 

GENF 

39 

♦ XX 1R 

, XK2R 

. XX3R 

,XX10 

,XK20 

, XX30 

9 

GENF 

40 

♦ XK1U 

, XK2U 

, XK3U 

,xxin 

,XX2« 

,XK3n 

GENF 

41 

♦PV 

.PG 

,PP 

.PR 

,P0 

,DPOY<  3.8 > 

GENF 

42 

REAL  UFTA  . LIFT 

. lifta.lifth  . 

MACH, 

flACKR, 

GENF 

43. 

♦ ISP,  1 SPF 

, flACHV.LtFTV  , IRATED 

FfiAT 

44 

DIMENSION  TPHK10) 

.TST1( 10) 

GENF 

45. 

EOUI VALENCE! TLP1 ,TPH1 >, t TLSl.TSTi ) 

GENF 

46. 

COnrSDN  //CODES/ 

XCODES 

47 

♦ no  (9i 

,1C0B  <20).1TI  > 

, 1 NTB 

, JGI D(  20, 

2 ) . JPrt  (20,2). 

XCODES 

48. 

♦JST  (20) 

,NCNST 

, MSB 

, NS  AB 

,NI CNB 

XCODES 

49 

♦ I20P 

,ICOP 

. IFAH 

, IFAR 

, 1FB 

, IND 

XCODES 

50 

♦10PEN 

,IPH 

, ISPH 

, I SST 

, I ARC 

, I START 

XCODES 

51 

♦ ITCT 

, ITER 

, I VAR 

,J* 

,JPS 

,JS 

XCODES 

52 

♦ KOP 

, KPST 

' K 

, XST 

, NAD 

,NCASE 

XCOOES 

53 

♦ NCN 

,NEQd 

,NEO 

, NOP 

, NPH 

XCODES 

54 

♦ NST 

, IPST 

.lpfilM 

, ISTN 

, IPHN 

, ISTNB 

XCODES 

55 

♦IPKN& 

, I BLX1 

,IBUZ 

. ISTOP 

, ISTPP 

,L 

XCOOES 

56 

♦ IFDB 

. NB 

'lb 

. NPHP 

,NPHB 

XCODES 

57. 

56 

♦ NCI  IN  , NEOF  ,ILAB(8),JPRP  1GII  .PlTT,fiPiN(  20  ),JP1, 

COMPIQ  M/STATE3/ 

JP*,JP3 

XCODES 

STATE3D 

59 

♦VAR( 14) 

, DVAR  ( 14),  VARL  (99) 

,DVARL<9U) 

, Y0( 9 ) 

,SVY( 10) 

STATE3D 

60 

♦XL( 9.9) 
♦5INP51 

, YDPt 20.9) ,YOS  ( 2C.9  ) 

. CQSGAn 

. S I NGAM 

, 5 AVBPt 15) 

STATE30 

61 . 

,C0SPSI 

,SINRH0 

/COSRHO 

,OCORHO 

, OCOR02 

STATE30 

62. 

♦ SVBV  < 9 

, ONEGA 

, QME6A2 

STATE3D 

6 3. 

♦ VOV 

, GOV 

,RDV 

,nBV  i 

,POV 

,ODV 

STATE30 

64 

♦ UDV 

,VOG 

, GP6 

,ROG 

, POG 

,ODG 

STATE3D 

65- 

*uoe 

, VOR 

, GDR 

'rlDS  l< 

PDR 

, non 

STATE3D 

66. 

♦ UDR 

,VOM 

, GDN 

,nB« 

,PDM 

, VOP 

STATE30 

67 

♦ BDP 

,POP 

.OOP 

,UDP  ! 

, VDO 

,6D0 

STATE30 

68 

♦ POO 

, UDO 

, HTDV 

, HTOR 

STATE3D 

69 

PEAL  M Dfi  . 

MDV.  NOR 

STATE30 

70 

C0nnON/STATE3/ 

' 

STATE3D 

71. 

♦SIN2R0 

, CQS2RQ 

.C0S2GA 

STATE3D 

72 

COMMON/ GLOBAL/ 

global 

73 

♦ GR 

,ER 

.onsz 

, XLAPIRF 

YMUfiF 

,LU« 

global 

74 

*,JJOP( 10  > 

.ifatal 

.NARC 

. 4BR  AN 

, NF  ARC 

,IDl4> 

GLOBAL 

75 

♦ , XT  A8( 20  ) 

ITAB(  20  ) 

,51 G ,flAXTAB 

GLOBAL 
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6*5 


UTJ 


HN. 

145. 

146. 
147 
148. 
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76. 

♦ , Gfi 

.P$IRF,IPFLG1, 

IPFL62.IPFLS3. IPFLSl 

i,  I NEQFLt  20) 

Global 

77. 

♦ , I TPSfl 

, KSuL  . KGlOBLC 8 ) 

retap 

73. 

REAL  fiU3.  fiUD.  ISPB.  ISPO. 

idvel.nnb.no 

SIZING 

79. 

COdfiON 

/SIZING/ 

SIZING 

80.  C 

PHASE  II  SIZING  PAfiArtEHER5 

SIZING 

81. 

♦TZ, 

VV(  3 ), 

flF{  14), 

EROR, 

PZ(  5 ), 

VQ,  SU{  20  ), 

SIZING 

BZ. 

♦ SVt  28  ) , 

53(37.5). 

SE(11>. 

tlat. 

TLNfi, 

SIZING 

83.  C 

PHA5E  I SIZING 

PARAdERERS 

SIZING 

84. 

♦ UBQ, 

uioo. 

DUES, 

OWED, 

tolut 

UPB,  TURAT2, 

SIZING 

85. 

♦BK1. 

BK2, 

BK3, 

BK4, 

ISIZE, 

trapes,  turato. 

SIZING 

86. 

♦OKI, 

0K2, 

QK3, 

0K4, 

psfls. 

IPAS5,  IPSfiAX, 

SIZING 

87. 

♦AEXIT, 

tva£o. 

NO, 

UFO, 

idvel. 

J5P0,  1SFB, 

SIZING 

88. 

♦XPL, 

tvacb. 

NNB, 

UEQ, 

WEB 

WO,  ULO, 

SIZING 

89. 

♦ DVO, 

DVB, 

flUB, 

fiJO, 

VSTS. 

ufo 

SIZING 

90. 

♦, JTYP, 

BECO  , 

BSTG  , 

0RBI. 

ITN&U  . ITNOU 

SIZING 

91. 

♦ $ VBPSQ 

. SVDCON 

, I HUNl 

, I0PST6  , 

ISZOt  19) 

UH 

92. 

COfidON/ ARCOAT / 

ARCDAT 

93. 

♦SREF 

,EJ 

, XI5P 

,TfiULT 

,DTNC 

, DTPI  , 

ARCDAT 

94. 

♦ iAin 

,IfiDDE 

.JAEfi 

.JPRO 

.flfiAX 

, SfiAX  , 

ARCOAT 

95. 

♦XLfiAX 

HOdAX 

,SdDOT 

.ALFflAX  .PHfiAX 

, fiAEA  , 

ARCDAT 

96. 

♦J1AEB 

.flAEC 

,fiAED 

, P1AEE 

,fiAEF 

, fiAEG  , 

ARCDAT 

97. 

♦ HI 

,I4ISP 

,nxcs 

.rtZCS 

fiUDA 

,«UOB 

ARCDAT 

98. 

♦ flDB 

, XCSR 

,ZCGR 

,XE 

.ZE 

-XT 

ARCDAT 

99. 

♦ OREF 

. flCND 

,RHOB 

, QfiULT 

* . REfiAX 

ARCDAT 

LOO 

♦ .FfiATE 

. ARC0(9> 

RETAP 

L 01 

DldENSIi 

ON  ARCOAt  40 ) 

ARCDAT 

102 

103. 

104. 

105. 

106. 
107. 
106 

1 09 
110. 
111. 
112. 

113. 

1 14. 

115. 
1 16 

117. 

118. 

119. 

120. 
121. 
122. 
123 


EQUI  VALENCEt  SREF,  ARCDA) 

OlfiENSlON  2ER0( 110). ZZt 41 ) 

£001 VALENCEt  Z£R0,fiACHR ) < ZZ, VARL),(  ZZt  1 1 )_QfiAXl >,{ZZt !4),HDfiAXl), 
U ZZC 41  ) REfiAX 1 ) ( 1 HOF . 1 NEQFLt  20) 

COflfiON/OATA/ 


,RDI 

.J0P1 

COfiPUTED  DATA 


,sc 

, JQP2 
N /8ENF/ 


♦PI  .RAD 

♦ FTNfl  .CAR 

I ZERO  OUT 
00  10  1=1,110 
10  ZEROt 1 )=  0. 

DO  2 1—1.54 
2 AEZRDl I )=0. 

LIFT-0. 

DRAG=0. 

GAnnAD=snoOT»ROI 
lLABt l )=0 
JP3  = 2 
DVARt 8 1=0 . 

I NOF  =0 

1 Ft  1 ARC. LE. 1 ) SO  TO  4 
1-A  TEST  FOR  $3  ZING 

1 F < ITER  EQ.3.AND. JTVP.6T.0)  CALL  ARCEND 


,U«F  .TfiPF 
, J0P3  , J0P4 
AND  SET  VALUES 


ARCDAT 

10 

PROPIM 
PROP  IN 
DATA 
DATA 
DATA 
PROPIN 
10 

PRQP1N 

APR27 

APR27 

APR27 

APRZ? 

P014 

P014 

PROPIN 

APR27 

PROPIN 

PH1SZ 

PHISZ 

PH1SZ 


124 

4 

CONTINUE 

phisz 

125. 

C 

I!  TEST  AND  SET  I NEQUAL1TY  FLAG  INOF 

PROPIN 

126. 

IF(IARC.EQ.l)  SO  TO  20 

PROPIN 

20 

127. 

JF<  INEOFLUARC-l  >.E0.0)  SO  TO  20 

PROPIN 

20 

126. 

C 

II-A  TEST  FOR  EXCESSIVE  CHANGE  OF  CUT-OFF 

TIfiE 

AFR27 

129. 

IFUND.EO  1)  60  TO  It 

PHISZ 

16 

130 

TAT=AB5{ TSTK IARC)~TI«E> 

APR27 

131. 

IF<  T AT. LE-10.  ) GO  TO  15 

APR27 

IS— 1 

132 

WRITE*  6,12) 

APR27 

133 

12 

FORfiAT  ( 53H  ♦♦♦♦ERROR^^  EXCESSIVE  CHANGE 

IN  ARC 

CUT-OFF  TIME 

) APR27 

134. 

ISTART=6 

APR27 

135 

15 

IFtTAT.GT  4.*DTNC)  I0PEN=2 

APR2I 

136 

16 

CONTINUE 

PHISZ 

137 

J N2F  = I NEQFLt I ARC-1) 

PROPIN 

138 

JP3  = INQF 

PROPIN 

139. 

20 

1 Ft  I ARC. EQ. NARC ) GO  TO  60 

PROPIN  1 

60= 

“ 

140. 

C 

II 

TEST  FOR  WHETHER  AN  INEQUALITY  CUTOFF 

EXISTS 

IN  CURRENT 

PROP  1 N 

141. 

C 

ARC 

PROP  1 N 

142 

1F«<  JS-33)»(  JS-3*i>«(  JS-35T)  60,30,60 

FR0P1N 

ilz I6 

30  CALL  REAOrtSl 9.ZZ.41, I ARC+1 1 
IV  TEST  FOR  DYN.  PRES.  LIIIIT 


IF(  QflAXl  EO.  0.  ) SO  TO 
I F ( J S NE.33)  SO  TO  40 
INEOFLt 1 ARC ) * 7 
SO  TO  70 


40 


PR0P1N 
PRSP1N 
PROP  J N 
PROPIN 
PROP 2 N 
PROP  1 N 


13 


40" — i 
40—j 


70 


6-*  6 


1 1 S9 


150. 
15  i . 
152 
153. 
159. 

155. 

156. 

157. 
158 


TEST  FOR  HEAT  RATE  LI WIT 


‘tO  1F(  HOflAXl  .EO.O  ) SO  TO  50 
1FIJS.NE.39)  GO  TO  50 
INEQFlWARC)  = 8 
GO  TO  70 

C VI  TEST  FOR  REYN.  NO.  LIHIT 


50  IF( REflAXl . EQ .0. ) GO  TO 
IF(  JS - NE.35 ) SO  TO  60 
INEQFLC I ARC)=  9 
60  TO  70 


60 


PROPIN 


PROPIN 

PROPIN 

PROPIN 

PROPIN 

PROPIN 


PROPIN 
PROPIN 
PROP  IN 
PROPIN 


50H 


70H 


159. 


60  1NE0FU  I ARC ) = 0 


PROPIN 


160.  70  CONTINUE 

161  C VII  SET  BURN  TIDE  ANQ  BIVARIATE 

162.  C ALSO  TEST  FOR  OELTAE  CODPUTaTICN 

163.  JP2=2 

169  I Ft  J AER  EQ  3>  GD  TO  80 

165.  CDE=0 - 

166.  JP2=1 


171 

172. 

173. 

17  9 


AREO  DATA 


167.  80  CONTINUE 

168  1F< I ARC. EQ . 1 ) JJJ=999 

169.  IF( JAER.NE.2)  GO  TO  110 

170  IFt JJJ.NE.999)  GO  TO  100 


90 


JJJ=nAEA 

CALL  INBVAD(JJJ) 

GO  TO  UO 


100  IFl  riAE4.NE.JJJ  ) GO  TO  90 


PROPIN 

PROPIN 

PROPIN 

PROPIN 

PROPIN 

PROPIN 

PROPIN 


n 


PROPIN 

PROPIN 

PROPIN 

PROPIN 


PROPIN 

PROPIN 

PROPIN 


FIXED 


1 10—1 


175. 

176. 

177. 

178. 
179 
18G 
181. 
182 
183. 


CONTINUE 

INITIALIZE  AIR9REATHER 
I F ( I ARC  EQ  1 ) KKK-  999 
IF( JPRD.NE.2 ) GO  TO  119 
IF(  KKK.NE- 999 ) SO  TO  113 


PROPIN 

FIXED 

FIXED 

FIXED 

FIXED 


119- 

113- 


189. 

185. 

186 


KKK=  HJOB 
CALL  INBVPO(KKK) 
GO  TO  118 


113  IFtlWOB  NE  KKK ) GO  TO  111 


118 


JP1=  9 
JPRP=  l 
RETURN 


FIXED 

FIXED 

FIXED 


FIXED 


FIXED 

FIXED 

FIXED 


lie — | | 

* TTpJ 


187 

188 


189 


196. 
Il97 . 


1198 

|l99. 


119 


CONTINUE 

I Ft  riT)l20,  190,150 


120  I Ft  I ARC  EQ  1 > GO  TO  180 


190.  130  TBU{  I ARC  > = TBURN 

191  IIP  INC  I ARC)'  «TT 

192  IFtniSP.EQ.O)  RETURN 

193  l Ft  rtlSP. EO . 0 AND. JPRO. EQ  0 ) RETURN 

199.  IFt JPRO.EO.l  ) CALL  I5PIN 

195  IFl FR ATE .EQ  0)  GO  TO  135 


FRATED  = PRATE  * THULT 
RETURN 


CALL  SPLYNEU9TT. 
GO  TO  132 


0.,FRATE,DUI9> 


FIXED 

PROPIN 


1 20  -n  190-1150 


PROPIN 


PROPIN 

PROPIN 

FfiAT 

AAA 

AAA 

FRAT 


FfiAT 

FfiAT 


FRAT 

FRAT 


3 


132- 


200.  190  JPRP  =•  1 

201.  T"0. 

202.  F V AC=0. 

203.  IF< FRATE.LE.O  > RETURN 

209.  AE  = EJ^TrtULT 

205.  FV AC  = FRATE  ♦TWULT 

206.  FRATED  = FVAC 

207.  TBURN  =TI«E 

208  T-FVAC 

209.  IFt JPRO.EQ.l  ) CALL  1SPIN 

210.  IFt GnAX.ST.O)  GOTO  195 

211  JPRP  =2 

212  RETURN 


213 
»219 . 


1 95 


JPRP  =3 
RETURN 


PROPIN 

PO 19 

P019 

FRAT 

FRAT 

FRAT 

FRAT 

PH1SZ 

PH1SZ 

AAA 

FRAT 

FRAT 

FRAT 


FfiAT 

PROPIN 


3 


617 


180 
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SUBR0UT INE 
REU3 


Subroutine  REU3 


Entry  Points  EQIN,  SVADYS,  SAVVR,  SAVDYP,  INTBC,  BRST,  BRIN, 

MS  DISC,  CORVAR. 

Purpose 

EQIN-  Initialize  state  and  control  vectors  and  calculate  reference  point 
trigonometric  functions. 

SVADYS:  Save  derivatives,  y,  at  arc  end  points. 

SAVVR:  Save  current  state  for  use  in  cut-off  refinement. 

SAVDYP:  Save  derivatives,  y,  at  phase  end  point. 

INTBC:  Evaluate  intermediate  arc  end  constraint  misses. 

BRST:  Save  slate  at  end  of  trunk  to  reinitialize  integration  for  second  branch. 

BRIN:  Evaluate  first  branch  constraint  misses  and  initialize  state  for 
beginning  of  second  branch. 

MSDISC:  Compute  mass  at  beginning  of  next  arc. 

CORVAR:  Refine  mid-integration  point  state  estimate  a,nd  store. 


■=3- 

-5 


FORTRAN  nftTH 

SYMBOL  SYMBOL 


ftLP  HA 


CSPSR  C OS(  T*"r  ) 

CSXLMR  COS  lp~pr) 

DELTAE  t 


OT 


DVAR 


SR 


code  DESCRIPTION 


0 Angle  of  attack 


(RAO) 


0 

Co  s I ne 

of  ref 

0 

Cosine 

of  ref 

G 

Engine 

gi aba  1 

erence  azisuth 
ernece  latitude 
deflection  angle 


(RAD) 


1 Integration  Interval 


(SEC) 


I State  vector  derivatives  In  steepest  descent  nodule 


I Gravitational  acceleration  it  surface  of  the  earth 

(FT/SEC2) 


BLOCH 

IOC 

SU6R 

COSE  VAft 

/AECD3  /( 

3) 

BER0CO 

I 

ALPHA 

BtSCQN 

H 

ALPHA 

BL2 

I 

alpha 

FNTS 

0 

ALPHA 

HAAECO 

I 

ALPHA 

flODELA 

fl 

ALPHA 

HOOELB 

0 

ALPHA 

REU3 

0 

ALPHA 

VT 

I 

ALPHA 

/ORBIT  /( 

153) 

POBC 

I 

CSPSR 

fi  E'J3 

0 

CSPSR 

/ORBIT  /( 

117) 

PDBC 

I 

CSXLflR 

REU3 

0 

CSXLHR 

/GENF  /( 

55 M ) 

BLSCOM 

n 

DELTAE 

ELI 

I 

DELTAE 

OUT 

i 

DELTAE 

REU3 

0 

DELTAE 

VT 

i 

DELTAE 

/ GEWF  /( 

BOO  ) 

BNTG 

n 

DT 

FMTG 

n 

DT 

REU3 

I 

DT 

RKTA3A 

I 

P 

RATB3A 

I 

P 

STP3 

I 

DT 

YREF3 

0 

DT 

/ST  ATE3/T 

15) 

A0IC63 

n 

DVAR 

A0IC3A 

I 

OVAR 

AOID3A 

pi 

DVAR 

0ER3A 

0 

VD 

0TF3 

I 

VT 

ENVPRrt 

I 

OVAR 

PDBC 

I 

VD 

PROP  I M 

0 

DVAR 

REU3 

I 

DVAR 

RKTA3A 

I 

DV 

SOER3 

0 

OVAR 

STP3 

I 

DVAR 

VREF3 

1 

DVAR 

YREF3 

I 

VT 

/GL0BAI_/< 

1 ) 

ACCEL 

I 

GR 

BL5 

I 

SR 

EOUA3 

I 

SB 

FH3 

1 

GR 

SEINP 

I 

G 

GEIMP 

I 

GR 

GEIMP 

D 

IG 

OUT 

i 

SR 

PADS! 

I 

GR 

POBC 

I 

GR 

REU3 

I 

GR 

SDIHP 

I 

GR 

SUE 

1 

6fl 

S1Z1 

I 

-6ft 

SI  12 

I 

GR 

SI  13 

I 

SB 

sim 

I 

SB 

SOUS 

1 

GR 

STAU 

I 

SR 
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FORTRAN  MATH 

SYMBOL  SYflBOl 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 
BLOCK  LQC  SUBR  COOE VAR 


I ARC 


I PST 


I START 


NEO 


NEQF 


NICNB 


NSB 


OR  Bl 


I Arc  number 


I Phase  counter  for  first  nominal  trajectory 


I Initialization  and  dnrer  ganee  flag 


1 Number  of  Integrated  states 


1 Nuobar  of  equations  to  be  integrated  an  forward 
tr  ajectory 


I Nu»ber  of  constraints  at  Intermediate  constraint 
point  or  at  end  of  first  branch 


I Number  of  arcs  prior  to  branch  point  or 
intermediate  constraint 


I Arbiter  Ignition  arc 


/XCG0ES/( 

1H  6 ) 

A01CB3 

I 

I ARC 

ADI  03 A 

1 

1 ARC 

AOJUST 

1 

I ARC 

AST3 

I 

I ARC 

BNT6 

fl 

I ARC 

ENVPRrt 

I 

I ARC 

FNTG 

n 

I ARC 

SET  IT 

I 

I ARC 

flODELA 

I 

1 ARC 

PROPB 

i 

I ARC 

PROPIN 

I 

1 ARC 

REU3 

I 

I ARC 

SDINP 

n 

I ARC 

STAG 

I 

I ARC 

STP3 

I 

I ARC 

TRTOSZ 

i 

I ARC 

/XCODES/l 

167) 

AST3 

I 

IP  ST 

FNTG 

n 

I PST 

GUI3A 

1 

I PST 

REU3 

I 

I PST 

/XCGOES n 

\m\ 

AST  3 

0 

I ST ART 

BLSCON 

0 

1ST  ART 

BLYNE 

0 

ISTART 

FNTG 

I 

1ST  ART 

MOOELA 

0 

ISTART 

PROPIN 

0 

T ST  ART 

REU3 

I 

ISTART 

TEST 

fl 

ISTART 

TGPH 

fl 

ISTART 

/ XCODES / l 

162  ) 

A01CB3 

I 

NEQ 

ADI C3A 

I 

NEQ 

AO 1 03 A 

I 

NEQ 

ASETB3 

I 

NEQ 

ASX3 

i 

NEQ 

BGET3 

I 

NEQ 

SST03 

i 

NEQ 

RTX3A 

i 

NEQ 

OUT 

i 

NEQ 

REU3 

I 

NEQ 

5DER3 

i 

NEQ 

SDINP 

n 

NEQ 

topn 

1 

NEQ 

TRAN3 

I 

NEQ 

YREF3 

I 

NEQ 

/XCOOES/I 

185) 

REU3 

I 

NEQF 

RKTA3A 

I 

NN 

SDINP 

0 

NEQF 

STAU 

I 

NEQF 

TOPtt 

0 

NEQF 

TRAN3 

0 

NEQF 

/XCOOES/t 

135) 

A0ICB3 

I 

NICNB 

ADIC3A 

I 

NICNB 

BNTG 

I 

NICNB 

REU3 

I 

NICNB 

SDINP 

n 

NICNB 

TEST 

I 

NICNB 

TRAN3 

I 

NICNB 

/XCQDES/( 

133) 

A0ICB3 

1 

NSB 

BNTG 

I 

NSB 

ENVPRP1 

i 

NSB 

FNTG 

I 

NSB 

REU3 

I 

NSB 

SOI  NP 

n 

NSB 

TEST 

I 

NSB 

TRAN3 

I 

NSB 

TRTOSZ 

I 

NSB 

/SIZING/? 

316  ) 

REQ3 

I 

0RB1 

SIZE 

I 

ORBI 

VEKOF 

i 

0RB1 
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62-2 


FORTRAN  MATH 

SYMBOL  SYMBOL 


PS] RF  + 

r 


ROI 


SAVBP 

SNPSft  slnC*  ) 

r 

SNXLAR  s i n(  p-p^  ) 
SO 


SVAR 


y ii=o 


SVBV 

SVY 


code  DESCRIPTION 


I Reference  ailauth  (OEG) 

I Angle  to  radian  conversion,  017H5329252 


A Saved  state  vector  it  branching  point  for 
initializing  second  brnch 
0 Sine  of  reference  exiauth 

0 Sine  of  reference  latitude 

0 A synthesis  data  array  {37,5)  that  contains  the 
flyback  data  and  tone  Injection  quantities 


1 Array  of  state  values  at  Initial  problea  t 1 *e  £sd3 


0 Saved  state  vector  on  trial  trajectory 
A Slate  and  t l ae  array  at  previous  compute  Interval 


storage 
BLOCK  LQC 

f GLOBAL/C  66) 

/DATA  a 3) 


/ST  ATE3/(  689  ) 

/ORBIT  /{  152) 

/ORBIT  /(  IH6) 

/SlZlNG/t  7<t) 


/ GEWF  /{  79) 


/STATE3M  710) 
/STATE3/(  236) 


SliBROUT  1 WE  USAGE 
SUflR  CODE  VAR  - 


GEINP 

1 

PSIRF 

RED3 

I 

PSIRF 

SOI  NP 

A 

PSIRF 

BLICO 

I 

ROI 

DER3A 

1 

ROI 

FATS 

I 

ROI 

GJ13A 

I 

ROI 

AGDELA 

I 

ROI 

MODELS 

I 

ROI 

PADS1 

0 

ROI 

PROPB 

I 

RDI 

PROPIN 

I 

ROI 

REU3 

I 

ROI 

SDINP 

I 

RDI 

sons 

I 

ROI 

RE03 

A 

SAVBP 

PDBC 

I 

S«P5fl 

REU3 

0 

SNP5R 

PDBC 

I 

5NXLAR 

REU3 

0 

SNXLAR 

EWVPRA 

A 

SO 

FLYBKP 

« 

so 

ISPRAT 

l 

50 

PDBC 

I 

SQ 

PRITVA 

i 

SO 

RANGE 

n 

so 

REU3 

0 

SQ 

SIZE 

0 

$0 

SHEAR 

n 

SO 

SIZIN 

M 

SQ 

STAU 

i 

SQ 

SOWOUT 

a 

SQ 

TAAPAR 

0 

SQ 

TAMPER 

A 

SO 

THRUST 

A 

SO 

TFTOSZ 

M 

SO 

VEHDF 

A 

SO 

UTVOL 

A 

so 

ADJUST 

0 

SVAR 

BNT  G 

I 

SVAR 

F NT  6 

1 

SVAR 

PfiASET 

A 

SVAR 

REU3 

I 

SVAR 

SD1NP 

A 

SVAR 

TEST 

I 

SVAR 

TOPn 

I 

SVAR 

TRTOSZ 

I 

SVAR 

ADICB3 

I 

SV6V 

REU3 

0 

SVBV 

0TF3 

I 

SVY 

REU3 

A 

SVY 

VREF3 

I 

SVY 
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FORTRAN  HATH 

SYMBOL  SYBBOL 


CODE 


DESCRIPTION 


STORASE  SUBROUTINE  USAGE 
BLOCK  LOC  SUBR  CODE  VAR 


T TO  Thruat  (LBS)  /GEMF  /(  911)  ACCEL  I T 

BL6C0M  B T 
BL9  I T 
BL6  I T 
BLT  I T 
BL8  1 T 
EL2  1 T 
EQUA3  0 T 
FH1  I T 
FH2  I T 
FH3  I T 
FH  H 1 T 
IfflPUL  I T 
OUT  I T 
PROP&  0 T 
PROP  I N 0 T 
REU3  0 T 
SDER3  1 T 

TIME  t « T l b«  (elapsed)  /GENF  /(  993)  ADIC&3  0 TIME 

AST3  I TIBE 
BNTS  B TIBE 
C0N3  I TIDE 
OTF3  1 TIBE 
ENVPfiB  I T1BE 
E0UA3  I TIME 
FNTG  B TIBE 
rtODELA  I TIBE 
OUT  I TIBE 
PDBC  I TIBE 
PROPIN  I TIBE 
REU3  B TIBE 
RKTA3A  B TT 
RKTB3A  B TT 
YREF3  B TIBE 

VAR  v B Relative  velocity  (FT/SEC)  /STATE3/(  1)  ACCEL  I V 

ADICB3  0 VAR 
ADJUST  B VAR 
AGETB3  0 VAR 
AST  3 I VAR 
BL9  I V 
BL7  I V 
BL6  I V 
C0N3  1 VAR 
OER3A  I V 
DTF3  1 V 
ENVPRrt  I VAR 
E0UA3  I V 
BO  DEL A I V 
BOOELA  1 VAR 
booelb  I V 
BTX3A  I VAR 
OUT  I V 
OUT  I VAR 
PDBC  I V 
P0Y3A  I V 
REU3  B VAR 
RKTA3A  B Y 
5TP3  I VAR 
TOPB  0 KW0W 
YREF3  B V 

W U I Weight  (LBS)  / GENF  /<  9 1 Z ) BL5  I W 

ENVPRB  I y 
EQUA3  B U 
FH3  i y 
out  i y 
PDBC  1 y 
REU3  I W 
TRTOSI  I W 

UDC  1 Array  of  drop  eelght  per  arctsdl  (LBS)  /GENF  /(  69)  BNTG  I WOC 

REU3  I WOC 
SDINP  n uoc 
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PORT  RAN 

svneot 


MAI  H 
SYMBOL 


CODE 


DESCRIPTION 


S T DBASE 
Block  loc 


SUBROUTINE 

U5#BE 

SJBR  CODE 

VAR 

XLAltRF 

n 

I 

Rtf «rine«  Intitule. 

t DEG) 

/GLOBAl_/( 

*l> 

CRASH 

n 

RHOO 

6EINP 

I 

XLAHRF 

REU3 

I 

XIABRF 

SDINP 

It 

XLArtRF 

YOP 

0 

Array  of  state  derivatives 

at 

phase  end  paints 

/ST  ATE3/( 

32?) 

ADIQ3A 

1 

ydp 

REJ3 

0 

YOP 

YDS 

0 

Array  of  state  derivatives 

at 

arc  end  points 

/STAT£3/< 

50?) 

A0ICB3 

I 

yos 

ADI  03 A 

I 

yos 

REU3 

D 

VZIS 

STAU 

I 

VOS 

YMURF 

* u 

I 

Reference  longitude. 

<0E6) 

/ GLOBAL/! 

5) 

CRASH 

n 

ufiuo 

*r 

GEINP 

i 

y«URF 

REU3 

i 

VliURF 

S01NP 

it 

VBURF 

YftXRF 

p 

0 

Reference  longitude 

(RAD) 

/ORBIT  /( 

155) 

PDBC 

i 

YflXRF 

REU3 

0 

YBXRF 

*£U3 


1 

SUBROUTINE 

REU3 

REU3 

2 

c 

THIS  SUBROUTINE  PERFORMS 

YARJOUS 

STATE  DEPENDANT  FUNCTIONS  FOR  ENTS 

AEU3 

3. 

c 

REU3 

M. 

c 

EACH  FUNCTION  IS 

contained 

IN  SEPARATE  ENTRY 

POINTS 

COHN 

5 - 

COnnQN/  ORBIT/  VI. 

Sami, 

PSII, 

XMUI, 

f. 

ORBIT 

6 - 

* ECC, 

A1NCL, 

AR6P, 

ASCN0O, 

SrtlnAj, 

BPOSEE, 

ORBIT 

7. 

♦ PERSEE, 

ANQMLY, 

CAP  X, 

CAPY, 

ASYnP, 

ENER 6Y, 

ORBIT 

8. 

♦ HflNTM, 

0V10V, 

DVI 08, 

ORBIT 

9- 

* DVIDH  , 

dvi dm. 

DVIOPS, 

DV10RD, 

DVIOMU, 

DS1DV, 

ORBIT 

10. 

* OGIOG  , 

OGIDH, 

0GIDI4  , 

OSIOPS, 

DGIDRO, 

0S10NU, 

ORBIT 

n. 

* DP10V  , 

DPI DG, 

DP10H  , 

DP  I DPI  , 

OPIDPS, 

OPIDRO, 

ORBIT 

12- 

* DP  I DflU, 

BHIOV, 

OrtIDS  , 

DniOH  , 

on I DM  . 

omoP5, 

ORBIT 

13. 

* OfllORO, 

oniDnu, 

OPOV  , 

BPDS  , 

BPDrt  , 

DPO«  , 

ORBIT 

14 

* BPDPS  , 

OPORO  , 

oponu  , 

DECBV  , 

OECDS  , 

DECOR  , 

ORBIT 

15 

• OECDfl  , 

DECDPS, 

DECORO, 

DECDnU, 

DIDV  , 

D1DB  , 

ORBIT 

16- 

* OlOrt  , 

01  On  , 

oiops  , 

DIDRO  . 

Oionii  . 

DBEOY  , 

ORBIT 

17 

* OBEOG  , 

OBEDH  , 

DBEDfl  , 

bbeopS, 

DBEDRQ, 

OBEONU, 

ORBIT 

18 

* DNQDV  , 

DNODG  . 

ONBOH  , 

DNBDfl  , 

ONOOPS, 

DNOBRO. 

ORBIT 

15. 

* DNQDMU, 

osnov. 

05MDG, 

DSnOH, 

osnon. 

DS«OPS 

ORBIT 

20 

COnnON/CfiBlT/ 

dhbit 

21 

* OSHDRO, 

DSMOMU, 

DAP  DV, 

D AP  DG, 

DAPOH, 

DAPOH  , 

ORBIT 

22 

* DAPDPS, 

OAPORO, 

OAPOnU, 

DPEOV, 

DPEDG, 

DPEDH  , 

ORBIT 

23 

•opedm 

, DPEOPS 

, OPEDRO 

, OPEOttll 

.DANOV 

.DANGS 

, 

ORBIT 

24. 

* DANDH  , 

DANDM  , 

DANDPS, 

DANORO, 

DANDMU, 

OCXDV  , 

ORBIT 

25. 

* DCXDG  , 

OCXOH  , 

DCXBM  , 

DCXOPS, 

OCXORO, 

ocxonu. 

ORBIT 

28. 

* DCVOV  , 

DCYOG  , 

OCYDH  , 

DCYOn  , 

DCYDPS, 

DCYBRD, 

ORBIT 

27. 

* DCYOflU, 

OASOV  , 

DASDG  , 

DASOH  , 

DASDM  , 

DASDPS, 

ORBIT 

28 

* OASORO, 

DAsonu, 

DENOV  , 

DENOG  , 

DENOrt  , 

OENDH  , 

ORBIT 

25. 

* OENDPS, 

DENORO, 

DENDnU, 

DO0DV  , 

DflOOG  , 

dhddh  , 

OPBIT 

30. 

* DrtODfl  , 

DMOOPS. 

ORGBRD, 

DMODHU 

ORBIT 

31. 

DIMENSION 

QRBPBMt 18). 

PPOC  7.18) 

ORBIT 

32. 

EQUIVALENCE  < VI.GRBPRMMBVJDV, 

PPO) 

ORBIT 

33. 

CDFinON/ORBIT/  YnxfiE.SNXLnS.C5(Lr>R.SODUN.SCROSS,TO,TC 

ORBIT 

35. 

*,SNPSR 

CSPSfi 

,SN6I 

,CSSI 

,5PS  1 1 

,CPSII 

, 

ORBIT 

35. 

* STOT 

,CSI 

SNI 

, SNGNJ 

, CSANO 

,COSOMU 

, 

ORBIT 

36. 

* SINDMU 

.THT 

UTFUEL 

ORBIT 

37. 

CDrtnQN/STATE3/ 

STATE3D 

38. 

*VAR< 14 ) 

/OVAfi  (14) 

VARl  (99) 

.0VARU99)  , Y0{  9 ) 

,SVY( 10) 

STATE30 

39 

• XL(  9,9) 

,YDP(  20  9 ), 

YDS  (20,91 

, C0SGA4 

,SI NGAfl 

, 5 A VBP(  15) 

r 

STATE30 

40 

•SI NPSI 

,C05P5I 

.SINRHO 

, COSRrfO 

, OCORH3 

,0C0RQ2 

, 

STATE30 

41 

•5YBV  (9 

,0RE6A 

0MESA2 

STATE3D 

42 

* VDV 

. GDV 

, RDV 

,MDV 

,PDV 

,0D  V 

5TATE30 

43 

• UDV 

, VOS 

,SDG 

,RDG 

,PDG 

'OQG 

r 

STATE30 

44. 

• UDG 

,VOR 

, GDR 

,MDR 

^POR 

,0DR 

f 

STATE30 

\5 

• UDR 

, VDN 

,GOM 

, rtDM 

, POM 

, VDP 

f 

STATE30 

46 

• GDP 

, P DP 

,ODP 

,UDP 

, VDO 

, GD0 

f 

STATE3D 

47. 

• PDO 

, UDO 

,HTDV 

,HTOR 

STATE3D 

48. 

REAL  «0«  , 

MDV,  MDR 

STATE3D 

45  . 

COflUON/ST  ATE3P 

STATE30 

50. 

•S1N2R0 

. CQ52R0 

, C0SZ6M 

STATE3D 

51  - 

COMMON  /XCODES/ 

XCODES 

52. 

*ira  < 9 t 

.ICOR  (20) 

,ITI 

, INTB 

, JGI D( 20 

2I.JPH  IZQ.Z). 

XCODES 

53. 

»JST  <20> 

.NCNST 

,NSB 

,NSAB 

,9ICNB 

9 

XCODES 

54. 

• I20P 

,ICOP 

, IFAH 

,IFAR 

, IFB 

,INO 

9 

(CODES 

55. 

•IOPEN 

, IPH 

,ISPH 

. ISST 

,1  ARC 

, t ST  ART 

r 

XCODES 

56. 

• IT  CT 

, ITER 

, I VAR 

,JPS 

,JS 

(CODES 

57. 

•KDP 

, KP5T 

,K 

# KST 

,NAD 

, 9CASE 

9 

(COOES 

58. 

♦ NCN 

, NEQB 

, NEQ 

,NOP 

, NPH 

g 

(COOES 

59. 

•NST 

,IPST 

IPRINT 

, I SIN 

, I P HN 

■ISTNB 

t 

XCODES 

60 

• JPHNB 

, 1 blki 

, I BLX2 

, I STOP 

, I5TPP 

,L 

XCODES 

61. 

•IFOB 

.NB 

^LB 

,«B 

,NPHP 

.NPHB 

9 

(CODES 

62- 

• NCTIN 

, NEQF  .ILAB(8).JPRP.J 

GII.«TT.MPIN( 20  ) . JP1 

JP2,JP3 

(COOES 

63. 

CORrtDN/ OAT  A/ 

DATA 

64. 

• PI 

,RAO 

,RDI 

,SC 

z UMF 

,THPF 

, 

DATA 

65. 

•FT  Nfl 

.CAR 

'jopi 

,J0P2 

, J0P3 

,4DPB 

OAT  A 

66- 

CQflflON/SENF/ 

SENE 

67 

• on&(  zo ) 

,0(4GP(  20,2 

, VARQ(9) 

,TOL(  9) 

, S VAR( 10 ) . UDC( 20) 

9 

SENE 

68 

*A(  9,9  > 

,ACON<  9) 

,BCC«(  9) 

,C0TI(9,9 

) , DCON(  9 ) 

, OTP 

M 

GENE 

69 

• DTS 

,BT 

,G 

, DPSO 

,05 

, 

GENE 

70. 

• R 

,RE 

, flACH 

,PA 

,R0 

,CS 

, 

GENE 

n. 

• VNU 

,PAR 

,ROfi 

,CSR 

j VNR 

.S'JrtSO 

9 

SENE 

72. 

•SVSQ 

.TIP3EPH 

.TIMES 

, TOP 

iTOS 

# TR( 9 ) 

9 

GENE 

73. 

•TSK20) 

.IPH  (2C ) DI5( 20) 

,DIP(20> 

, T 

6ENF 

74. 

•TLP1C20) 

. TlSI  C20.D1PH2C) 

, DISK  20  ) 

.TIME 

,DMP 

SENE 

r5- 

•TinFR 

,UFT 

,DRAS 

,TAX 

,TBURN 

, T BUt 20) 

GENF 

20  act  72  fi  01-^6 


626 


76 

* AE 

,FP 

,FPOLD 

FPO 

, MACHR 

, flACHV 

/ 7 i 

• OR 

,0V 

,F  VAC 

, LI  FT  V 

. 

.ORAGA 

,ISPF 

78 

•liftr 

, LI  FT  A 

DRAGV 

OR  AGfl 

79 

• 

LI  FTM 

Jdbr 

,DB 

, ISP 

80. 

• 

ulft 

, ULFT  V 

, ULFTR 

, ULFT  A 

81 

♦ XMCG 

,xncGV 

,xhcgr 

, XHC6A 

,xmcg« 

, CODAE 

82 

♦CULFT 

,CT 

,CALPHA 

, COE 

,DELTAE 

,SIO 

83. 

♦ COD 

,SIDAE 

,XCG 

,2CG 

,XJ 

84. 

85. 

COMMON 
♦ XJV 

/ GENF  / 
,XJR 
, IfiATED 
,P2 

,GH 

, gammad 

, XXG 

, XKP 

86 

87 

♦FRATEO 

♦PI 

>3 

XXI 

, XX2 

, XX3 

88 

• XX1T 

,XK2T 

, XX3T 

, XK1D 

,XX2D 

, XX3D 

89 

♦ XX  1 A 

, XX2  A 

,XX3A 

,XX1V 

, XX2V 

, XX3V 

90 

♦ XX1G 

, XX26 

, XX3G 

,XX1P 

, XK2P 

,XX3P 

91. 

» XX 1 R 

,XX2R 

,XK3R 

, XK 10 

, XX20 

, XX30 

92 

• XXI  u 

,XX2U 

,XX3U 

, xxin 

,xx2n 

,XK3fl 

93. 

94 

*PV 

REAL 

,PS 

LIFTR  , LIFT 

,PP 

, LIFT  A,  LJFTfl 

,PR 
1 * 

,P0 

MACH, 

, OPDY(  3,8) 
tlACHR, 

95. 

96. 

97. 

98. 
99 

100. 
101. 
102. 
103. 
1 09 

105 

106 

107 

108 
109. 

no. 

in. 

112. 

113. 

114 

115 


•r  isp,  ispf,  nftCHV  tffT  V , 

DIMENSION  TPHK  10  >,TST1<  10) 
EG'JIVALENCE(TLPl,TrH 
CO AMO N/ ARCOAT  / 

♦SREF  ,EJ 

• IAT«  ,inODE 

• XLAAX  ,HDMAX 

• PIAEB  ,MAEC 

• MT  ,P11SP 

♦MOB  , XCGR 

• DREF  ,MCND 

• , FR ATE  , ARCD(9) 
DIMENSION  AR CD A(  40 ) 

EOUI VALENCE(SREF,ARCOA) 
COMMON/ GLOBAL/ 

*GR  , ER  ,On£Z 

♦,JJOP(  10)  , IFATAL  .NARC 

*,  XT AB( 20  ), I TAB( 20 ) ,$IG 

*,Grt  , PSI RF, 1PFL81, 

• . 1TPS0  ,XSOL  . XSLOBL£ 8 ) 
CGfinON/ST5/ 


GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

6ENF 

GENF 

GENF 

GENF 

GENF 

GENF 

FRAT 

GENF 


f,(  TLS1 

,1571  > 

GENF 

ARCOAT 

X1SP 

,tmult 

,DTNC 

, DTP  I 

, ARCOAT 

JAER 

, JPRO 

, OflAX 

, GMAX 

, ARCOAT 

GnOOT 

.ALFMAX 

PHRAX 

,RAEA 

, ARCDAT 

«AEO 

MAGE 

, ttAEF 

, P1AES 

, ARCOAT 

mxcg 

,nzcG 

, nuDA 

, NUDB 

, ARCOAT 

ZCGR 

,XE 

,ze 

,XT 

, ARCDAT 

RHOB 

,ohult 

, RErtAX 

ARCOAT 

, XLAP1RF  ,YrtURF  ,tun 
NBRAN  , NFARC  ,10(4) 

,MAXT  AB 

IPFLG2, IPFLG3, 1PFLG4, INEflFLC  20 ) 


ARCDAT 
ARCOAT 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
GLOBAL 
RETAP  I 
STS 


116 

♦ OPAY 

,pmn 

. WORK 

(20  KNUDS 

,IPC 

< 7 ), 

NITER 

STS 

117 

»P1NGA(  20 

,2),rtNGP(20 

2)  . AR(  200  >.  I A0(  20 

, INP( 20 ), 

IS V(  20  ) 

STS 

118 

COnnON/ AEC03/ 

AEC03 

119. 

♦ APHO 

, APHR 

.ALPHA  , VDA 

, GOA 

PDA 

AEC03 

120. 

♦SINA 

, COS  ft 

,PHI0 

,PHI  D 

.PHI 

SINPHI 

AECQ3 

121. 

•CQSPK1 

, SOPH 

PQPH 

, XLAMAt  9 ] . XLAMP<9)  , 

coo 

AEC03 

122. 

♦coon 

, clo 

, FK 

,XCGM 

,ZCGM 

CLOM 

AEC03 

123 

♦ CM 

■ CP1A 

.CMAM 

,cmm  , cmo 

, cnort 

FXfl 

AEC03 

124 

• CLAN 

,CL 

. CLA 

,CL* 

AEC03 

125. 

♦ CO 

. CDA 

, CON 

AEC03 

126 

DIMENSION  SVD0(9) 

REU3 

127. 

REAL  rtUB,  MUO.  ISPB.  ISPO. 

idvel.nnb.no 

SIZING 

128 

COMMON 

/SIZING/ 

SIZING 

129. 

C 

PHASE  II  SIZING  PARAHERERS 

SIZING 

130 

♦TZ, 

VV(  3), 

0P(  14), 

EROR, 

PZ<  5 ), 

VO, 

sue  20), 

SIZING 

131 

• $V<  28  ), 

SOt  37,5). 

SE<  11  ), 

TLAT. 

TINS, 

5 I ZING 

132 

C 

PHASE  1 SIZING 

PARAMETERS 

SIZING 

133 

♦weo. 

WLOQ, 

DUEB 

DUEO, 

TOLUT, 

UPB, 

TURAT2, 

SIZING 

1 34. 

♦ BXl  , 

BK2 

BX3, 

6X4, 

I SI Z£, 

TRAP LG. 

TWBATO, 

SIZING 

135. 

*0X1, 

0X2, 

0X3, 

0X4, 

PRFLG, 

IPASS, 

IPSMAX, 

SIZING 

136. 

♦AEXIT, 

tvaco. 

NO, 

UFO, 

IDVEL, 

ISPO, 

ISPB, 

SIZING 

137. 

♦ XPL, 

TVACB,  NNB, 

WEO, 

UEB, 

UO, 

ULO, 

SIZING 

13B. 

♦ova. 

DV0 

PlliB, 

P1U0, 

VSTG. 

UPO 

SIZING 

139 

*, JTYP , 

BECO  , 

BSTG  , 

ORBI  , 

ITNBU  . ITNOU  . 

SIZING 

140 

♦ 5V0P50 

, SVDCON 

, I HUNT 

, I OPSTG  , 

ISZDt 19 ) 

UH 

141 

c 

I 

initialize 

STATE 

and  contrg 

L VECTORS 

CONN 

142  C ALSO  CALCULATE  REF  LOCATION  FUNCTIONS 

143  ENTRY  EQIN 

144.  ,00  10  I-1,NEQ 

145.  10  VAR ( I >=  5 V AF( 1+1) 

146.  DO  20  1=1,4 

147  20  VAR{  NEO+I  )=0 

148  YnXRF=YriURF*RDI 

149  XLAXRF  = XLAP1RF  ♦ ROI 

150  SNXLrtR=  S 1 N( XLAXRF  ) 


CODN 

PEU3 

REU3 

REU3 

REU3 

REUS 

REU3 

REU3 

REU3 


GZ7 
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qi 


A\ 


15) 

152 

153 
15** 

155. 

156. 

157 

158 

159 

160 
161 

62 

163 

164. 

165. 
166 
167. 
168 

169. 

170. 

171 

172 

173 

174 
75 

176. 

177 

178 


AT  ABC  END  POINT 


CSXL*R=  COS<  XlAXRF > 

5NPSfi=SlN( PS1RF*RDI > 

CSPSfi=COS( PS  I RF*ROI ) 

ALPKA=0. 

CELT  AE=Q. 

T=1.E6 
RETURN 

II  SAVE  DERIVATIVES 

ENTRY  SVADYS 
00  30  1=1, NEO 

30  YDS( I ARC, I ) = OVAR< I ) 

RETURN 

III  SAVE  STATE  FOR  CUT-OFF  REFINEMENT  (SEE  YREF) 
ENTRY  SA  Wfl 

DO  NO  1=1, NEQ 
40  SVY( 1 + 1 )= V AR( 1 ) 

SVY(1 >=TIHE 
RETURN 


IV  SAVE  DERIVATIVES 
ENTRY  5AVDYP 
DO  50  1=1, NEC 
50  YDP(  IPST  I 1=  DVARU  ) 
RETURN 


AT  PHASE  END  POINT 


EVALUATE  INTERMEDIATE  CONSTRAINT  MISS 


R£U3 
REU3 
fl£U3 
P014 
P014 
P01 A 
REU3 

conn 

COPIN 

REU3 

REU3 

REU3 

REU3 

COHN 

COHN 

REU3 

REU3 

RE03 

REU3 

REU3 

CONN 

CONN 

REU3 

REU3 

REU3 

REU3 

CORN 

CONN 


179. 

180. 
181 
182 
163 

C 

ACCOUNTING  FOR  WHETHER  ON  TRIAL  OR  STARTING  TRAJ. 
ENTRY  1NTBC 

IF< ISTART  ST.l  1 GO  TO  60 
CALL  CONlNt 1,N1CNB ) 

RETURN 

COHN 

REU3 

REU3 

REU3 

REU3 

3 

184 

60 

CALL  CQN( INI CNB ) 

REU3 

185 

RETURN 

REU3 

186 

C 

COMN 

187 

c 

VI  SAVE  STATE  AT  END  OF  TRUNK  TO  REINITIALIZE 

COfIN 

188. 

c 

INTEGRATION  FOR  SECOND  BRANCH 

COHN 

189. 

ENTRY  BfiST 

REU3 

190 

NPHB=IPST 

REU3 

191. 

DO  70  I=1.NEQF 

REU3 

-192. 

70 

SAVBPt I+l )=  VAR( I ) 

REU3 

193. 

5AVBPC11  = TIME 

REU3 

194 

RETURN 

REU3 

195 

c 

COHN 

196 

c 

VI-B  EVALUATE  BRANCH  1 CONSTRAINT  MISSES  AMD 

INITIALIZE 

COHN 

197. 

c 

STATE  TO  START  BRANCH  2 INTEGRATION 

COHN 

198 

ENTRY  BRIN 

REU3 

199 

NPHP=IPST+1 

REU3 

200 

IFC  ISTART  GT.l)  GO  TD  80 

REU3 

80—1 

201 

CALL  CONI N( 1 NI CNB ) 

REU3J 

202 

GO  TO  90 

REU3 

203 

80 

CONTINUE 

REU3 

*~T 

204 

CALL  CONI  1 ,N1CNBJ 

REU3 

205 

90 

DO  110  1=1  NEQF 

REU3 

206. 

100 

SVBVC I )=  VAR< I ) 

REU3 

207 

no 

VAR(  I )=  5AVBFU+1  ) 

REU3 

208. 

TIPIE=  5 AVBP(  1 ) 

REU3 

209. 

IF(UDC( IARC-1  l.NE.O. ) RETURN 

OS 

210 

VAfi( 4 ) = UDC( NSB }/ 6R 

REU3 

211 

RETURN 

REU3 

212 

c 

COMN 

213 

c 

VII  COMPUTE  MASS  AT  START  OF  NEXT  ARC 

COHN 

214. 

ENTRY  MSDISC 

REU3 

215. 

c 

WEIGHT  DROP  LOGIC 

PHISZ 

216. 

c 

VI I -A  IS  UT  DROP  COMPUTATION  FLAGGED  (PHASE 

11  SIZING) 

COMN 

217. 

c 

GO  TD  V1J-E  ELSE  VIJ-B 

COHN 

218. 

IF(UOCC IARC-l J.EQ. -99999999. ) SO  TO  135 

PH15Z 

135 

219 

c 

VII-B  IS  NEXT  ARC  UT.  JUST  INITIALIZED,  GO  TO 

VII-C 

COHN 

220 

c 

ELSE  VII-0 

COHN 

221 

IF(  UDC( I ARC-1  ))1 20, 130,  130 

REU3 

120—1 

222 

c 

VII-C  INITIALIZE  MASS  FOR  NEXT  ARC 

COMN 

, j 

223. 

120 

VAR{4>  =-UOC(  I ARC-1  )/GR 

REU3 
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225 

226 

I F C 1 SO  f ARC ) = VAAMMGA 

RETURN 

05 

RF.U3 

22J 

228 

c 

130  CONTINUE 

VU-D  DROP  «T  ANQ  CALC.  «AS5 

REU3 

CONN 

229 

230. 

231. 

232 

233 

c 

VAflt  4 ) = VAR<4)  -UQCt I ARC- 1 >/ GR 
I = 0R9I 

IF!  I EQ.IARC)  SOI  3,5 ) = VAR<4)*GH 
RETURN 

VII-E  COMPUTE  proppellant  ut.  dependant  drop  wt. 

REU3 

OS 

OS 

REU3 

CONN 

234. 

c 

AND  CALC  «ASS 

CONN 

235  135  UP  1 = SVAR<5)*GR  - U 

236.  CALL  UT0RP<UP1,UD,UDP,1> 

237.  VAfi< 4)=  VAfi(4)  - WD/Gfl 

238.  5Qt  3 5 >=  VAR(4)*SR 

239.  RETURN 

240.  C 

241  C VIII  REFINE  rtl ^'INTEGRATION  STATE  ESTIMATE  ANO  STORE 

242.  ENTRY  CORVAR 

243.  00  hC  1=1, NEO 

244.  140  S VDCC I >=DVAft( I ) 

245.  CALL  DER 

246.  00  150  1=1, NEC 

247.  150  VARl  I1=SVYU  + 1 J4(SVOa(n+OVAR(I  1>*0T*.25 

248.  CALL  A$TO 

249  RETURN 

250  ENO 
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Subroutine  RKTA3A 


Entry  Point  RKUTTA 
Purpose 

Subroutine  RKTA3A  is  the  utility  RUNGE-KUTTA  integration  routine  used  for 
integrating  the  toward  trajectory. 

Description 

This  Runge-kutta  package  employs  a four-cycle  method  with  two  derivatives 
at  the  mid-integral  and  two  at  the  end  interval.  This  routine  is  called  from 
FNTG. 
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FORTRAN 

SYPIBOL 


MATH 

SYMBOL 


COOE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 
BLOLX  IBC  SU3R  CODE  VAR 


DV 


F 


J 


L 


NN 


P 


TP 


TT 


y 


t 


St»te  v*ctor  dtr  1 v«tl  vrt  In  ttt'pcst  descint  aodule 

/STATE3/T 

15)  A0JCB3 

P1 

■OVAR 

A01C3A 

I 

OVAR 

ADI D3  A 

n 

OVAR 

0ER3A 

0 

VO 

0TF3 

I 

VT 

ENVPRm 

I 

DVAS 

POBC 

I 

VO 

PROPIN 

0 

OVAR 

REUS 

I 

DVAR 

RKTA3A 

I 

DY 

¥ 

SDER3 

a 

DVAR 

STP3 

i 

DVAR 

,YREf  3 

i 

OVAR 

YREF3 

i 

VT 

Array  of  variables  for  adjoint  Integration 

/5TATE3/C 

2?)  ADEQ3A 

i 

VARL 

ADICB3 

0 

VARL 

A0IC3A 

Q 

VARL 

PROPIN 

I 

ll 

RXTA3A 

fl 

F 

RXT63A 

n 

V 

STVRL3 

0 

VARL 

TRAM3 

n 

VARL 

Integration  routine  flag  tells  ffhich  derivative 

/ XC0DE5/( 

151  ) ADIC3A 

b 

JX 

evaluation  in  Runge-Kutta  cycle 

BNTG 

i 

JK 

PlODELA 

i 

JX 

PAY02 

n 

JX 

RKTA3A 

B 

J 

RXTB3A 

n 

J 

Integration  traffic  control  flag 

/ XCODES  /( 

ITT)  BNTG 

n 

L 

L - 1 aeans  evaluate  derivatives 

FNTS 

B 

L 

= 2 check  cut-off 

OUT 

I 

L 

= 3 print  or  cut-off  detected 

RXTA3A 

B 

L 

RKTB3A 

B 

L 

SOI  NP 

n 

L 

Nuiber  of  equations  to  be  integrated  on  forward 

/XCOOES/I 

185  ) REU3 

i 

NEQF 

t r ajector y 

R XT  A3  A 

i 

NN 

SDINP 

0 

NEOF 

5TAU 

1 

NEOF 

TOPfl 

0 

NEOF 

TRAN3 

0 

NEOF 

Integration  interval  (SEC) 

/GENF  /( 

300)  BNTG 

R 

DT 

FNTG 

rt 

OT 

REU3 

I 

DT 

RXTA3A 

I 

P 

RKTB3A 

I 

P 

STP3 

I 

DT 

YREF3 

0 

OT 

Trajectory  print  ttae 

/GENF  /( 

595)  BNTG 

0 

TIPIPR 

FNTG 

R 

TTP1PR 

RKTA3A 

I 

TP 

RKTB3A 

I 

TP 

Ti«e  (elapsed) 

/GENF  /( 

993)  ADICB3 

0 

TIRE 

AST3 

1 

TIPIE 

BNTG 

fl 

T I PIE 

C0N3 

I 

TIPIE 

DTF3 

I 

T I PIE 

ENVPRP1 

1 

TIPIE 

EOUA3 

I 

TIME 

FNTG 

PI 

TIPIE 

PlODELA 

I 

TIPIE 

OUT 

I 

TIPIE 

POBC 

I 

TIRE 

PROPIN 

1 

TIPIE 

REU3 

PI 

TIPIE 

RKTA3A 

PI 

TT 

RKTB3A 

fl 

TT 

YREF3 

fl 

TIPIE 
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NO 


FORTRAN  flft  T H 

sypiboi  sypibol 


DESCRIPTION 


S TORAGE  S UBROUt I ME  USAGE 

B LO  LK  LOC  SUBA  COUE  VAB 


Y 


n Relative  velocity 


(FT/SeC)  /STATE3/I  1)  ACCEL  i V 


A0ICB3 

0 

VAR 

ADJUST 

PI 

VAR 

AGETB3 

0 

VAR 

AST3 

I 

VAR 

BLH 

I 

V 

BL7 

I 

V 

BLB 

I 

V 

COM3 

I 

VAR 

DES3A 

I 

V 

0TF3 

I 

V 

ENVPRPI 

I 

VAR 

ECUA3 

I 

V 

DOOELA 

I 

V 

nOBELA 

I 

VAR 

PI03ELB 

I 

V 

PIT  K 3 A 

I 

VAH 

OUT 

I 

V 

OUT 

I 

VAR 

PDBC 

I 

V 

P0Y3A 

I 

V 

REU3 

p) 

VAR 

RKTA3A 

n 

Y 

STP3 

i 

VAR 

TOPP) 

0 

KNOW 

YBEF3' 

pi 

V 
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** 'f -A 


1 S'JWJTfHf 

2 DIMENSION  PM3),TH(3) 

3 CiJrtAGV75TATE3y  VUD.DfUU,  f ( 92 >, 0ELY( 28 ) 

*i  CGfl*>ONvsE*P/  soo  nch 

5 EQUIVALENCE  { 800(300),  P ),<S00(993>,  IT).  <600(9951,  TP) 

6 COnnQN/XCODES/  II  J(  ^I3  ) 

i dimension  mtn 

8 EOUI  V Al£NCE(  IIJ(  1361,111  ) 

9 EQUIVALENCE  C ni(5C>,HIO,Cin(S2KL>,UIIU6KJ> 

10  ENTRY  RAUTTA 

11.  T - TT 

12 GO  TO  < 10,H0,m,2S0),L 

13.  10  16  =■  IS 

1 9. lFdS.SO  2)  150,20 

Q 15.  20  00  30  I - 1,N 

16.  K - 2*N  ♦ I 

17  30  HU)  = Y(I> 

18.  L = 2 

19.  GO  TO  270 


20.  HO  T2  = TP  - T 

21  I F(  TP.NE  0.  ) 50,60 

22  50  IF( A&S< T2/TP  )-l  £-7)  130,60,60 

23.  60  HI  = A35CT2) 

2 H IFCTP-EQ.O.)  70  # 80 


25 70  I Ft  HI  — 1 F-7  1 130,50,80 

26.  80  IFtHl  - A3S<1.0l«P  1)90,90,120 


27. 


28. 

29 


30 


31 

32. 

33 


39. 

35. 

36. 

37 


38. 

39. 


r HO. 

91 

92 
H3. 
99. 

95 

96. 


97. 

98. 


99. 

50 


52. 


90  ^(72)100,110,110 
ICO  DT  “ — H L 
GO  TO  120 


110  DT  = HI 


120  IS  = 2 
J = 1 
60  TO  150 


130  T = TP 
L = 3 
J - 1 

60  TO  270 


190  IS  - 2 
DT  = P 


150  DO  200  I = 1,8 
YK  = DVCI)»OT 
60  T0( 160, 170, 170,1 80 ),J 
160  F<  I ) = Y* 

SO  TO  190 

170  F<  I ) = FI  I)  + 2.*YA 
GO  TO  190 


180  F<  I I = Ft  I ) ♦ YA 
60  TO  200 


190  K = 2*N  ♦ I 

Y<  II  = Ft  K 1 ♦ PR(  J )»YK 

200  CONTINUE 

IFCJ-9 >210,230,230 


53  210  l = T+THIJ  >*0T 

59  J = J ♦ 1 


55.  220  L s 1 

56.  60  TO  270 

□57.  230  DO  2H0  I = 1,8 

58  H = N ♦ I 

59.  CELY(  I ) = F(IJ/6.  ♦ OELY(I) 

60.  2HC  VC  I 3 - Fl*>  ♦ OEtYC  l > 

61.  IS  = 1 

62  60  TO  220 


63  250  H - NN 

6H . PIU  l >=Pfi<  2>=TH(  l )=TH(  3 )=.5 


AATA2A 
8*1 *3A 
8*7 AjA 
8 *T  A3 A 
10 

8CTA3A 

RATASA 

RKTA3A 
RATA2A 
RAT  A2A 
RAT  A3 A 
R*T ASA 

r*tasa 

RAT  A2A 
RAT A2A 
RATA3A 
RATA3A 
RAT A3 A 
RAT  A3 A 

RAT A3 A 
RAT  A2A 


10— | 90 


190- 

150- 


rat  a:a 

RATA3A 


RAT  A3  A 
RATA2A 
RATA2A 

RATASA 

RATA3A 

RATA3A 

RATA3A 
RAT  A3 A 
RATA3A 
RATA3A 

RAT  ABA 
RATA3A 

RAT  ASA 
RATA3A 
RAT  AjA 
RATA2A 
RATA3A 

RATASA 

RATA3A 

RAT  ASA 
BATA3A 
RATASA 
RATA3A 

RATASA 
KATA3A 
RAT  A2A 
RATA3A 

RATASA 
RAT  ASA 

RATASA 
RATASA 
RATA3A 
RAT A2A 
RATASA 
RATASA 

RAT  A3A 
RATASA 


50— »6G  — 
to  — 13 

70—1 6C*n 

J== l13 
•*0— ~ 1 120  — 
i5&-]  110— i 


S3 


150-H 


270H 


1 fcG — 1 1 JO-n 


a 


210— «23G-i 


180- 

190- 
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634 


SUBROUTINE 

RKTB3A 


636 


Subroutine  RKTB3A 


Entry  Point  RKUT'JT, 


Purpose 

Subroutine  RKTB3A  is  the  utility  RUNGE-KUTTA  integration  routine  used 
for  integrating  the  adjoint  solution. 


6.37 


fokihan  rath 

5VRB0L  SVRBOL 

DV 

J 

L 

MB 

NN 

P 

TP 

” t 


code  DESCRIPTION 


1 Amy  of  derivatives  for  adjoint  Integration 


fl  Integration  routine  flag  tells  nhlch  derivative 
evaluation  In  Runge-Kutta  cycle 


FI  Integration  traffic  control  flag 

L = 1 >eans  evaluate  derivatives 

= 2 check  cut-off 

= 3 print  or  cut-off  detected 


I Extent  of  integration  set  during  adjoints  on  branch 
problen 


I Nunber  of  integrated  quantities  during  adjoint 
solution 

1 Integration  interval  (SEC1 


I Trajectory  print  tine 


FI  Tine  (elapsed) 


FI  Array  of  variables  for  adjoint  Integration 


5 1 DftAfif 
BLOLK  LOL 


SUB*  CODE  VAR 


/STATE3/< 

128) 

ADEQ3A 

0 

OVARL 

A 0 1 C83 

0 

DVARL 

ADIC3A 

0 

OVARL 

BKTB3A 

I 

DV 

/XCODES/( 

151  > 

ADIC3A 

n 

JK 

BNTG 

i 

JK 

F10DELA 

i 

JK 

PAV02 

n 

JK 

RKTA3A 

n 

J 

RKTB3A 

n 

J 

/XCODES/t 

177) 

BNTG 

Fl 

L 

FNT6 

n 

L 

OUT 

i 

L 

RKTA3A 

It 

L 

RKTB3A 

h 

L 

SOINP  , 

R 

L 

/XCODES/C 

179) 

ADE03A 

I 

NB 

ADICB3 

R 

NB 

A0IC3A 

R 

NB 

BNTG 

0 

NB 

BKTB3A 

I 

NB 

STVRL3 

I 

NB 

/XCQOES/C 

161  ) 

AOICB3 

I 

NEOB 

A01C3A 

R 

NEOB 

RXTB3A 

I 

NN 

/GENF  /( 

300  ) 

BNTG 

R 

DT 

FNTG 

R 

DT 

REU3 

I 

DT 

RKTA3A 

I 

P 

HKTB3A 

I 

P 

STP3 

I 

DT 

VREF3 

0 

DT 

/GENF  /( 

995  ) 

BNT6 

0 

TIFIPR 

FNTG 

R 

T1RPR 

RKTA3A 

I 

TP 

RXTB3A 

I 

TP 

/GENE  n 

993) 

ADICB3 

0 

TIflE 

AST  3 

I 

TIRE 

BNTG 

fl 

TIRE 

C0N3 

I 

TIRE 

DTF3 

I 

TIRE 

ENVPRF1 

I 

TIRE 

EQJA3 

I 

TIRE 

FNTG 

R 

TIRE 

rlODELA 

I 

TIRE 

OUT 

I 

TIRE 

PDBC 

I 

TIRE 

PROPIN 

I 

TIRE 

REU3 

fl 

TIFIE 

RKTA3A 

A 

TT 

RKTB3A 

fl 

TT 

VREF3 

n 

TIRE 

/STATE3/I 

29  ) 

A0EQ3A 

i 

VARL 

AD1CB3 

0 

VARL 

ADI  C3  A 

0 

VARL 

PROPIN 

i 

ZZ 

RKTA3A 

a 

F 

RICTB3A 

Fl 

Y 

STVRL3 

0 

VARL 

TRAN3 

fl 

VARL 

G.?s 
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AXTB3A 


26 


27. 


23. 


29. 

30 


31 


32. 

33. 

3*. 


35. 

36. 

37. 

38. 


39. 

SO. 


94. 

95- 


96. 

97. 


48 . 

49. 


50 

51. 


H 52. 
53. 


54 

55. 


56. 

5T. 


64. 


1.  SUBROUTINE  RXT83A  RXTB3A 

2.  DIMENSION  PR!  3 ),TH(  3 ) MT B3A 

2 COrtflON/  STATE3/  S30I281,  VC99),0Y!99l  RKTB3A 

4 DIMENSION  Ft  297  )f  DELYU98)  RXTB3A 

5.  CDfWON/GENF/Z  00(307)  RKT83A 

6.  EQUIVALENCE  ( Z00<  300  ),P  ),(  ZOO!  993  >,TT  ).<  ZOO!  495  ) .TP ) 10 

7.  COrtflON/XCQOES/  IJJC99)  RXTB3A 

8.  DIMENSION  Illtl)  RKTB3 A 

9.  EQUIVALENCE! 113(1361.111)  RKTB3 A 

10  EQUIVALENCE!  111(26),  Nfj), 1111(94), NB),(  III(421,L),(  IKK  16>,J)  RKTB3A 

11.  ENTRY  RXUTTB  RXTB3A 

12.  T = IT  RKTB3A 

13 GO  TO  ! 10,40, 190,250), L RKTB3A 


14. 

15 


16 

IT. 

18. 

19. 

20. 


21. 

22. 


24. 

25. 


1C  IS  = 16 

I F( 16  EQ.2)  150,20 


20  00  30  I =N&,N 
X = 2*N  ♦ I 
30  F!  X 1 = Y(I) 

1 = 2 
GO  TO  270 


90  T2  = TP  - 7 

IF! TP  - NE  0.)  50 . 


60 


50  IF! AB5(T2/TP  )-l  E-7)  130,60.60 


60  HI  = ABS(T2) 

IF! TP . EQ . 0. ) 70,80 


70  IF(Hl-l.E-7)  130,80,80 


80  IF!  HI  - ABSd.OUP  >190,90,120 


90  1F(T2)100,110,110 


100  DT  = -HI 
GO  TO  120 


110  DT  = HI 


120  16=2 
J = 1 
60  TO  150 


130  T = TP 
L = 3 
J = 1 
60  TO  270 


190  16  = 2 
DT  = P 


91  150  DO  200  I =NB, N 

92.  YK  = OY! I )*DT 

93.  GO  TO!  160170170, 180)  J 


160  F! I ) = YK 
GO  TO  190 


170  F! I ) = F( 1)  ♦ 2-*YX 
GO  TO  190 


180  Ft  I)  = F( I ) 
SO  TO  200 


190  X = 2»N  + J 

Y(I)  = F!K>  ♦ PR!  J )»YK 


200  CONTINUE 

IF! J-4  1210,230,230 


210  T = T*TH!J)*DT 
J = J ♦ 1 


220  L = 1 

GO  TG  270 


58.  230  DO  290  I =NB,N 

59.  ns  N + 1 

60.  OELY(I)  = F(  I >/6.  + DELY(  I ) 

f 61  290  Y!  I ) = F(  + DELY(  I ) 

62.  16  = 1 

63.  GO  TO  220 


250  H = NN 


RXTB3A 

RXTB3A 


RXTB3 A 
RXTB2A 
RXIB3A 
RXTB3A 
RXTB3A 


RXTB3A 

RKTB3A 


RXTB3A 


RXTB3A 
RKTB2  A 


RXTB2A 


RXT63 A 


RPCTB3A 


RXTB3A 

RKTB3A 


100— *110 
k— 1 


RXTB3A 


RKTB3A 

RXTB3A 

RXT83A 


RXTB3A 

RXTB3A 

RXTB3A 

RKTB3A 


RXTB3A 

RXTB3A 


RRTB3A 

RXTB3A 

RXTB3A 


RXTB3A 

RKTB3A 


RKTB3A 

RXTB3A 


RXTB3  A 
FXTB3A 


RXTB3A 

RXIB3A 


RXTB3A 

RXTB3A 


RXTB3A 

RXTB3A 


RXTB3A 

KXTB3A 


RXTB3A 

RXT63A 

RXTB3A 

RXTB3A 

RXT33A 

RXTB3A 


RXTB3A 


10—1  90—i 


190- 

150- 


l250«i 


SO — 1 60- 


70-.E 


7 0 ~i  1 20* 


3iso — 


j.EO- 


llSCH  1 


160— ilTO-,180 


J180 — 

I,B1 


200— | 


210-1230-1 


1270- [ 
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G33 


65# 

Pfi( 1 )=PR<  2 >-T H( l )~TK( 3 )=-5 

RKTB3A 

66. 

Pfi(3)=I. 

RK1B3A 

67# 

THC2)=0. 

RKT83A 

68# 

01  = P 

RKTB3A 

69# 

16  = X 

RKTB3A 

70# 

J = 1 

RXTB3A 

71# 

L - 1 

RKTB3A 

72# 

DO  260  I =WB,K 

RKT&3A 

73# 

« = u ♦ 1 

RKT&3A 

79# 

DELYtl 1 = 0# 

RKTB3A 

75# 

260 

F(  A)  - V<  I ) 

RKTB3A 

76# 

270 

TT  = T 

RKT83A 

77# 

RETURN 

RKT83A 

78# 

END 

RKTB3A 

20  OCf  72  G.01-M6 


^4- 


SUBR0UT INE 
SDER3 


SDER3 


Entry  Point  SDER 


Purpose 

Subroutine  SDER3  computes  the  integrands  of  ideal  velocity  and  velocity 
losses  during  the  solution  trajectory. 


643 


AS 

A .a 

I Total  nozzle  exit  area 

/GENF 

/( 

520  > 

ACCEL 

I 

AE 

tilt 

FH2 

1 

AE 

IrtPUL 

I 

AE 

PROPB 

0 

AE 

PROPIN 

0 

AE 

SDER3 

I 

AE 

CODAE 

C 0 s(  ot-  ) 

I See  $ y »bo 1 

/GENF 

/( 

599) 

ACCEL 

I 

CODAE 

BLR 

I 

CODAE 

BL6 

I 

COOAE 

BL7 

I 

CODAE 

BL8 

I 

CODAE 

FH3 

I 

CODAE 

5DER3 

I 

CODAE 

VT 

0 

CODAE 

DB  0 I Base  drag  (LBS)  /GENF  /<  53T)  ACCEL  I DB 

b BLR  I DB 

BL6  I DB 
BL7  I DB 
BL8  I DB 
EQUA3  1 DB  ' 
FH3  I DB 
OUT  I DB 
SDER3  I OB 
VT  I DB 

DRAG  0 ] Ae  r o dy  naai  c drag  (LBS)  /GENF  /(  A97)  ACCEL  I DRAG 

BL5  I DRAG 
BL7  I DRAG 
BL8  I DRAG 
ENVPRP)  I DRAG 
FH3  I DRAG 
OUT  I DRAG 
PROPB  0 DRAG 
PROPIN  0 DRAG 
SDER3  i DRAG 
VT  n DRAG 

OVAR  ‘ 0 State  vector  derivatives  in  steepest  descent  aodule  /STATE3/(  15)  ADICB3  fl  DVAR 

” ADIC3A  I OVAS 

ADID3A  n DVAR 
0ER3A  0 VO 
DTF3  1 VT 
ENVPHC1  1 DVAR 
PDBC  I VO 
PROPIN  D DVAR 
REU3  I DVAR 
RKTA3A  1 DV 
SDER3  0 DVAR 
STP3  I DVAR 
VREF3  1 DVAR, 
YREF3  I VT 

FVAC  I Total  vacua*  thrust  IrocKetl  (LBS)  /GENF  /(  528)  ACCEL  I FVAC  ■' 

EQUA3  n FVAC 
FH2  I FVAC 
1 PIP  UL  PI  FVAC 
PROPB  PI  FVAC 
PROPIN  PI  FVAC  * 
SDER3  I FVAC 

6 n 1 Gravitational  attraction  (FT/SEC**2)  /GENF  /(  301)  BLR-  1 G 

s BL7  I G 

BL6  1 G 
DER3A  I G 1 
E3UA3  n G 
PIODELA  I G- 
HO  DELB  I G 
P0V3A  I G 
SDER3  I G 
SDINP  PI  G 
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6*f3 


FORIHAN 

symbol 


FIA1H 

symbol 


roup 


DESCRIPTION 


S 10 11  AGE 

SUBHOUT I NE 

USAGE 

HLUCV  L0C 

S U6H  CO Dt 

VAR 

n 

m 

i 

(list 

/ST  ATE  37 1 

A 1 ACCEL 

I 

n 

BLA 

I 

n 

BL8 

I 

m ' 

E-BUA3 

I 

rt 

OUT 

I 

n 

SDER3 

1 

n 

NEQ 

i 

Number  of  Integrited  ststes 

/XCOOES/t 

162)  ADICB3 

I 

NEB 

A01C3A 

I 

NEQ 

ADI  03A 

I 

NEB 

AGETB3 

I 

NEQ 

AST3- 

I 

NEB 

BGET3 

I 

NEB 

BST03 

I 

NEQ 

MTX3A 

I 

NEQ 

OUT 

I 

NEB 

BEU3 

I 

NEB 

SGER3 

I 

NEB 

SD1  NP 

n 

NEB 

TOPD 

I 

NEQ 

TRAN3 

I 

NEB 

YREF3 

I 

NEB 

PA 

p 

i 

Atmospheric  pressure 

{ PSF ) 

/GENF  /< 

306  ) EQUA3 

n 

ozn 

FH2 

i 

PA 

I MPUL 

i 

PA 

OUT 

i 

PA 

PDBC 

i 

PA 

5DER3 

i 

PA 

SINGAPI 

s J n(  7 ) 

i 

See  symbol 

/5TATE3/1 

688)  BLA 

i 

SINGAH 

BL7 

I 

SINGAH 

BL6 

I 

SINGAH 

DER3A 

i 

5INGAH 

E0UA3 

0 

SINGAH 

HODELA 

i 

SINGAH 

MODELS 

i 

SINGAH 

PDBC 

i 

SINGAH 

P0Y3A 

i 

SINGAH 

5DER3 

i 

SINGAH 

T 

T 

i 

Thrust 

( LBS  > 

/GENE  /< 

All)  ACCEL 

i 

T 

BLGCON 

n 

T 

BLA 

i 

T 

BL6 

i 

T 

BL7 

i 

T 

BL8 

1 1 

T 

EL2 

i 

T 

E0UA3 

0 

T 

PHI 

i 

T 

FH2 

i 

T 

FH3 

i 

T 

FHA 

i 

T 

JMPUL 

i 

T 

OUT 

i 

T 

PROPS 

0 

T 

PROPIN 

0 

T 

REU3 

0 

T 

SDER3 

I 

T 
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"'Ni 

*CS 


S0CR3 


i. 

SUBROUTINE  5DER3 

S0ER3 

2 

c 

CORN 

3 

c 

IDEAL 

VELOCITY 

AND  VELOCITY  LOSS 

INTEGRANDS 

CORN 

4. 

c 

CORN 

5. 

COMMON/ ST  ATE3/ 

STATE30 

6. 

♦ VAR< 14  ) 

,DVAR  (14) 

,VARL  (99) 

, DVARL( 99 ) 

, Y0( 9 I 

,SVY( 10) 

STATE30 

7. 

♦ XL( 9.9  ) 

,YOP( 20.9  >, 

YDS  (20,9) 

, COSGAM 

, SI NGAM 

,S AVBP( 15) 

5TATE3D 

6. 

♦SINPSI 

.CCSPSI 

,S1 NR  HR 

, CQSRHO 

,OCQRHO 

,OCOR02 

STATE3D 

9. 

♦ SV8V  ( 9 ). OMEGA 

,0MEGA2 

STATE3D 

10. 

♦vgv 

, GOV 

,RDV 

, MDV 

,POV 

,00V 

STATE30 

n. 

♦ UDV 

, VDS 

, GOG 

,RDG 

,POG 

,006 

5TATE3D 

12. 

♦ UDG 

, VDR 

, GDR 

, MDR 

, POR 

,ODR 

STATE30 

13. 

♦UQR 

, von 

, GDrt 

,MOM 

,PDM 

,VOP 

STATE3D 

14. 

♦ GDP 

, POP 

,ODP 

,UOP 

,VO0 

,GDO 

STATE30 

15 

♦ PDO 

,U00 

, HTOV 

5«TDR 

STATE30 

16. 

REAL  RDM 

. MOV.  MDR 

STATE3D 

17. 

COMMON/ST  ATE3/ 

STATE30 

18. 

♦SIN2R0 

.C0S2R0 

,C0526«  « 

STATE3D 

19. 

COMMON/STS/ 

STS 

20. 

♦ DPAY 

.PMIN 

.WORK  (20) 

.NUDS 

.IPC  (7). NITER 

STS 

21 

♦PING A < 2G,2),nNSP(20, 

2) 

,AR(200), 

I A0(  20 ) , INP(  20 ) , I SVl 20  ) 

STS 

22. 

COMMON/ ARCOAT/ 

ARCDAT 

23 

♦SREF 

,EJ 

,X1SP 

, TRULT 

,DTNC 

, OTPI 

ARCDAT 

24. 

♦ I ATrt 

, I MODE 

, J AER 

, JPRO 

,onAx 

, GMAX 

ARCDAT 

25 

♦XLMAX 

f HOMAX 

, GMOOT 

, ALFMAX 

.PHMAX 

, MAEA 

ARCDAT 

26. 

♦ dAEB 

,HAEC 

.MAED 

, maEE 

,maEf 

,MAE6 

ARCDAT 

27. 

♦JIT 

,MISP 

,MXCG 

, MICG 

, MWD A 

, MWDB 

ARCDAT 

28. 

♦MDB 

,XCSR 

, 2CGR 

,XE 

,ZE 

rXT 

ARCDAT 

29. 

♦ DREF 

, MCND 

,RHOB 

, OMULT 

, RErtAX 

ARCDAT 

30. 

♦ , FR  ATE 

. ARCDt  9 > 

RETAP 

31. 

DIMENSION 

AH  CD At  40  ) 

ARCDAT 

32. 

EOUI VALENCE!  SREF. ARCDA> 

ARCDAT 

33. 

C0nn0N/A£C03/ 

AEC03 

34 

♦ APHO 

, APHR 

, ALPHA 

,VOA 

,GDA 

.PDA 

AEC03 

35. 

♦SI  NA 

, COSA 

, PHIO 

, PHID 

,PHI 

, SI  NPKl 

AEC03 

36 

♦COSPHI 

. GDPH 

, P DP  H 

, XLAMA( 9 ) 

. XLAMPt  9 ) 

, COO 

AEC03 

37. 

♦ CDOM 

, CLO 

,FX 

, XCGM 

, ZCGfl 

,CL0n 

9 

AEC03 

38. 

♦ CM 

.CflA 

, CMAn  ,cnn 

,CMQ 

,cnon 

,fxm 

AEC03 

39. 

♦ CLAM 

, CL 

, CLA 

, CLM 

t 

AEC03 

40. 

41 

*CD  . COA 

COMRON/SENF/ 

,CDM 

AEC03 

GENF 

42. 

♦OfIGC  20  i 

,ORGP(20, 

2) 

,VARO( 9) 

, T 0 L(  9 ) 

,SVAfi(  10) 

, WDC( 20  > 

GENF 

43. 

♦ A(  9.9) 

, ACONt 9) 

, BCON(  9 ) 

.C0TK9.9) 

,QC0N(9) 

, DTP 

GENF 

44. 

♦ DTS 

f OT 

,6 

, OPSQ 

,os 

GENF 

45. 

♦fl 

,RE 

RACH 

rPA 

,RQ 

,cs 

GENF 

46. 

♦ VNU 

.PAR 

,ROR 

, CSR 

, VNR 

,SUMSO 

GENF 

47. 

♦svso 

.TIflEPH 

.TIMES 

.TOP 

,TOS 

,TRt  9) 

GENF 

48. 

♦TST120) 

,TFH  (20) 

, OIS( 20  ) 

, D1P( 20  ) 

,T 

GENF 

49 

♦TLPlt  20  ) 

, T LS 1 (20) 

, 01 P 1( 20  ) 

.DISK  20) 

.TIME 

, BMP 

GENF 

50. 

♦TIMPR 

, LIFT 

.DRAG 

.TAX 

TBURN 

, TBlK  20) 

GENF 

51. 

♦ AE 

fFP 

, FPOLD 

, FP  0 

,MACHR 

, MACH V 

GENF 

52 

♦BR 

,av 

,FVAC 

, LI FTV 

GENF 

53. 

♦ LI  FIR 

,lifta 

t 

DRAGV 

\ DR AGR 

,ORAGA 

GENF 

54 

♦ 

LIFTR 

. DBR 

,DB 

, ISP 

,15PF 

GENF 

55- 

♦ 

ULFT 

- ULFT V 

, ULFTR 

, ULFTA 

$ 

GENF 

56 

♦xncG 

,XMCGV 

, XMCGR 

, xmcga 

, XMCGR 

, COD AE 

GENF 

57 

♦CULFT 

,CT 

, CALPHA 

, CDE 

.OELTAE 

,510 

GENF 

58. 

♦ COD 

,SI OAE 

, XCG 

,ZC6 

,XJ 

GENF 

59 

COMMON  / 

GENF  / 

GENF 

60. 

♦ XJV 

, XJR 
, IRATED 

,GH 

, GAMRAO 

, XK6 

,XKP 

GENF 

61. 

♦FRATED 

6ENF 

62 

♦ PI 

,P2 

>3 

,XX1 

,XK2 

, XK3 

GENF 

63. 

♦ XKIT 

,XK2T 

, XX3T 

, XK 1 D 

, XK2D 

, XK3D 

GENF  ; 

64 

♦XX1A 

f XK2A 

, XK3A 

, XK 1 V 

, XK2V 

, XK3V 

GENF 

65 

♦ XX 1 G 

, XK2S 

, XX3G 

, XK1P 

, XK2P 

,XK3P 

GENF 

66. 

♦ XX1R 

,XK2R 

, XX3R 

, XK  10 

, XK20 

, XK30 

GENF 

67. 

♦ XK1U 

,XK2U 

, XX3U 

. XK  1 M 

,XK2R 

, XK3R 

GENF 

68 

*PV 

.PS 

,PP 

.PR 

,P0 

, OPOY(  3,8) 

GENF 

69 

REAL  LIFTS  , LIFT 

LI  FT  A,  LI  FTrt  , 

MACH, 

MACHR, 

GENF 

70 

♦ ISP,  ISPF.  RACHV.L1FTV  . IRATED 

FRAT 

71 

DIMENSION 

TPHK  10  ). 

TST1CS0) 

GENF 

72 

EGUI VAlEN 

CE<  TLP 1 , TPHl ),(TLS1.TST1 ) 

GENF 

73 

EOUI VALEN 

CE  CVAR(l) 

,V)  , ( VAR<  2 ) 

.GAM)  ,t  VAR(3),ALT)  , 
7 ) , MU ),( VAR( 8), HI  ) . 

(VAR(4),M)  , 
( VARt  9 >,SQ2) 

E3UV3 

74 

♦t  VAR ( 5 >,PSI  ),(  VAfi(  6), 

RHO  >t(  V AR( 

E0UV3 

75 

♦t  DVARt  1 >, 

VO ),t DVARt 

2) 

, GO  ),  ( DVAAl  3 ),  HO  ),(  DVARl  4),  MQ  ), 

l DVARt  5 ),PD) 

» 

EQUV3 

645 
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tv- 


76 

77. 

78. 

79 

80 
81 . 
82 
83 
84. 


99 

100 

101 

102 

103 

10*| 

105 

108 

107 

108 


*(0YAR(  6),00>,<  DVAR(  7),U0).(  DVAR(8>,HT0),(DVAR(9)SQ2D) 
REAL  rt,rtU.ftO 
COMMON/ GLOBAL/ 

*GR  ,ER  , GrtGZ 

*,JJQP(10>  IF  AT  AL  .NAfiC 

*,KTA&{2G),hA&<  20)  ,518 

*,GM  PSIRF,IPFLG1 


YHURF 

,NFARC 


1 TP  so  ,ks6l 
common  moots/ 


'KGLOBLf  8) 


.xladrf 
,NBR AN 
,F1AXTAB 

lPFLG2,]PFL83,lPFLG9,lNEeFU  20) 


,LUrt 
,I0(  H> 


85 

♦ lTfl 

( 9 ) I COR 

( 20),1TI 

, I NTB 

86 

«JST 

(20) 

, NCNST 

, NSB 

87 

*I20P 

,IC0P 

, IFAU 

,1FRR 

88 

*IOPEN 

,1PH 

, ISPH 

,1SST 

89 

*ITCT 

,ITER 

, I VAR 

,JF 

90 

*KOP 

. KPST 

,*■ 

,KST 

91. 

*NCN 

,NEOB 

.NEQ 

, NOP 

92 

*NST 

!ipst 

, J PRI NT 

,I$TN 

93 

♦IPHNB 

, I BLKl 

,IBLK2 

, I5T0P 

99 

♦ IFOB 

, NB 

, LB 

.MB 

95 

*NCTIN 

,NEOF 

,1USB(8),JPRP 

96. 

ENTRY 

ODER 

97. 

IFC  T ES.O)  60  TO  10 

98.  C 

DRA6 

LOSS 

,JGID(20,2),JPH  (20,2) 


, NSAB 
, IFB 
, I AR  C 
,JPS 
.NAD 
, NPH 
, I P HN 
, ISTPP 
- NPHP 


,NICNB 
, I NO 
1ST  ART 
,JS 

, ncase 

,N 

, ISTNB 

'nphb 


I n(  20  ),  JP  1 , JPi, JP3 


DVAR(  NEfl  + 2 ) = ( DR A6+0B*C0D AE )/rt 
IDEAL  VELOCITY 
DVAR<  NEO+ 1 ) =(T  + AE+P A )/H 

BACK-PRESSURE  LOSS 
OVAR(  NEfl+3  )=  AE*P A/A*CODAE 
GRAVITY  LOSS 
DVAR( NEQ  + 4 )=G*SINGAH 

DISALIGNMENT  loss 
DVAR( NEO  + 5 ) = FVAC*( l.-CODAE)/fl 
RETURN 


109. 

110. 
111. 
112 


10  DO  20  1=1,5 
20  OVAR<  NEQ  + I ) = 0. 
RETURN 
END 


EQUV3 

E0UV3 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL, 

GLOBAL 

RETAP 

XCODES 

XCO0E5 

XCODES 

XCODES 

XCODES 

XCODES 

XCODES 

XCODES 

XCODES 

XCODES 

XCODES 

XCODES 

50ER3 

AAA 

COrtN 


PH1SZ 

COrtN 

SDER3 

COrtN 

PH1SZ 

COrtN 

PH1SZ 

COrtN 

PH1SZ 

SDER3 


AAA 

AAA 

AAA 

SDER3 
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SUBR0UTINE 

SDINP 
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SDINP 


Purpose 

SDINP  scans  and  interprets  input  data. 

Description 

SDINP  is  an  overlay  called  by  the  Steepest  Descent  executive  routine,  TOPM. 
The  bulk  of  its  coding  is  related  to  converting  input  data  into  internally  used 
data  and  flags  for  the  steepest  descent  module;  however,  it  serves  also  to 
check  boundary  condition  data  for  the  quasi-linearization  module  and  print 
out  this  data. 

Aside  from  boundary  condition  data,  SDINP  processes  the  following  type  of 
data  for  the  Steepest  Descent  program. 

1.  Updates  of  present  constraint  tolerances  and  parameter  weighting 
factors 

Z.  Tape  starting  solution  initialization. 

3.  Solution  control  modes 

4.  Starting  nominal  control  modes  and  tables  (no  tape  solution  given) 

5.  Steepest  descent  convergance  data 

6.  Steepest  descent  storage  flags  and  counters.  . 
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SDIEVAP  CcontiNU£,d3 
YSL  \TA&Q£T  ScaW 


^ytur-df^ 
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SOLUTION 

GU/0AMce 

PHeetNe- 


A PC  DATA 

SC  AH 

1 

COM  VCET 
INPUT  COMTPOU 

wovjcc  *u> 
INTS-SnAU 

e coes 


V 


FORTRAN  HATH 

SYMBOL  SYMBOL 


A 


A 


AR 


ARCOA  C 

rtf 


BNARR 

DELP 

OIP1 

01  SI 

OP  AV 


cooe  DESCRIPTION 


1 Control  Integra)  «*trlx 


I Array  for  storing  starting  control  history  tables 
* Aerody nam  c reference  area  CFT^) 


I Packed  boundary  condition  array. 

0 Input  or  preset  nominal  pargaeter  adjustment  size 
H Phase  initial  tines  for  nominal  trajectory  Lsd3 

fl  Arc  initial  times  for  nominal  trajectory  [$d] 


I Initial  payoff  improvement 


Gr  avi  tat  lent  l attraction 


( FT/S£C**2  ) 


STORAGE 


BlOLK 

LOC 

SUBR 

CODE  VAR 

/genf 

/( 

109  } 

A0EQ3A 

0 

A 

AD1CB3 

n 

A 

BGET3 

0 

A 

BNTG 

i 

A 

BST03 

I 

A 

PIT  X 3 A 

I 

« 

PAYOZ 

I 

A 

SOI  NP 

I 

A 

TRAN3 

I 

A 

/5TS 

/( 

112) 

SOI  NP 

I 

AR 

50INP 

I 

III 

TBLK 

I 

AR 

/ARCDAT/t 

1 1 

BNTG 

I 

ARCOA 

EOUA3 

i 

SREF 

FNTG 

i 

ARC  DA 

FXDAT 

I 

ARCDA 

FXDAT 

0 

IARC0A 

GEINP 

M 

ARCDA 

SDINP 

I 

ARCDA 

SiZIN 

I 

ARCDA 

S5ZIN 

« 

SREF 

THRUST 

i 

SREF 

VT 

i 

SREF 

/SDINP 

/(» 

1 

SDINP 

i 

BNARR 

/PARAM 

/( 

357  ) 

SDINP 

0 

DELP 

TOPM 

0 

DELP 

/GENF 

/< 

A53) 

6ETIT 

i 

0IP1 

SOI  NP 

n 

DIP1 

TEST 

0 

DIP1 

TOPM 

I 

DIP1 

/GENF 

/< 

A 73 ) 

GETIT 

I 

0IS1 

SDINP 

n 

0151 

TEST 

0 

0151 

TOPPI 

I 

0IS1 

TRAN3 

I 

D 1 5 1 

/STS 

n 

1 1 

PAY02 

I 

OPAY 

SDINP 

I 

DP  AY 

SDINP 

0 

1ST 

SDINP 

I 

ST 

TEST 

I 

OPAY 

TOPM 

0 

IDPAY 

/GENF 

/< 

301  1 

BL4 

I 

G 

BL7 

I 

G 

BL8 

I 

G 

DER3A 

I 

S 

EQUA3 

fl 

G 

P10DELA 

i 

6 

MOOELB 

i 

G 

PDY3A 

i 

G 

SDER3 

i 

S 

S 01  NP 

n 

8 
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FORTRAN  HATH 

SYMBOL  SYHBOL 


GR 


9r 


I AD 
I ARC 


I COR 


ID 


IFATAL 


III 


I MODE 
1NP 


cooe  DESCRIPTION  bcou° 

■ — ■ — i » — tmm* m — i - i i — — • i i i ——  mm ■ 


Gravitational  ac c e 1 er at 1 on  at  surface  of  the  earth 

/GLOBAL/! 

1 ) 

ACCEL 

1 

GR 

( FT/SEC2  > 

BLS 

EQUA3 

I 

I 

GR 

GR 

FH3 

I 

GR 

GEINP 

I 

G 

GEINP 

I 

SR 

GEINP 

0 

IS 

OUT 

I 

GR 

P AOS  1 

1 

GR 

PDBC 

I 

GR 

R E 1)3 

I 

GR 

SDtNP 

I 

GR 

SIZE 

I 

GR 

SIZ1 

I 

GR 

S 1 22 

I 

GR 

SI  23 

I 

GR 

SI  ZB 

I 

GR 

50  AG 

I 

GR 

STAU 

I 

GR 

Starting  address  of  each  control  history  table 

/STS  /( 

312) 

SDINP 

IB 

IAD 

TBLK 

I 

IAD 

Arc  number 

//CODES/! 

IMS) 

A01CB3 

I 

I ARC 

ADI D3A 

I 

I ARC 

ADJUST 

I 

I ARC 

AST3 

I 

I ARC 

BNTG 

IB 

I ARC 

ENVPRIB 

i 

I ARC 

FNTG 

n 

I ARC 

GET1T 

I 

I ARC 

AOOELft 

i 

I ARC 

PROPB 

1 

I ARC 

PROPIN 

I 

IARC 

REU3 

i 

I ARC 

SDINP 

IB 

IARC 

STAU 

I 

IARC 

STP3 

I 

IARC 

TRTOSZ 

I 

IARC 

Phase  >equence  array 

/ X CODES/! 

10) 

ADJUST 

I 

ICOR 

FNTG 

I 

ICOR 

P RnSET 

I 

ICOR 

SDINP 

A 

ICOR 

A four  word  array  containing  the  basic  dec*,. 

/global/! 

21  > 

BLICO 

I 

ID 

reference  run,  case  and  part  case  numbers  In  that  - 

FRENCH 

I 

ID 

o r der  . 

GEINP 

1 

ID 

P AOS  1 

0 

ID 

PRINT 

I 

ID 

SDINP 

I 

ID 

TOP  A 

I 

ID 

VEHDF 

1 

ID 

Fatal  error  flag. 

/GLOBAL/! 

17) 

BUCO 

IB 

IFATAL 

GEINP 

0 

IFATAL 

PADS! 

I 

IFATAL 

SDINP 

IB 

IFATAL 

SPLICO 

IB 

IFATAL 

5TP1T 

□ 

IFATAL 

topib 

IB 

IFATAL 

Array  for  storing  starting  control  history  tables 

/STS  /! 

112) 

SDINP 

I 

AR 

SDINP 

I 

III 

TBLK 

I 

AR 

Control  node  option  flag 

/ARCDAT/i 

8) 

FXOAT 

IB 

IIBGDE 

SDINP 

I 

IIBDDE 

Index  of  last  argument  of  each  control  history 

/STS  / ! 

332) 

5DINP 

IB 

INP 

table 

TBLK 

I 

1NP 
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HATH 

SYMBOL 


DE5CRIPTI0N 


S 1 DRAKE 
BIOLK  LOC 


subroutine  usage 

SUBH  COOE  VAR 


I NT  B 

n 

Branching  and  Intermediate  constraint  flag 

/XCODE$/< 

3D 

A01C3A 

I 

I NT  3 

BNTG 

I 

I NTB 

ENVPRPI 

,1. 

I NTB 

FNTG 

1 

INTB 

SDINP 

PI 

I NTB 

TEST 

I 

INTB 

TRAN3 

I 

INTB 

TRTOSZ 

I 

INTB 

I PH 

pi 

Phase  number 

/XCOOES/t 

193  ) 

AD1D3A 

I 

I PH 

ADJUST 

I 

I PH 

AST3 

I 

I PH 

BNTG 

n 

I PH 

FNTG 

pi 

JPH 

GETIT 

i 

I PH 

GUI  3 A 

i 

I PH 

SDINP 

B 

I PH 

1 PD  I NT 

0 

Code  for  each  adjustable  parameter  In  steepest 

/PARAP1  /< 

1 ) 

ADJUST 

I 

IPOINT 

descent . 

PRESET 

I 

I P D I NT 

SOI  NP 

0 

IPOINT 

STAU 

I 

I PD  I NT 

TOP  PI 

0 

IPOINT 

1ST 

d§ 

0 

Initial  payoff  improvement 

/STS  /( 

1 ) 

PAY02 

SDINP 

SDINP 

I 

I 

0 

DPAY 

DPAY 

1ST 

SDINP 

I 

ST 

TEST 

I 

DPAY 

TOPPt 

D 

I DPAY 

ISV 

0 

Saved  index  of  last  control  history  table  look-up 

/STS  /( 

352  ) 

SDINP 

0 

ISV 

TBLK 

PI 

ISV 

ITAB 

I 

A 20  word  array  containing  the  number  of  nonzero 

/GLOBAL/t 

95) 

GEINP 

'I 

I.TAB 

state  Initial  conditions  specified  at  the  beginning 

SDINP 

I 

ITAB  . 

of  each  subarc 

SIZIN 

I 

ITAB. 

ITI 

0 

Optimized  arc  time  flag 

/XCODES/< 

30) 

ADJUST 

PI 

ITI 

FNTG 

I 

ITI 

SDINP 

0 

ITI 

ITPSO 

I 

A non  zero  input  value  Indicates  to  the  steepest 
descent  nodule  that  the  initial  steering  angle 

/GLOBAL/! 

93  ) 

SDINP 

I 

ITPSO 

profiles  are  stored  on  logical  unit  ll. 

I TO 

n 

Constraint  option-code  (internal) 

/XCODES/t 

1 ) 

ADICB3 

I 

I TO 

AD1C3A 

I 

ITQ 

AO  1 03 A 

I 

ITD 

C0N3 

l 

3 TO 

SDINP 

n 

TTO 

STAU 

I 

ITO 

. 

TOPD 

0 

3IT0 

JGID 

n 

Control  option  flag  array 

/XCODES/t 

32  ) 

BNTG 

FNTG 

SDINP 

i 

i 

JGID 

JGID 

JGID 

pi 

JPH  * 

n 

Phase  cut-off  option  flag 

/XCODES/t 

72) 

BNTG 

i 

JPH 

FNTG 

pi 

JPH 

SDINP 

rt 

JPH 

JST 

n 

Arc  cut-off  option  flag 

/XCQOES/t 

112) 

A0ICB3 

1 

JST 

BNTG 

i 

JST 

FNTG 

I 

JST 

SDINP 

pi 

JST 

K 

n 

Storage  retrieval  flag  indicates  end  of  arc.  phase. 

/XCODES/t 

156) 

AST3 

0 

K 

or  data. 

FNTG 

0 

K 

GETIT 

n 

K 

rtDOELA 

i 

X 

SDINP 

pi 

X 

KSOL 

n 

An  internal  flag  that  has  the  same  significance  as 

/GLOBAL/C 

99) 

FNTG 

i 

XSOL 

ITPSO. 

P AOS  1 

0 

KSOL 

SDINP 

PI 

KSOL 

KTAB 

I 

A 20  word  array  containing  the  number  of  state 

/GL0BAL/( 

25  ) 

GEINP 

I 

KTAB 

target  conditions  specified  at  the  end  of  each 

SO  I NP 

I 

KTAB 

subar  c. 

SIZIN 

I 

KTAB 
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FORTRAN 

5YMBOL 


MATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

8L0LR  LOC  SU4H  CODE  VAR 


lum 

MIXA 

niXB 

P1NGA 
MNGP 
MX  ft 
MXB 
NARC 

NBRAN 

NCN5T 


NEB 


n 

tnfegr.tlon  trifflt  control  flog 

/ XCDOES/t 

177) 

BNTS 

N 

L 

L - 1 nuns  cviluife  der1»«t!ve« 

ENTS 

N 

L 

- 2 c h»  cK  cut-off 

OUT 

1 

L 

- 3 print  or  cut-off  deftcftd 

RKTA3A 

n 

L 

RKTB3A 

N 

L 

S01NP 

N 

L 

I 

Program  control  flag. 

/GLOBAL/T 

6) 

AST  3 

I 

LUN 

LUM  = 0 Steepest  descent  only. 

FNTG 

1 

LUN 

LUM  ~ 1.  Steepest  descent  and  adjoint 

GEINP 

I 

LUN 

transformation  stored  on  tape. 

P ADS  1 

n 

LUN 

LUM  = 2 Steepest  descent  and  QL; 

SDINP 

i 

lun 

LUn  = 3 QL  only. 

TOPrt 

n 

LUN 

I 

Maximum  number  of  words  In  trajectory  data  buffer  = 

/RETREV/C 

12) 

AGETB3 

i 

NI  XA 

9 90, 

AST  3 

i 

MI  XA 

SOI  NP 

i 

NI  XA 

TOPN 

D 

nixa 

I 

Oaxiaut  number  of  words  In  adjoint  data 

buffer  = 

/RETREV/< 

13) 

BGET3 

I 

NIXB 

3000a 

BST03 

1 

MI  XB 

SDINP 

I 

niXB 

1 

TOPN 

D 

NIXB 

n 

Control  history  curve  number 

/STS  /( 

32) 

GUI  3A 

n 

NNGA 

SDINP 

n 

MNGA 

SDINP 

I 

TAL 

n 

Control  history  curve  number 

/STS  /( 

72) 

GUI  3 A 

n 

MNGP 

SDINP 

n 

MNGP 

SDINP 

I 

JTPI 

0 

Index  of  last  stored  word  in  full  buffer 

of  forward 

/RETREV/C 

1 H) 

AGETB3 

I 

NX  A 

trajectory  data. 

AST3 

I 

NX  A 

SDINP 

0 

NXA 

0 

Index  of  last  stored  mord  In  full  buffer 

of  adjoint 

/RETREV/t 

15) 

BGET3 

i 

NXB 

data. 

BST03 

I 

MXB 

SDINP 

0 

NXB 

I 

Number  of  subarcs  in  the  problem. 

/GLOBAL/t 

18) 

FNTG 

I 

NARC 

GEINP 

n 

NARC 

PRDPIN 

i 

/JAR  C 

SDINP 

i 

NARC 

SI2IN 

i 

NARC 

0 

Number  of  the  last  subarc  on  the  stem  of 

a branch 

/GLOBAL/ < 

19) 

SOINP 

0 

NBRAN 

problem.  If  the  problem  is  not  a branch 

problem. 

then  NBRAN  = 0. 

n 

Number  of  problem  constraints 

/XCODES/t 

132) 

BGET3 

i 

NCNST 

BST03 

i 

NCNST 

C0N3 

i 

NCNST 

PAYD2 

i 

NCNST 

SDINP 

N 

NCNST 

SUMS 

I 

NCNST 

TEST 

I 

NCNST 

TOPN 

1 

NCNST 

TRAN3 

I 

NCNST 

m 

Number  of  integrated  states 

/XCODES/C 

1 62  ) 

AOICB3 

1 

NEO 

, 

ADIC3A 

I 

NEB 

A D 1 03 A 

I 

NEB 

AGETB3 

I 

NEQ 

AST3 

I 

neb 

BGET3 

I 

NEB 

BST03 

I 

NEB 

MTX3A 

I 

NEB 

OUT 

I 

NEB 

REU3 

I 

NEB 

SDER3 

I 

NEB 

SDINP 

N 

NEB 

TOPN 

I 

NEB 

TRAN3 

I 

NEQ 

YREF3 

1 

NEO 

30  OCT  72  G. 01-56 


657 


F0H1HAN 

svnaoi 


HATH 

SvnsoL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  USAGE 

BLOCH  LUC  SUBR  CODE  VAR 


NEOF 

0 Number  of  equations  to  be 

Integrated  on  forward 

/XC0DE5/( 

185  ) 

REU3 

I 

NEOF 

trajectory 

RKTA3A 

I 

NN 

SOINP 

0 

NEOF 

STAU 

1 

NEOF 

T0PP1 

0 

NEOF 

TRAN3 

0 

NEOF 

NF  ARC 

No 

0 Number  of  the  last  subarc 

on  the  first  branch*  If 

/GLOBAL/i 

20  > 

SOINP 

0 

NFARC 

the  probit*  ts  not  a branch  proble*,  then  NFARC  - 
NARC. 


NICNB 

m 

Number  of  constraints  at  intermediate  constraint 

/ XCODES /( 

135  ) 

A0ICB3 

I 

NICNB 

point  or  at  end  of  first  branch 

AD1C3A 

I 

NICNB 

BNTG 

I 

NICNB 

REU3 

I 

NICNB 

SDINP 

n 

NICNB 

TEST 

I 

NICNB 

TRAN3 

I 

NICNB 

NITER 

I 

Maximum  number  of  steepest  descent  iterations 

/STS  /( 

31  ) 

SDINP 

I 

NITEH 

TEST 

I 

NITER 

NPARA 

n 

Number  of  adjustable  parameters  in  trajectory 

/PARAPl  /( 

13  ) 

ADJUST 

I 

NPARA 

pr ob lem. 

BNTG 

I 

NPARA 

FNTG 

I 

NPARA 

P1TX3A 

I 

NPARA 

PAV02 

I 

NPARA 

PRESET 

I 

NPARA 

SDINP 

B 

NPARA 

STAU 

I 

NPARA 

TEST 

I 

NPARA 

TOPP! 

0 

NPARA 

NPK 

n 

Number  of  phases  in  trajectory 

/ XCDDES/I 

164  ) 

BNTG 

FNTG 

I 

o 

NPK 

NPK 

PRPlSET 

I 

NPK 

SDINP 

PI 

NPK 

TEST 

I 

NPK 

TOPIR 

I 

NPH 

NPT  A 

n 

Number  of  words  stored  at  each  trajectory  time 

/RETREV/i 

18) 

SOINP 

PI 

NPT  A 

point. 

NPTB 

n 

Number  of  words  stored  at  each  adjoint  solution 

/RETREV/t 

17  > 

BGET3 

I 

NPTB 

time  po i nt . 

SDINP 

PI 

NPTB 

NS 

i 

Number  of  arcs  in  trajectory 

/XCDOES/t 

188) 

BNTG 

I 

NST 

FNTG 

0 

NST 

PRDPB 

I 

NST 

SOINP 

I 

NS 

SDINP 

PI 

NST 

TEST 

I 

NST 

TOPP! 

I 

NST 

TRAN3 

I 

NST 

NS  AB 

pi 

Number  of  arcs  on  first  branch 

/XCOOES/C 

134  ) 

ADICB3 

I 

NSAB 

BNTG 

1 

NSAB 

ENVPRPI 

I 

NSAB 

FNTG 

I 

NSAB 

SDINP 

PI 

NSAB 

TEST 

I 

NSAB 

TRAN3 

I 

NSAB 

TRTOSZ 

r 

NSAB 

NSB 

n 

Number  of  arcs  prior  to  branch  point  or 

/XC0DES/( 

133) 

ADICB3 

i 

NSB 

intermediate  constraint 

BNTG 

i 

NSB 

ENVPRP1  I MSB 
F NT  G I NSB 
REU3  I NSB 
SOINP  PI  NSB 
TEST  I NSB 
TRAN3  I NSB 
TRTOSZ  I NSB 
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FORTRAN  MATH 

SYUBQL  SYflBOU 


DESCRIPTIOIM 


S t OR  A fig  SUBROUTINE  USAGE 
BLUU!  LOC  SUBfl  COOE  VAR 


NST 


ofig 


OFIGP 


OFIGZ 


PFIIN 


PSIRF 


RAO 


HOI 


Si  G 


ft. 


u 


FI  Number  of  irci  In  trajectory 

FI  Array  of  arc  cut  off  values  l*dl 

FI  Array  of  phase  rut  off  values  tsd3 
I Earth  rotation  rate 

I Fliniaua  payoff  laproveaent 
FI  Reference  aztauth. 

I Radian  to  angle  conversion,  57.29577951 
I Angle  to  radian  conversion,  .01745329252 
FI  Payoff  s I gn 

SIG  < 0 Payoff  to  be  ainialied, 

SIS  > 0 Payoff  to  be  aaxiaized 


/XC0DE$/( 

166  ) 

BNTG 

I 

NST 

FNTG 

0 

NST 

• 

PROP  B 

I 

NST 

S01NP 

I 

NS 

501NP 

FI 

NST 

TEST 

1 

NST 

TOPF! 

I 

NST 

TRAN3 

I 

NST 

/GENF  /( 

1 ) 

ADJUST 

FI 

DUG 

FNTG 

I 

OFIG 

PRF1SET 

FI 

OFIG 

PROP  B 

1 

OFIG  ‘ 

SOINP 

FI 

OMS 

STP3 

I 

OFIG 

T0PF1 

0 

I OFIG 

/GENF  /( 

21  > 

ADJUST 

0 

OFIGP 

FNTG 

FI 

OFIGP 

PRrtSET 

0 

OFIGP 

SOINP 

FI 

OFIGP 

< RAD/SEC)  /GLOBAL/I 

3) 

A0I03A 

I 

OFiez 

CRASH 

I 

0FIEGA 

DER3A 

I 

DFIGZ 

EOUA3 

I 

OFIGZ 

GEINP 

I 

OFIGZ 

P10DELA 

I 

onGZ 

' 

FIOOELB 

I 

OFIGZ 

PDBC 

1 

OFIGZ 

PDY3A 

I 

OFIGZ 

SOINP 

I 

OFIGZ 

TOPFI 

I 

OFIGZ 

/STS  /( 

2 ) 

PAV02 

1 

PFIIN 

SOINP 

I 

PrtlN 

TEST 

I 

PHI  N 

<oeg)  /global/i 

68  ) 

GEINP 

I 

PSIRF 

REU3 

I 

PSIRF 

SOINP 

FI 

PSIRF 

/DATA  /( 

2) 

BEROCO 

I 

OEG 

BLGCON 

1 

RAD 

ENVPRFl 

I 

RAD 

E9UA3 

I 

RAO 

FNTG 

I 

RAD 

GUI3A 

I 

RAO 

flODELA 

I 

RAD 

FITX3A 

I 

RAD 

OUT 

I 

RAD 

P ADS  1 

0 

RAD 

SDINP 

I 

RAO 

TRTOSZ 

I 

RAD 

/DATA  n 

3) 

BL1C0 

I 

RDI 

DER3A 

I 

R0I 

FNTG 

I 

RDI 

GUI3A 

I 

RDI 

FIOOELA 

I 

RDI 

FIOOELB 

I 

RBI 

P AOS  T 

D 

RBI 

PROPB 

I 

RDI 

PROPIN 

I 

RDI 

REU3 

I 

ROI 

SDINP 

I 

RDI 

SOFIG 

I 

RDI 

/GLOBAL/! 

65  ) 

PAV02 

I 

SIG 

SDINP 

FI 

SIG 

TEST 

I 

SI  6 

TRAN3 

I 

SIG 
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FORTRAN  HATH 

SYrtBOL  SYMBOL 


ST  d$ 


S YAH 


y lt=0 


TAL 

TARG 

TTNTT  tQ 

TOL 

TPHI 


TST1 


YARD  <VARQ> 

UDC 

WORK 

utp  [Y3 

WTP  D 
NT  PI 

XLArtRF  0 

r 

YrtURF  u 


cooe  DESCRIPTION 


I Initial  payoff  Improvement 

H Array  of  state  values  at  Initial  problem  time  tsd] 

I Control  history  curve  number 

I Target  condition  part  o-f  BNARR. 

0 Trajectory  start  time.  (SEC) 

fl  Tolerence  on  constraint  misses  t$d3 

0 Phase  end  times  for  nominal  trajectory 
0 Arc  end  times  for  nominal  trajectory 

fl  Desired  constraint  values  tsd) 

fl  Array  of  drop  weight  per  arcLsdT  (LBS) 

fl  Working  array,  contains  TQPEN1,  TQPEN2,  and  PH1UT 

0 Adjustable  parameter  diagonal  weighting  matrix 
order  according  to  IPQINT 

fl  Input  or  preset  adjustable  parameter  weighting 

factors  according  to  type  of  parameter 

1 Control  history  curve  number 

fl  Reference  latitude  (DEG) 

fl  Reference  longitude  (DEG) 


STORAGE 


BLOCK 

LOG 

SU8R 

COOE  VAR 

/STS 

/< 

1 > 

PAY02 

I 

OPAY 

S 01  NP 

1 

DPAY 

SO  I NP 

0 

1ST 

SOINP 

I 

ST 

TEST 

I 

OPAY 

TOPrt 

0 

I OP  AY 

/GENF 

/< 

79  ) 

ADJUST 

0 

SVAR 

BNTG 

I 

SVAR 

FNTG 

I 

5 YAR 

PRrtSET 

ro 

S YAH 

REU3 

i 

SVAR 

SOINP 

ro 

5 YAR 

TEST 

i 

S YAR 

TOPrt 

i 

SVAR 

TRT05Z 

I 

SVAR 

/STS 

/( 

32  I 

GUI  39 

ro 

P1NGA 

SOINP 

ro 

roNGA 

SDTNP 

i 

TAL 

/SOI NP 

/( * 

) 

SOINP 

i 

TARS 

/GLOBAL/C 

7) 

SOINP 

0 

TINIT 

/GENF 

/< 

70  ) 

SOINP 

fl 

TOL 

suns 

i 

TOL 

TEST 

i 

TOL 

/GENF 

/( 

913  ) 

BNTG 

i 

TPH1 

GETIT 

i 

TPHI 

SOINP 

0 

TPH1 

TEST 

0 

TPHI 

To  Pro 

1 

TPHI 

/GENF 

/( 

933  ) 

BNTG 

I 

TST1 

GETIT 

I 

TST1 

PROPIN 

I 

TST I 

SOINP 

0 

TST  1 

TEST 

0 

TST1 

TOPfl 

I 

TST1 

TRAN3 

I 

TST1 

TRTOS  2 

I 

TST1 

/GENF 

/< 

61  ' 

C0N3 

I 

VARQ 

SOINP 

fl 

YARD 

TEST 

I 

VARQ 

/GENF 

/< 

39  ) 

BNTG 

I 

UDC 

REU3 

I 

UDC 

SOINP 

ro 

UDC 

/STS 

/( 

3 ) 

A0EQ3A 

i 

UORK 

FNTS 

i 

UORK 

FIOOELB 

0 

UORK 

FIT  X3  A 

i 

UORK 

SOINP 

fl 

UORK 

TEST 

n 

UORK 

/PARAFl 

/( 

132  ) 

PIT  X3A 

i 

UTP 

PAY02 

i 

UTP 

SOINP 

0 

UTP 

T0PP1 

0 

WTP 

/PARArt 

/( 

123  ) 

SDINP 

ro 

UTPD 

T0PP1 

0 

UTPO 

/STS 

/< 

72) 

GUI3A 

ro 

F1NGP 

SDINP 

n 

F1NGP 

SDINP 

i 

UTP  I 

/GLOBAL/t 

9) 

CRASH 

n 

RHOO 

GEINP 

i 

XLAroRF 

REU3 

i 

XLAMRF 

SDINP 

fl 

XLAroRF 

/global/i 

5 ) 

CRASH 

ro 

unuo 

GEINP 

I 

YrtURF 

REU3 

i 

YrtURF 

SOINP 

n 

YrtURF 
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'•A 


SOINP 


i.  proerah  soinp  soinp 

2 C COrtM 

3 C SCANS  AND  INTERPRETS  INPUT  DATA  CO«N 

4 DIMENSION  LABEL!  10),LABL2(  35),  LABL31Z)  SDINP 

5.  DATA  LABEL  / 10H  TIMES,  1CH  VELDCITY=,  1CHPATK  ANSL=,  SDINP 

6 1 1 OH  ALTITUDE=,  10H  slS-MASS=,  10H  AZIRUTH=  -ICH  LATITUDE^  , SOINP 

7 2 1 Oh  LNGITUDE=,15h  HEAD  LOO=,  ICH  SBUIGLEZ=/  SDINP 

8 DATA  LABL2  / SOINP 


9 

1 10HELFS0.TIME,  1GH 

VELOCITY, 

1CHFATH  ANGLE.  ICH  ALTITUDE, 

SOINP 

1G. 

21CH  MASS  . 1GH 

A2IMUTH 

, 1GH  LATITUDE  .ICH 

longitude  . 

SOINP 

il. 

31&HHEAT  LOAD  . lOHSO'JI  G5LE  2, 

ICHINER  VELOC 

,10HIN.PTH  ans. 

SDINP 

12. 

41CHIN. AZIMUTH,  1CH14 

lonstuo. 

1GH5MLAT  RCTfl 

i,10HECCNTRCITY, 

SDINP 

13 

51&HINCL4AT104,  lOrfARG 

FERoEE, 

1GHLNG  A5C  NO 

. lCHSMlrtAjAXTS, 

SDINP 

1*1. 

61GHAFC3EE  RAD, 1 OrtPER 

GEE  RAD 

1QHTRU  ANOMLY 

, ICH  CAP 

x 

SDINP 

15 

7lGrt  CAP  Y ,1CHAS$YP1PT0TE, 

ICH  ENERGY 

,1QH  momentum  , 

SOINP 

16. 

81  Gh  QxfH  RANGE. ICH  CRS  RANGE, 

1GH  TOT  RANGE 

, 1GH  DYN 

PRESS, 

SOINP 

17. 

♦10HHEAT  RATE  , 1GH 

REYN  NO 

, 1GH  PAYLOAD 

/ 

OS 

18. 

DATA  LABL3  / 10HMI NI  MI  ZED  , 

1 GHMAXI Ml  ZED 

/ 

SOINP 

19. 

DIMENSION  S8IFC40) 

SDINP 

20 

EQUIVALENCE  ( SRIPt  12),  SMI  X ),<  SRIFI  13  ),  XLMI  X ).  C SRI  Ft  14>,TEI4IX  ), 

SDINP 

21. 

1 ( SR1F( 8 ) . I CODE ) 

SOINP 

22. 

EQUIVALENCE  C Sfi IF .T ARG( 50 ) ) 

SDINP 

23 

EGUI VALE4CEC N$,NST> 

SDINP 

24 

COMMQN/RETREV/  FTII4E 

. BTIflE,  MAXA(  2 ) .flAXB 

RETfiEV 

25. 

CQMMON/RETREV/ 

RETREV 

26 

*N8UFA(2)  ,1BUF1 

, I BUF2 

,NBFA 

,NBFB 

.mxA 

RETREV 

27 

♦ MlXB  flXA 

,flXB 

,NPTA 

,NPTB 

, I BLXB 

RETREV 

28 

* , NBUFB  , 1 BUFB 

RETREV 

29. 

tQnr»QN/STS/ 

STS 

30. 

♦BPAY  .PMIN 

,UQRK  ( 20  ), NUDS 

.IPC  <71,  NITER 

STS 

31. 

»PINGA(20.2),nNSFl20,2)  , AR(  200  } 

- 1 ADC  20  ) . 1NP<  20  ). IS V( 20  ) 

STS 

32. 

LOGICAL  IF AT AL 

SDINP 

33 

INTEGER  DEVTYP 

SOINP 

34 

COMMON  /LftSTAB  / LSTHD 

SOINP 

35 

0IMEN5I0N  ST(1),IST(1) 

SDINP 

36 

equivalence  (DPAY.ST)  ,<dpay,i$t> 

SOINP 

37 

DIMENSION  GUARR(  1 }.  Gill  CM).III(l) 

SOINP 

38 

EDUIVAlENCEC  8NARR,Su 

ARR  ) . ( BNARR, GUIC  ),(  AR, I II ) 

SOINP 

39 

DIMENSION  1 Nr ERR<  2 > 

.ITLI2) 

SDINP 

40 

DATA  INrERK/  2SH0  FATAL  INPUT 

ERROR  / 

SDINP 

HI. 

COMHQN/SENF/ 

SENF 

42. 

»0«S12G)  ,0M5P<2G.2),VAR0<9) 

,TOL( 9 1 

,5 VAR( 1 G 1 

,UQC<2G) 

9 

6ENF 

43 

* A(  9, 9 ) ACONt  S > 

, BCONt  9 ) 

, COTK  9,  9 ) 

,OCON( 9 ) 

, DTP 

t 

GENF 

44. 

*DTS  ,DT 

,G 

,DPSQ 

> 

^05 

g 

GENF 

45. 

*R  ,RE 

.MACH 

,PA 

,R0 

,CS 

# 

GENF 

46. 

*VNU  .FAR 

, ROB 

,CSR 

,VNR 

,5U«50 

9 

GENF 

47 

♦ SVSO  ,TIMEPH 

.TIRES 

.TOP 

,TOS 

,TRl  9) 

GENF 

48 

.TSTI20)  ,TPH  C 20  ),DI  S(  20  ) 

, DIP( 20  ) 

,T 

9 

GENF 

49 

*TLP1(20)  , TLS1  ( 20  ),0I  Pit  20  ) 

DI S 1( 20  ) 

,TIHE 

,0«P 

* 

GENF 

50. 

•TirtPR  .LIFT 

, DR  AS 

.TAX 

,TBURN 

,TBU<  ZO) 

GENF 

51 

♦AE  ,FP 

FPOLD 

, FPD 

,MACHR 

,MACHV 

9 

GENF 

52. 

♦OR  ,0V 

, F VAC 

.LIFTY 

GENF 

53 

*LIFTR  ,LIFTA 

DRAGV 

.DRAGR 

, DRAGA 

GENF 

54. 

* LIFT* 

,D6R 

, DB 

,ISP 

, ISPF 

GENF 

55. 

♦ 

ULFT 

.ULFTV 

,ULFTR 

, ULFT  A 

9 

GENF 

56. 

♦xhcg  ,xmcgv 

, XMCGR 

.XMCGA 

,xmcgm 

, COOAE 

GENF 

57. 

♦CULFT  ,CT 

,CALPHA 

, COE 

,deltae 

,SIO 

9 

GENF 

58. 

♦ COO  51  DAE 

,XC6 

,ZCG 

,xj 

GENF 

59. 

COMMON  / 6tNF  / 

GENF 

60. 

♦XJV  . XJR 

,GH 

, GAflMAD 

,XKS 

,XXP 

6ENF 

61. 

♦FRATEO  , IRATED 

GENF 

62 

♦PI  ,P2 

>3 

,XK| 

,XK2 

, XX3 

GENF 

63 

*XK1T  ,XX2T 

, XK3T 

, XK10 

,XKZD 

, XK30 

GENF 

64 

*XK1A  ,XK2A 

,X<3A 

. XK1 V 

,XX2Y 

, XX3V 

9 

GENF 

65. 

*XK1G  , XK26 

, XX3G 

, XX  IP 

, XK2P 

, XX3P 

* 

GENF 

66. 

♦XK1R  XK2R 

, XK3R 

, XK10 

,XX2D 

, XX30 

GENF 

67 

*XK1U  ,X*2U 

,XK3U 

, XK1M 

,XK2H 

XX3M 

9 

GENF 

68. 

♦PV  ,PG 

.PP 

.PR 

,?Q 

,0PDY(3,8  1 

GENF 

69. 

REAL  LIFTR  , LIFT  . 

L1FTA,  LIFTfl  . 

MACH, 

MACHR, 

GENF 

70. 

♦ ISP.  ISPF.  machv.liftv  . irated  , 

FRAT 

71. 

DIMENSION  TPHK  101.TSTK  10  ) 

i 

GENF 

72 

E3UI  VALENCEdLPl.TPRl  MTLSl.TSTl  ) 

GENF 

73. 

COMMON  / XCQDES/ 

XCQOES 

74. 

♦ JTQ  ( 9 ) . ICOR  (2C1.ITI 

. 1 NTB 

,JSI  D(  20, 

2 ). JPH  (20.2). 

XCQDES 

75. 

* JST  (2G) 

, NCNST 

,NSB 

, NS  Aft 

, NI CNB 

9 

XCODES 
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76. 

*I20P  ,ICOP  ,IFAW  . 1 f Afi  , I FB 

.mo 

xcooes 

77. 

*IOPE«  ,1PH  ,I5FH  , I SST  ,IARC 

.ISTART 

XCODES 

78. 

•ITCT  .ITER  , I VAR  ,JK  ,JP5 

,JS 

XCOOES 

T9. 

*KQP  ,KFST  .K  ,KST  ,H AD 

,NCASE 

XCOOES 

80. 

»NCN  ,NEQB  ,NEO  , NOP  ,NPH 

.N 

XCODES 

81. 

»NST  , IPST  , I FR1 NT  ,ISTN  ,JPHN 

.1STNB 

XCODES 

82. 

* IPHNB  , I BLK1  ,1BLK2  fISTOP  rISTPP 

,L 

XCOOES 

83. 

*1F0B  ,NB  ,LB  ,MB  ,«PHP 

,NPHB 

XCODES 

89. 

•NCTI N ,NEQF  ,ILAB(  0 >,JPRP,JG1 1 ,MTT  ,«PIN(  20  ),  JP1, 

JP2, JP3 

XCODES 

85. 

CO nrtOM/ DATA/ 

DATA 

86. 

*P1  .RAD  .RDI  ,SC  . UMF 

,TMPF 

DATA 

87. 

*FTN«  .CAR  ,J0P1  , J0P2  . J0P3 

,J0P9 

DATA 

86. 

COMMON/ GLOBAL/ 

GLOBAL 

89. 

*Gfi  ,ER  ,QMSZ  , XLAMRF  , YMURF 

,LUM 

GLOBAL 

90. 

*, JJQP(  10 ) , I FATAL  .NAfiC  NBfiAN  NFARC 

,10(9) 

GLOBAL 

91. 

*,KTA8< 20  >, ITAB( 20)  ,SIG  .rtAXTAB 

GLOBAL 

92. 

*,GM  ,PS 1RF , 1 PFLGl . I PFLG2, 1PFLG3 , 1PFLS9.INEQFH  20) 

GLOBAL 

93. 

*, ITPSQ  ,KSOL  .KGIG&LC 8 ) 

RETAP 

99. 

COnnON/AFCDAT/ 

AR  CD  AT 

95. 

*SREF  ,EJ  , X 1 5P  , TMULT  ,OTNC 

. DTPI 

ARCDAT 

96. 

♦ iATrt  ,IMO0£  ,JAER  , JPRO  ,OMAX 

, GflAX 

ARCDAT 

97. 

*XLnAX  , HDMAX  , GM0QT  , ALF MAX  ,PHMAX 

, MAEA 

ARCDAT 

98. 

•rtAEfi  ,MAEC  ,M AEO  ,MAEE  ,MAEF 

, MAEG 

ARCDAT 

99. 

*MT  ,MISP  ,niXCG  ,flZCS  , MUIOA 

, MUDB 

ARCDAT 

100. 

♦ MDB  , XCGR  ,ZCGR  , XE  ,ZE 

,XT 

ARCDAT 

101. 

*DREF  .rtCND  .RHOB  .OMULT  , REflAX 

ARCDAT 

102. 

* ,FRAT£  . ARCD( 9 ) 

RETAP 

103. 

Dimension  arcda(90) 

ARCDAT 

109. 

EQUI VALENCEt SREF,ARCDA) 

ARCDAT 

105. 

DIMENSION  6NARR( 900 ). t AR GC 100 ) 

SDINP 

106. 

COMMON/ PARAIV 

PAR  AM 

107. 

♦ 1P0INT< 12 J.NPARA, NPA  , 5P AR At  9 , 1 2 > . UTPO  { 9 ) ,UTP  (12). 

PARAM 

108. 

•SPAR6C9.12)  . PARAt I2),0PARC 12)  ,S2INV(9,9> 

PAR  AM 

109. 

*,0ELP<9) 

PARAM 

no. 

EQUI VALENCE(TI«IT,JJOP( 1 >) 

SDINP 

111. 

EQUI VALENC E( BNARRl 301 ),TARG(  1 )) 

SDINP 

112 

EQUI VALENCE  ( T At. MNGA ) ( WTPI , NNGP  >,(  OLPI, MNSP<  20 ) ) 

RETAP 

113. 

DIMENSION  TAL<  90),UTPI<  9),0LPI(9> 

RETAP 

119. 

C 

COMN 

115. 

c 

I FLAGS  AND  COUNTERS  SET 

COMN 

116. 

10  CONTINUE 

SDINP 

117. 

NICNB=0 

SDINP 

118. 

NSAB=0 

SDINP 

119. 

NSB=0 

SDINP 

120. 

INTB=G 

SDINP 

121. 

NCNST-0 

SDINP 

122. 

K=  ITABC ] ) 

SOIKP 

123. 

ITI=0 

SDINP 

129. 

NPARA  -0 

SDINP 

125. 

NST=NARC 

SDINP 

126. 

I0P=O 

SDINP 

127. 

c 

COMN 

128. 

c 

I “A  IF  QL  ONLY  ( LUM-3 ) SKIP  5D  INPUT  (PC=5) 

COttN 

129. 

IF(  LUfl.  EO  .3  > GO  TO  19 

RETAP 

19  — 

130. 

c 

CGrtN 

131. 

c 

II  STEEPE5T  DESCENT  CONVERSANCE  AND  CONTROL 

DATA 

CO  MN 

132. 

MH=5 

RETAP 

133. 

CALL  TA6IN(  DUMMY  1 $T . 1 1 1 , AR.20G, ID.MN.O, IEOD ) 

RETAP 

139. 

LSTU5=LSTW0 

NOS 

135. 

IF( IEOD-EO-O)  GO  TO  11 

RETAP 

11  — 

136. 

UfiITE(6,700)  MN 

RETAP 

137. 

1 FATAL  =.TRUE. 

RETAP 

130. 

GO  TO  19 

RETAP 

139. 

c 

1 1 '■A  ** 

COMN 

190 

c 

CHECK  FOR  INPUT  CONSTRAINT  TOLERANCES  IN  ROUTINE  TOlPSl 

RETAP 

191. 

11  DUMMY  = SETTOL(TAL) 

RETAP 

192. 

c 

1 1 - B 

COMN 

193. 

c 

CHECK  AND  SET  PARAMETER  WEIGHTING 

RETAP 

199. 

12  DO  19  1-1,9 

RETAP 

195. 

IFtUTPH  I J.GT.O.  ) UTPO(  I )=UTPHI> 

RETAP 

196. 

IF(  OLPK  D.GT.O.  ) OELP(  I )=DLPI(  I > 

RETAP 

197. 

19  CONTINUE 

RETAP 

198. 

c 

COMN 

199. 

c 

III  BOUNDARY  CONDITION  TABLE  (CONSTRUCTED  IN 

BNORYC  > 

COMN 

20  GCT  72  6.01-96 


662 


ri 


150. 

151 

152 

153 

154 

155 

156 

157 

158 
154 
160. 
161. 
162 


168. 

169 

170. 

171 


172 

173 


174. 

175. 


176 

177. 


19  1 J =0 

CALL  READIES  ( 9.  BN  AH  R. 4 00. 21  ) 

WRITE!  6,20 

20  FORMAT!  1H1 , HCX, 36HFI RST-SCAN  INPUT  BOUNDARY  CONDITIONS  // ) 

II1-A  ERROR  IF  NQ  INITIAL  CONDITIONS  FOR  ARC  1 
IF!  K GT  C)  GO  TO  40 
IFATAL=  TRUE. 

WRITE  (6,30)  INPERfi 

30  FQRP1AT ( 2A10/  33H  NO  INITIAL  CONDITIONS  FOR  ARC  1 > 

GC  TO  150 

I1I-B  FIRST  ARC  INITIAL  CONOITIGN  SET-UP 


163  40  CONTINUE 

164  DO  140  1 = 1, K 

165.  IK  = BNARR<]J+2)  + 5 

166  II  = BNARRt 1J  + 1 )+  .5 

167  GO  TO  (50,60  70  60  80  70  70  70  90  60  60),  IK 


I F(  1 1 EO  4)  GO  TO  100 

JSTt  1 )-  2 

QHGl  1 1=  BNARRt  I J + 3 ) 

GO  TO  110 


60 


SVARt 1K)=  BNARRt IJ  + 3) 
GO  TO  110 


S VAR! I K )=  BNARRt I J+3 )*  ROI 
GO  TO  110 


SVARt IK>=  BNARRt I J*3)/GR 
GO  TO  110 


APB  72 

SOINP 

SOI  NP 

SDINP 

COrtN 

CORN 

SOINP 

SOINP 

SDINP 

SOINP 

SOINP 

coon 

COHN 


40- 


1 150- 


SDINP 

SDINP 

SDINP 

SDINP 

5DINP 


50— ,60-»  7 


SDINP 

SOINP 

SDINP 

SDINP 


100-1 


SOINP 

SOINP 


SOINP 

5DINP 


5 01  NP 
SOINP 


110- 

110- 

110- 


178 

179 


180 


199 

200 


201 

202 


203. 

204. 

205 

206 

207 

208 
209. 
210 
211. 
212 
213. 

214 

215 


216 

217 


90 


SVARt 1 ) = BNARRt 1J+3  > 

GO  TO  no 


100  J$T( 1 )=  999 


181  110  IJ=  I J+3 

182.  C III-C  TEST  FOR  OPTIHIZEO  INITIAL  STATE  AND  IF  SO 

183  C SET  PARAHETER  FLAGS 

184.  IF(  II.NE.2)  GO  TO  140 

185.  WR ITEt  6, 1 3G  > LABELt IK) 

186.  NPAfiA  = NP AR A 4-1 

187  IF! IK  EO  1)  GO  TO  120 

188.  IPOI  NT!  NPARA)-  20  -*  I K 

189  UTPt  NPARA  )-UTPD<  IK) 

190  GO  TO  140 


191  120  IPOINTt NPARA)  = 1 

192.  UTPt NPARA)  = UTPOt 1 ) 

193  130  FORHATt 1CX,  8HINITIAL  A9,16H  TO  BE  OPTIMIZED) 


194  140  CONTINUE 

195.  C III -D 

196  C TEST  FOR  REFERENCE  POSITIONS 

197.  IFt ABSt PSIRF)  GT  0 ) GO  TO  141 

198  IFtSIGNtl  , PSIRF)  LT  0 ) PS1RF=SVAR( 6 >*RAD 


IFt  ABSt  XLAflRF ) GT  0 ) GO  TO  142 

IFtSIGNtl  , XLAP1RF  ) LT  0 ) XLAriftF  =SVAR(7)*RAD 


142 


IFt  ABS(VflURF)  GT  0 ) GO  TO  143 
1 Ft  S I SNt  1 . , YFlUfiF  ) LT  0 ) YP1URF=SVAR(  8)»flAP 


143 


CONTINUE 

OHEGA=OHGZ 

0rtEGA2=0rtGZ*0«GI 

III-E  WRITE  OUT  STATE  ICS  AND  IF  APPLICABLE 
ARC-TIHE  CUT-OFF 

JJJ  = 1 
Kfll=K— 1 

USITEt  6, 970  )t  ( LABELt  I ), SVARt  I >>,I*l,KPtl  ) 

I Ft  JSTt  1 ).  EQ  2)  UR  I TEt  6,  980  ) 1 , LABELt  1 ),  QHBt  1 ) 


IV 


FIRST  ARC  TARGETS 


150 


I K“0 

IFtJtTABt  1 ).E0  0)  GO  TO  230 


SDINP 

SOINP 


1 1 10*— 1 


SOINP 


SDINP 

conN 

COHN 

SOINP 

SDINP 

SDINP 

SOINP 

SOINP 

SOINP 

SDINP 


140- 


1140H 


SDINP 

SDINP 

SOINP 


SDINP 
COHN 
P014 
P014 
PO 1 4 


141 


PO  1 4 
PO  1 4 


3 


PO  1 4 
PO  1 4 


Ttt3 


1 


1 


P014 

PO  14 

PO  1 4 

COHN 

COHN 

COHN 

SOINP 

SOINP 

SDINP 

SDINP 

SDINP 

COHN 

COHN 


SDINP 

SOINP 


1230- 
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6G3 


^99 


IV-A  IF  NO  TARGETS  50  TO  NEXT  ARC 
MN=KTAB( 1 ) 

00  220  1=1, MN 

IV-B  UNPACK  OPTION  CODE,  LC  ANO  VARIABLE  COOE,ilV 
LQ  = I C00< T AfiG< 1K+1  ) ) 

LV=  I VO  D(  T AR  S(  U + l )) 

ILV  = lABSt  LV  > 

LC=I ABS(  LO ) 

IV-C  TEST  FOR  COT-OFF  CODE  < LC*1 > 

IF<  LC.NE.l > GO  TO  170 

ERROR  IF  ARC-TIME  CUT-OFF  ALREADV  SET 
IF( JST ( 1)  NE.999  )S0  TO  1 1 10 
JSTt 1 )=  MQMG( LV> 

IV-D  SET  INTERNAL  CUT-OFF  CODE  (ERROR  IF  INVALID  CODE) 
ALSO  SET  VALUE  OF  CUT-OFF 
IF( JST( 1)  £Q  99)  GO  TO  210 
0 »1S(1)=  SQMSULV,TAR6(  IK  + 2)) 


160  IlUIK+2 

ILK=L0MGC JST(  1 )> 

C I V-E  PRINT  STOPPING  CONDITION 

WRITE  ( 6,980)  J J J , LABL2(  ILK)OnG(l) 

GO  TO  220 


170  CONTINUE 

I V-F  NOT  A CUT-OFF  .IF  WARC  ST  1 HUST  BE  AN  INTERMEDIATE 
CONSTRAINT  GO  TO  I V-K 
IF( NS  NE  1)  GO  TO  200 
THIS  IS  3 NLV  A ONE  ARC  PROBLEM 

SET  INTERNAL  CONSTRAINT  CODES  AND  VALUES 
AND  COUNT  NO  OF  CONSTRAINTS. 

I Ft LC  EQ  2)  GO  TO  190 

NCN5T  =NCNST  +1 

180  ITQ<  NCNST  )=  MPSH  ILV) 

ITQI  = ITfl(NCNST) 

IF( ITQI  Ea.99  > SO  TO  210 
VARQ(NCNST)=  SPSK  ILV  ,TARS(IK+2>) 

TOL(NCNST)  = TOLPSI(ILV) 

I F ( ITQI .G£  10  ) I TQ 1 = I TDI -1 

WR1TE(  6,99  0 J JJ  LABL2(  ITQI  ),VARO(  NCNST  ),TOL(  NCNST) 

IK=I K +2 

SO  TO  220 

190  CONTINUE 

IV-  G ERROR  IF  MULTIPLY  DEF’NED  PAYOFF, EL5E 

SET  PAYOFF  VALUES  AND  CODES  AS  HELL  AS 
IF< I OP . NE  0 ) GO  TO  1090 

iop  = iipsn  ilv) 

1F<  IOP. ED  99  >G0  TO  210 
51 6=1S1 GN(  1 , LQ  > 

VALOP=  SPSK  ILV,  TARS<  I K+Z  ) ) 

1K=I K+2 
GO  TO  220 
**  IV-H 

A BRANCHING  OR  INTERMEDIATE  CONSTRAINT  PROBLEM 

200  CONTINUE 

NCNST=NCNST+1 
INTB  “1 
NSB  =1 

NICNB  =NI CNB  4l 
GO  TO  180 

IV  - I ERROR  FLAG  SET 

210  IFATAL=. TRUE. 

IX=I K+2 


COMN 

SDINP 

SDINP 

COMN 

SDINP 

SOI  NP 

SDINP 

SOI  NP 

COMN 

SDINP  170- 


SOINP 

COMN 

COMN 

SDINP  2GG- 

SOINP 

COMN 

COMN 

SO  I NP  190- 


SIG  (+nAX,-niN 


ERROR  FLAG  SET 


50 1 NP 

COMN 

COMN 

SDINP 

SDINP 

SDINP 

SDINP  ; 10 

SDINP 

SDINP 

SDINP 

COMN 

SDINP 

SDINP 

SDINP 

SDINP 

SDINP 

SDINP 

SDINP  180- 


220  CONTINUE 

I FINS  EO  l)  60  TO  510 
C MORE  THAN  ONE  ARC 

C BWPRY  CONDITIONS  FOR 

230  CONTINUE 

C V INITIAL 

00  500  1=2, NS 
K=I T AB(  I > 

MN=KTAB( I ) 

I FC K.GT  0)  GO  TO  290 


REMAINING  ARCS 


CONDITIONS  FOR  REMAINING 


SDINP 

COMN 

SDINP 

SDINP 

SDINP 

SDINP  2H0- 
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£99 


V-A 

SO  10  1110 


ERROR  IF  NONE  ( ARC  TINE  CODE  MUST  AT  LEAST  BE  DEFINED) 


5ET  PARAMETER  DATA  AND  PRINT 


NO,  60  TO  V-  R 


END  00  AGO  1=1, * 

C V-B  SET  VARIABLE  AND  OPTION  CODES 

I VD=  BNARFI  I J *2  ) + 5 
ICO=  BNARRI I J + l ) ♦ 5 

C IGNORE  CONTINUITY  COOE  SETS 

1F< ICO  EO.G)  GO  TO  330 
C V-C  NOT  ARC-TIME  CODE  GO  TO  V-H 

IF< IVD  NE  1 ) SO  TO  270 
C V-D  ARC  TIME  UNKNOWN  GO  TO  V-6 

I Ft  I CD. EQ  A ) GO  TO  260 

C V-E  SET  ARC-CUT-OFF  TIME  AND  PRINT  STOPPING  CONDITION 

jsm  > =2 

OPIGt  I )=  BNARRI  I J+3  ) 

WRITEt  6 , 98G  ) I,  LABELt  1 ),OMG(  I > 

C V-F  IF  ARC-TIME  0PTIMI2ED  SET  PARAMETER  DATA  AND  PRI N 

I Ft  I CD  NE.2)  GO  TO  330 
WRITEt  6,250 ) 

NPARA  = NPARA  *1 
I POI  NTt  NP AA A )=  I 
UTPt  NPARA  >=  WTPDtl) 

250  FORMAT!  1DX.31HTHIS  ARC  TIME  WILL  BE  OPTIMIZED) 

GO  TO  330 

C V-S  SET  FLAG  TO  INDICATE  CUT-OFF  IS  A TARGET 

260  JSTt  1 >=999 
GO  TO  390 

C V-H  INITIAL  CONDITION  OTHER  THAN  ARC  TIME 

c TEST  FOR  BRANCH  INDICATOR  ,VES  SO  TO  V 1 -0 

270  IFt ICO.GT  10)  GO  TO  350 

C V-I  TEST  FOR  WEIGHT  COOE  NO,  BO  TO  V-  R 

IF{ I VO . NE . 5 ) GO  TO  320 

C V-J  IF  BRANCHING  AND  AT  FIRST  ARC  OF  BRANCH  2 GO  TO  VI-B 

IFtIVTB  ED  2 AND  I EO  NSB+NSAB+1)  SO  TO  330 
C V-K  IF  D1SC0NT  CODE  t =5 ) GO  TO  V-C 

IF< ICO  EO  5)  GQ  TO  290 
C V-L  IF  tUTOROP)  COOE  GO  TO  V-P 

IFt ICO  EO  6)  SO  TO  295 

C V-N  IF  PREVIOUS  ARC  DIO  NOT  CUT-OFF  ON  WEIGHT  GO  TO  V-Q 

IFt lABSt JSTt  1-1  ) ) NE  6)  GO  TO  300 
C V-N  COMFOTE  WEIGHT  DROPPED  AND  PRINT 

UOCtl-l)=  OflS(I-l)«SR  - BNARRC  IJ*3  > 

280  WRITEt  6,  1000)  I,  WDCtI-!) 

SO  TO  390 

290  WDCt [-1 )=  BNARRf IJ+3 ) 

C V-O  SET  WEIGHT  DROPPED  TO  INPUT  VALUE  AND  PRINT 

GO  TO  2B0 

C V-P  i* 

C QPTIHAL  STAGING  WT  DROP 

295  WDC(I-l)  = -39999999. 

Inl=I-l 

WRITE(6,10C5)  I Ml 

1005  FORMAT  t // , 3X,  2] HWEI SHT  DROPPED  IN  ARC,I3,30H  CALCULATED  IN  SUBR 
»IUTDRP)  1 
GO  TO  390 

C V-D  WEIGHT  INITIALIZATION  AND  PRINT 

300  WDCt  1-1  )=-BNARfil  IJ  + 3) 

301  CONTINUE 
WO=-WDC( 1-1 ) 

WRITEt  6,310)  I , WO 

310  FORMAT!// 

13X  33HKN0WN  WEIGHT  AT  BEGINNING  OF  ARC  13, 2H  =E17.8,5H  LBS  ) 

SO  TO  390 


NON-  WEIGHT  ICS 

IF  KNOWN  CODE  OK  OTHERWISE  ERROR 
IF  BRANCH  2 GO  TO  VI-C 
IF  PRIOR  CUT-OFF  AND  IC  NOT  COMP 


VI-C 

IC  NOT  COMPATIBLE  - ERROR 


320  IFt ICO  NE  1)  GO  TD  1070 
C TEST  FOR  PRIOR  STAGING 

IFtINTB  EO  2 ANO  I EO  NSB+NSABH  ) GO  TO  3N0 
IFtMOMGtIVO)  NE.IABSt JSTt 1-1  ))>  GO  TO  1060 
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65? 


666 


GO  TO  390 

VI  BRANCH  LOGIC 

Vl-A  fcJT  DROP  ,C0NTINUITV,  OR  SUfl  OF  PARTS 

330  IFI ICO  NE  5 > GO  TO  332 

1F( IABSC JST< NSB>>  NE  6)  SO  TO  290 
UOCU-1  ) =-(  OnGl N5B)-BNARR( IJ  + 3>) 

SO  TO  301 

332  1F( ICO  EQ  1 ) 60  TO  300 
IHICD.NE  7)  GO  TO  1090 

ASSUMES  UT  S sun  OF  PARTS 
UDCU-1  )=0 
GO  TO  390 

VI-C IF  PRIOR  ARC  CUT  OFF  NOT  HEIGHT  - ERROR 

390  IF< I VO  NE  I ABS( J5T ( MSB  ) ) ) GO  TO  1QB0 
GO  TO  390 

VI-D  ICO  TOO  LARGE  -ERROR  ELSE  SET  BRANCHING  fU 
AND  KEEP  COUfv  OF  NUMBER  OF  CONSTRAINTS  AT 
TERMINUS  OF  FIRST  BRANCH . 

350  I F ( ICO  GT  29)  GO  TO  1090 
LBP  = I CD  -10 
IFdNTB  EQ  1)  SO  TO  360 

I F(  NSB  NE  0)  GO  TO  370 

360  NSB  = LBP 

I Ft N5B  GT  1-1  ) SO  TO  1090 
INTB  =2 

NS AB  a I-  NS B -1 
NICNB  =NCNST 

IdRlTEt 6.1010)  NSB.NSAB. NICNB 

GO  TO  390 

370  IF<  LBP  EO .MSB  )G0  TO  390 

GO  TO  1090 

380  IFATALa  TRUE 

390  IJ=IJ+3 
900  CONTINUE 


VII  TARGETS  SCAN 

CHECK  FOR  NO  CUT-OFF  -ERROR  , ELSE  GO  TO  VIII 
910  JF<  PIN  GT  0 > GO  TO  920 

IF(J5T(I)  £0.999  ) GO  TO  1100 

GO  TO  500 

920  00  990  LSI,  AN 

VI I-A  UNPACK  TARGET  CODES 
LQ=  I COD( TAR  G(  I K+l ) ) 

LV“  IVOD(TARG( IK+l >> 

LC=I ABSC LQ > 

ILV=  IABS(LV) 

VII-B  IF  NCT-CUT-OFF  CODE  60  TO  VII-E 
I F(  LC  NE  1)  GO  TO  930 

VII-C  IF  CUT-OFF  MULTIPLY  DEFINED  -ERROR 
I F( JST ( I ) NE  999  ) GO  TO  1110 

VII-D  SET  INTERNAL  CUT-OFF  CODE  , CHECK  VALIDITY  AND 
PRINT  STOPPING  CONDITION 
J5T( 1 1=  nonet  lv } 

IF( JST ( I ) EQ  99}  GO  TO  970 
OMGtl >=  SOMGt JLV,TARG(IK+2>>  - 
ILK=LOMG( JSTt I )) 

URITEt  6,980  ) I , LABL2( ILK ),OAG(  I ) 

GO  TO  980 

VII-E  LAST  ARC  TEST  IF  NOT  GO  TO  V1I-H 

930  I F ( NS  NE  I)  GO  TO  950 

VII-F  PAVOFF  TEST  VES  GC  TO  VII-I 

IF(LC  £0  2)  GO  TO  980 
VI I-G 

LAST  STAGE  OF  PROBLEM  TERMINAL  CONSTRAINTS 

NCNST  = NCNST  *1 

990  ITQ(  NCNST  )=  MPSKILV) 

ITQI  = ITQ(NCNST) 

I F( ITQI  EQ  4 99  ) GO  TO  970 


20  OCT  72  G,,01-96 


L 99 


i'lzf 
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H30 

431 

H32 

433 

434 

435 

436 

C 

C 

VAfiQ(WCNST>=  SPSK  ILV  ,TARG(lK+2)> 

TOL(NCNST)  = TOLPSIt  1LV> 

IF(  STOI.GE.LO>  ITQ1=  IT01-1 

WRITE!  6,990)  I . LABL2C  I T Q 1 ), VARQ( NCNST ),TOL(  NCNST ) 
80  TO  480 
VII-H 

BRANCHING  OR  I NT  CONSTRAINT  PROBLEM 

SDINP 

501 NP 

SDINP 

SDINP 

SDINP 

COHN 

SDINP 

437 

450 

CONTINUE 

SOI  NP 

438. 

NCNST=NCNST+1 

SDINP 

439 

N1CNB  =NICN8+1 

SDINP 

440 

INT&  =1 

SOINP 

441  - 

MSB  - 1 

SDINP 

442. 

GO  TO  440 

SDINP 

443 

c 

VI I -I  PAYOFF  DEFINITION 

COHN 

444 

c 

TEST  FOR  MULTIPLE  PAYOFF  - 

ERROR 

COHN 

445 

460 

IFCIQP.HE  01  GO  TO  1050 

SOINP 

446 

c 

VII-J  SET  TEMP  PAYOFF  CODE  CHECK 

VALI DITV 

COHN 

447. 

c 

AND  CALC.  SIG  (♦MAX ,-fllN) 

COHN 

448. 

IOP  = MPSH  ILV  ) 

SOINP 

449 

IFtlOP  EO. 99 ) GO  TO  470 

SDINP 

450 

VALOP  = SPSK  I LV,  T AfiGC  1 K+2>  > 

SDINP 

451 

SIS=IS1SN(  1,L0> 

SOINP 

452 

GOTO  480 

SDINP 

453 

470 

I F A T A L=  TRUE 

SDINP 

454 

480 

IK=IK+2 

SDINP 

455 

490 

CONTINUE 

501  NP 

456 

500 

CONTINUE 

SOINP 

457 

c 

VIJ-K  SET  INTERNAL  PAYOFF 

COOES  AND 

PRINT 

COHN 

458 

510 

ITfl< NCNST+1  ) = SOP 

SDINP 

459. 

VA&Q!  NCNST+l  )=  VALOP 

SOINP 

460. 

KIK  =.5*SIG  + 2. 

SDINP 

461. 

IF( IOP  6E  10)  IOP=  10P-1 

SOINP 

4 62. 

WRITE!  6.  1020 ) NS.IABL2( IOP  >. LABL3I  AIK ). VALOP 

SOINP 

463 

520 

CONTINUE 

SDINP 

464 

c 

VI II  SET  Q-L  BRANCHING  FLAGS  IF  ( Ulfl  N£  0 > 

COHN 

465 

c 

IF  LUM  =0  SKIP  SAVE  SOLUTION  FILE 

COHN 

466 

TIKIT=$VAR( 1 ) 

SDINP 

467  . 

IFCLUM  EQ  0)  GO  TO  570 

SDINP 

468. 

N&R AN=NSB 

SOINP 

469 

NF4R C-N5B+W5 A& 

SDINP 

470 

IFCNSR  EQ  0)  HP ARC-W ARC 

SOINP 

471. 

GO  T0( 530,550,560 >,UW 

SDINP 

472 

530 

REWIND  11 

SOINP 

473 

IJ-  OEVTYPC  U > 

SOINP 

474 

IFl IJ. E0.32>60  TO  570 

SDINP 

475 

WRITE! 6,540) 

SDINP 

476 

540 

FORMAT!  / /,  UH  *»"»*UARNI  N G* **»//,  29H 

TAPE  11  HAS  NOT  BEEN  MOUNTED  > 

SDINP 

477 

GO  TO  570 

SDINP 

478. 

550 

CONTINUE 

SDINP 

479 

GO  TO  570 

SDINP 

480. 

560 

IF( IFATAL)  GO  TO  890 

SOINP 

481. 

RETURN 

SDINP 

482 

510 

CONTINUE 

SOINP 

483 

WRITE! 6,580) 

SDINP 

464. 

580 

FORMATS  ini > 

SDINP 

485. 

c 

IX 

COHN 

486. 

c 

SOLUTION  GUIDANCE  PHASING  EDIT 

SDINP 

487  . 

WRITE! 6,900) 

SDINP 

488 

c 

IX-A  *• 

COHN 

489 

c 

ARC  DATA  SCAN 

SDINP 

490 

550 

CONTINUE 

SDINP 

491 

L-0 

501  NP 

492 

c 

IX-&  CONVERT  INPUT  CONTROL 

MODES  TO 

INTERNAL  COOES 

COHN 

493 

00  600  1=1. NS 

SDINP 

494 

CALL  READrtS(5,ARCBA,20,I> 

SOINP 

495 

IF(  IRODE  .GT.  5 > 60  TO  950 

SDINP 

496. 

IFt  inODE  . LT  . 3 ) 60  TO  650 

SDINP 

497. 

L=L.l 

SDINP 

498 

K=I«ODE  - Z 

SDINP 

499 

GO  TO  <600,620,630),* 

SDINP 

4 40- 


11050- 


j 4 7 C — 1 


480- 


5 70- 


530 — 1 550  — 1 5 & 0 — | 


570- 

570- 

570- 


1850- 


550- 

640- 


600—1 


620— > 630— i 


1 


6«8 


600  JS1D<L,2)  - 8 

610  JPHC  L,2>  = JSTt  1 ) 

0*GP(L,2>  = OH  5(  1 > 

SO  TO  680 

620  JSID<L,2)=  7 

SO  TQ  610 

630  JG1D(L,2>=  6 

60  TO  610 

640  CONTINUE 
650  JG=10  ♦inaOE 
C IS  THIS  THE  LAST  ARC 
660  im  EQ.NS)  60  TO  670 
C IS  THIS  THE  BRANCHPT  ARC 
IFU.EQ.NSB)  GO  TO  670 
IF< I .ES.NS&+NSAB > GO  TO  670 
CALL  FEAD«S< 9,SRIF,20  I+l> 


IFt I CODE 
GO  TO  680 


CNE.inOO^  ) 60  TO  670 


670  L=L+i 

JSID(L.21  =JG 
JPHtL,2>  = JST(I) 

oi4SP<  l,  2 >=  ans(  i ) 

680  CONTINUE  " ’ ~ 

700  F0R*AT<3CH  INPUT  ERROR  IN  FART-CASE  ,131 
740  ufi  J TE( 6, 9 10  > <(  I , JGI D( ] .2  ), JPHl  I #2 >,  Ort6Pt 1 ,2 >> 9 1 = 1, L ) 
WRITE*  6 1030  ) 

nM>t| 

C * STfiRTI NG  SOLUTION  LOGIC 

C IF  STARTING  SOLUTION  ON  FILE  CO  TO  X-A 

C ELSE  READ  IN  DATA  AND  GO  TQ  X-B 

IFdTPSO.NE.  0 ) GO  TO  INI 

IFOCSOL.NE  0>  DO  TO  TNI 

CALL  TA8IN  <DUnfW,l,RUrtNY,l,6lIC,N00  ,ID,NN,0,IE0D> 

1F( IEOD.EO  0 )G0  TO  T50 
C X'A  *» 

C STARTING  SOLUTION  ON  FILE  II 

C X-9  SET  STARTING  SUIDANCC  CODES  - TO  SOLUTION  CODES 

INI  DO  IN5  1=1. L 

JPH(I,1>  = JPH(I.Z) 

JGI D(  I , i )=  JGIO(I,Z> 

GrtGPt  I I >ss  OriGPC  I, 21 
HNGA(I,1J=  rtNGA(I.Z) 

ANSPt 1,1 >=  MNSPC  1,2  > 

7 NS  CONTINUE 
NPH=L 
AS  0 L =1 
REMIND  11 

C X-C  READ  FIRST  RECORD  ON  II  AND  CHECK  EOF  IF  EOF  EHROR 
READ!  ll)AAAA,NNNN,NNNN,(DISl<  I 1,1  = 1,  NS  T ),(QIPl(  J),J  = 1,L> 

♦ ,t  TSTlt  II  1,  1 1 = 1, NS  l.tTPHlt  1J  >,IJ=l,t» 

IFIDIPK  1 l.GT.O.  ) SO  TO  70N5 

X =1 

00  TONI  1=1, NS 
TSTICI*1)=  OISKD 

1F(  GrtSC  I >.NE.OHGP(  K,  2 > ) GO  TO  70N1 
01PHXI  = DISK  1 > 

TPHll  X+1 1=  DIP  1(  X) 

X=X+1 

I0N1  CONTINUE 

TPHltll  = SYARC1) 

_ TSTlt 1 1 = SVARt 1 > 

7 0N5  CONTINUE 

IFtEOF.lI  > 7N2.791 

INZ  I FATAL  =.TRUE. 

NRI TE<  6 7N3 I INPERR 

7N3  FDRNAT  ( 2 AID  /67H  STARTING  SOLUTION,  FILE  11  , IS  NOT 

* for  this  case  > 

GO  TO  DID 
C X-D  »» 

C STARTING  NOMINAL  GUIDANCE  INPUT  STORED  IN  GUIC 


Zfi  OCT  72  G.01-N6 


630' 


G is  't 


<Ti 

& 

t£> 


570 

75C 

HPH-0 

SOINP 

571 

m~2 

SDINP 

572 

C 

X“E  UNPACK  COOES  FRDR  STARTING  NGMNAl  INPUT 

conn 

573 

C 

AND  CONVERT  TO  INTERNAL  CODES 

conn 

574 

DO  780  1=1,20 

SOINP 

575 

IFIMN+l  ST  LSTUD1  GO  TO  790 

SOINP 

790 

57b 

IPH=  SillCl  rtN+1  )*\ .E-6  + 1 

SOINP 

577. 

!PH«1.E6 

SDINP 

578 

f=  suicuiN*n  -s 

SDINP 

579 

I ARC  = F*l.£-3  +.1 

SOINP 

500 

6=  1ARC*1.£3 

SOINP 

581 

F=  F-G 

SOINP 

502. 

JG=F  i.l 

SOINP 

503 

I Cl-  $UIC(flM+2)*l  E-6  +.1 

SOINP 

584. 

G=ICUl  E6 

SDINP 

585 

F~  6UI C( rtN+2 ) - B 

SDINP 

586 

IC2  = F ♦ 1 

SDINP 

5 87 

1F< IARC  ED. 01  GO  TO  760 

SOINP 

760 

586 

SOINP 

589 

JPH(  I PH,  1 ) = JST(  IARC) 

SOINP 

590 

0*GP< 1PH.1 ) =0«G< IARC) 

SOI  NP 

591 

SO  TO  770 

SOI  NP 

770— j 

592 

760 

JP=GUIC< MN*3)  +SIGNI  1,GU1C(NN+3)1 

SDINP 

593 

jpm  i p h , l ) =noMs<  jp  > 

SDINP 

594 

anGP(  i p h, l )=sonsi  iabsi  jp  »,6Uici  pin**i  >1 

SDINP 

595 

flN=flN+4 

SDINP 

596 

770 

JGI  DC  I PH.  1 )=JG 

SOINP 

597  . 

fINGAl  I PH,  1 )~ I C 1 

SOINP 

598 

MNGP( IPH.l )=IC2 

$0]  NP 

599 

NP  H = NPH+ 1 

SDINP 

600 

780 

CONTINUE 

SOINP 

601 

79G 

CONTINUE 

SOINP 

602 

C 

X-F  **  PHASE  SEQUENCING  ARRAY 

CONN 

603. 

C SCAN  Non  AND  SOLUTION  GUIDANCE  TO  CALC  1C0R 

SDINP 

604 

791 

L=1 

APR72 

605 

DO  800  1=1, NPH 

SOINP 

606 

IF( JPH( 1 , 1 ) NE  JPH(  l,  2 ) ) GO  TO  800 

SDINP 

800—1 

607 

IF<  OrtGP( 1,11  NE  OMCP* L,2  ))  60  TO  800 

SOINP 

800  — 

608 

ICORIL)  = I 

SDINP 

609 

L=L+1 

SOINP 

610 

800 

CONTINUE 

SOINP 

611 

NRITEI  6, 9101  ((  I,JGIDU,n,JPH(I,l),0l9GP(I,l)>,I  = l.NPHl 

SOINP 

612 

CALL  I PR( 9M I COR  A, 1 COR . 1 0. 1 1 

SOINP 

613 

c 

XI  STEEPEST  DESCENT  CONNER  GANCE  DATA  INTERPRETATION 

COMN 

RET  AP 

615  DO  890  1=23,31  SDINP 

616  850  1ST* I )=ST< I ) SDlNP 

617  URITE(6,8S0>  OPAY,  PM  N,  NITER,  WORK  5DINP 

618  850  FORMAT!  //29H  STEEPEST  DESCENT  INPUT/.35H  INITIAL  PAYOFF  IMPROVEM  SDINP 

619  1 ENT  , OP  AY-E15  6, 39H  M NI  MUM  P AYOFF  1 MP  RO VEMENT,  PM  9=E  1 5 6/  SDINP 

620  227H  MAXIMUM  I TER  ATI  DNS,  NI  TEfi=J37  12H  WORK  ARRAY/C6E15  6)1  SDINP 

621.  N=0  SDINP 

622.  J=I I IC 1 > SDINP 

623.  1F(  J . 6T.21 ) 80  TO  820  SDINP 

628  C XI-A  DETERMINE  FIRST  AND  LAST  ARGUMENT  LOCATION  CGnN 

625  C IN  CONTROL  HI5T0RV  TA8LE  FOR  USE  IN  INTERPOLATION  CORN 

626  C ROUTINE  ( TBLK 1 COMN 

627.  DO  870  1=2, J SDINP 

628  K=I-1  SDINP 

629  IF<  1 1 Ii  1 >.EQ  01  SO  TO  870  SDINP 

630  i adi  x > = mm  + j son* 

631  ISVIK1  = I ADI  X ) SDINP 

632  1FIN.E0.0)  DO  TO  860  SDINP 

633. 1NPI N 1=  1A0I X 1-2  SDINP 


639. 

H635. 


860  N=K 


SDINP 


670  CONTINUE 
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636 

820  CONTINUE 

637 

INP(  N)=LSTW5+J-2 

638 

CALL  IPR( 4HIAD  ,i 

639 

CALL  IPRtNHINP  ,, 

1-46 

SOINP 


APR72 

NOS 

SDINP 

SDINP 


870 

860 


3 


670 


64D. 

IF! IFATAL)  SO  TO  890 

SOINP 

641. 

C 

XII  SET  NO  OF  EQUATIONS  TO  BE  INTEGRATED 

COMN 

642 

c 

AND  CALCULATE  NO  OF  WORDS  TO  BE  STORED  IN 

CONN 

643. 

c 

TRAJECTORY  AND  ADJOINT  BUFFERS 

COM* 

644. 

!EQ=3 

SDINP 

645. 

NEQ“  a 

SDINP 

646. 

NPTA  = HEfl+5 

SDI  NP 

647. 

8 60 

MXAr(MlXA  / NPTA)*  NPTA 

SDINP 

648. 

NPTB  = NEQ*( NCNST  + 1 ) ♦ <1 EQ-1  )*!  NCNST  + 1)  ♦ < NCNST+1)*! NCNST+2 >/2 

SOI  NP 

649. 

MX0  = ! fllXB/NPTB)  * NPTB 

SDINP 

65D 

NEQF=N£0 

SOINP 

651 

IF(  WORK!  1O.EQ.0.  ) WQfiK!lO)=l 

SDINP 

652 

RETURN 

SDINP 

653.  890  WRITE! 6,940 ) SOINP 

654.  RETURN  SDI  NP 

655  900  F0RMAT!2C( 1 H* >, 31HS0LUT ION  TRAJ  ECTORY  PHASE  I NPUT.2G! IH#  >// ) SDINP 

656  910  FORMAT ( / 4H  ARCI3,14H  CONTROL  OPT . = 1 3,  I1H.ST0P  OPT.  = 13.  4H  AT  E17.  SOINP 

657.  18  3 SOINP 

658.  920  FORMAT!  2A10/,  5H  ARCI3,15H  CONTROL  MODE  =13 . 1 IH  IS  ILLEGAL)  SOUP 

659  930  FORMAT!  2A10/,50H  BAD  COMBINATION  OF  INEQUALITY  CONSTRAINTS  IN  AP  SOJNP 

660.  ICJ3 ) SDINP 

661  940  FORMAT ( // , 72H  INPUT  ERRORS  HAVE  BEEN  DETECTEO  EXECUTION  OF  PROBL  SDINP 

662.  1EM  WILL  BE  ABORTED  ) SOINP 

663.  C SDINP 


664  950  WRITE! 6,920)  I NPERR, I , I MODE  SDINP 

665  IFATAL  =.TRUE.  SDINP 

666.  GO  TO  670  SDINP 

667.  C SDINP 

66B  960  WRITE!  6,930)  INPERR, I SDINP 

669.  IFATAL  = TRUE  SOINP 

670  GO  TO  670  SDINP 

671  970  FORMAT!  3X, 29HTRAJECTQRY  INITIAL  CONDITIONS/  ( 4!  Al  0,E1 7. 8 ) ) SOINP 

672.  980  FORMAT! // , 3X, 4 7HS0LUT ION  TRAJECTOPY  STOPPING  CONDITION  FOR  ARC  12,  SOINP 

673.  1 4H  AT  A1  6 2H  = E17.8  ) ' SDINP 

674.  990  FORMAT!  >/,3X19H CONSTRAINT  FOR  ARC  I2.A10.2H  -E17  8,  5H  +0R-E17  8)  SDINP 

675  1000  FORMAT! //,3X#33HUEIGhI  DISCONTINUITY  BEFORE  ARC  12.  2H  =E17  8,  6 SDINP 

676.  1H  POUNDS.)  SDINP 

677  1010  FORflAT! //,3X, 2 6H BRANCH  POINT  AT  END  OF  ARCI3.24H.  FIRST  BRANCH  COM  SDINP 

678  1PRISESI3.  14H  ARCS,  AND  HASI2,22H  TER (II NAL  CONSTRAINTS.)  SDINP 

679  1020  FORMAT!  //, 3X,  1 4HTR AJECTOfi Y RASI3,6H  ARCS ./ , 3XA10, 1 CH  IS  TO  BE  , SDINP 

680  1 A 1 0 , 36H  OPTIONAL  GUESSED  VALUE  OF  PAYOFF  =E17  8 /)  SOINP 

681  1030  F0firtAT!20(  1 H* >, 36HFI RST  NOMINAL  TRAJECTORY  PHASE  INPUT. 20C IH* >// > SDINP 

682.  C PAYOFF  MULTIPLY  DEFINED  SDINP 


683.  1040  1=1 


692 

693 

694 


69B. 

699. 

700. 
701 
702. 
703 

704. 

705. 

706. 

707. 

708. 

709. 

710. 


SDINP 


684  1050  JOP=MPSJ< ILV)  SOINP 

685  TALOP=  SPSH  ILV.TARG!  IK+2)>  SOINP 

686.  WRITE! 6.1120)  I NPERR, 10P, VALOP , JOP,TALOP  SDINP 

687  IF< 1-1 1210,210, 470  50INP 

688.  C WEIGHT  DISCONTINUITY  ERROR  SOINP 

689.  1060  WRITE!  6,1 130 ) I NPERR, I SOINP 

690  6D  TO  360  SOINP 

691  C INITIAL  CONO  CODE  INCONSISTENT  WITH  PRIOR  STOPPING  VARIABLE  SDINP 


1070  WRITE! 6,1140)  INPERR, I , I VD, I CD 
GO  TO  380 

BRANCH  PROBLEM  AS  903 


SOINP 

SDINP 

SDINP 


695.  1080  WRITE! 6.1150)  I NPERR . NSB, JST!  NSB ), I , I VD, I CD 

696.  GO  TO  360 

697.  C IC  CODE  IS  HOT  INTERPRETABLE 


SOINP 

SDINP 

SDINP 


1090  WRITE! 6,1160  ) 1 NPERR, l, I VD, ICD 
GO  TO  380 

C STOPP  COND  UNDEF  


SDINP 

SOINP 

SOINP 


1100  WRITE! 6,1170)  INPERR,I 
GO  TO  500 

C STOP  CONO  MULT  OEFINEO 


1110  WRITE!  6,1180)  INPERR,! 

IF! I -1  ) 160.160,470 

1120  FORMAT!  2A10/,42H  PAYOFF  MULTIPLY  DEFI NED, Ofll GINALLY  I0P=I3, 

1 7H  V AL0P -E 1 7 8,15K  NEW  DATA  I0P=13,  7H  VAL0P=E17.8> 

1130  FORMAT! 2A10/39H  WEIGHT  DISCONTI NU1 TY  INDICATED  IN  ARCI3,31H  AFTE 
1R  IMPROPER  STOPPING  CONDITION) 

1140  FORMAT! 2A10/,29H  INITIAL  CONOTION  CODE  IN  ARCI3,60H  INCONSISTENT  N 


SDINP 

SDINP 

SDINP 

SDINP 

SOINP 

SDINP 

SDINP 

SOINP 

SDINP 

SOINP 


670- 


riCH 


470- 

10 


4T0- 


>00“^ 


i60— I 


380— 1 


IfcC- 
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Ml.  1IIH  PRIOR  ARC  STOPPING  CONOiUON  VARIABLE  >10  = 13  , OH  COOEM31  sdinp 
M2  1150  FQRHAM  2MO/.33H  BRANCH  STOPPING  CONDITION  IN  »RC13,  OK  ,JST=I3,  SDINP 
M3  1 5 3 M IS  INCONSISTENT  WITH  BRANCH  LEO  INITIAL  CONDITION  IN/,  7H  AR  SDINP 
111  2CM3.15H.  vaftl »0lE  NO  =13,  oh,  C00E=I3>  SDINP 
1 15  USD  FORHATI  2A1C/,N2H  IK1TIAL  CONDITION  CODE  FOR  ARCI 3, 1 BH,  VARIABLE  SDINP 
TH.  1NUH6ER I H,  2H  =110, 22K,  IS  NOT  I NTERFRET  ABLE  1 5DINP 
111.  1170  FORHATI  2A10/,27H  STOrP IKS  CONDITION  FOR  ARCI3,13H  IS  GN0EFINED1  SDINP 
11B.  1180  F DfiflATI  2A1 0/ , 2BH  STOPPING  CONDITION  FOR  ARC13,20H  IS  CHJLTIPLY  DEF  SDINP 
MB.  IINEOl  SDINP 
120  END  SDINP 
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671 


^3 

v-ii 


SUBROUTINE 

S0MG 


673 


FUNCTION  SOMG 


FOntry  S PS  I 
Purpos  e 

Convert  input  external  units  to  internal  units.  SOMG  or  SPSI  is  called  fr 
SDINP  to  convert  the  units  of  input  boundary  condition  to  internal  units;  i. 
degrees  to  radians  and  pounds  to  slugs-mass. 


6*73 


EH 


GR 


RDI 


9r 


l Earth  r » i I u» . (FT)  /GLOBAL/! 


I Gravitational  acceleration  at  surface  of  the  earth.  /GLOBAL/I 

(FT/SEC2) 


I Angle  to  radian  conversion,  .01745329252  /DATA  /{ 


2)  COORDS 

I 

ER 

CRASH 

I 

REfl 

EGUA3 

I 

ER 

GEINP 

I 

ER 

PADS  1 

I 

ER 

F08C 

I 

ER 

SDRS 

I 

ER 

TRT05Z 

I 

ER 

t ) ACCEL 

I 

GR 

BL5 

I 

GR 

E0DA3 

I 

SR 

FH3 

I 

GR 

GEINP 

I 

S 

GEINP 

I 

SR 

GEINP 

0 

IS 

DUT 

I 

GR 

PAOS1 

I 

GR 

PDBC 

I 

GR 

REU3 

I 

GR 

SDINP 

I 

GR 

SIZE 

I 

GR 

SIZ1 

I 

GR 

SIZ2 

I 

SR 

SIZ3 

I 

GR 

SIZN 

I 

SR 

SOHG 

I 

GR 

STAU 

I 

GR 

3)  BLICO 

1 

RDI 

DER3A 

I 

RDI 

FNTG 

I 

RDI 

GUI  3 A 

I 

RDI 

HDBELA 

1 

RDI 

RODELB 

I 

RBI 

PADS  1 

0 

RDI 

PRDPB 

I 

RDI 

PROPIN 

I 

RDI 

KEU3 

I 

RDI 

SDINP 

I 

RDI 

SONS 

I 

RDI 
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1 . 

FUNCTION  sons  (nW,  RED 

Sons 

2. 

COflROH/GLOBAL/ 

Global 

3 

•SR  ,ER  ,OnGZ 

, XL  AflfiF  ,YmiRF 

,LU" 

Global 

H 

•,JJQP< 10)  , IFftTftL  .MARC 

NBR  AN  ,NFARC 

, iom 

global 

5. 

*,KTAB(20),1T  A&(  2Q‘>  ,SIG 

.HAXTAB 

GLOBAL 

6. 

«,s«  ,psirf,ipflgi. 

IPFLG2, IPFL63, IPFL69, INtQFL(  20) 

GLOBAL 

7. 

*,ITPSO  ,KSOL  ,RGL0BH8> 

RETAP 

8 

COH<10N/DATA/ 

DATA 

9 

»PI  ,RAO  , RDI 

,SC  ,U*F 

, TKPF  , 

DATA 

10. 

*FTNH  , CAR  ,J0P1 

, J0P2  , J0P3 

, JGP9 

DATA 

n. 

ENTRY  SPSI 

sons 

12. 

SO  TO  (10,10,20.10,30,20.20 

,20,10,10,10,10,20.20,20, 

10,10,20,20,20 

sons 

13 

*,1G, 1G, 10,20, 10, 10,20,10,10 

,10,10,10,10,10,10,10,10, 

10, 10, 10), 

OS 

1H 

10  sons  = RE 2 

sons 

15. 

RETURN 

sons 

16. 

20  SOlAS-  REZ»RDI 

sons  | 

17. 

RETURN 

sons 

18. 

30  SOnG  =REZ/SR 

sons 

19. 

return 

sons 

20. 

BO  sons  = REZ/ER 

sons 

21. 

RETURN 

sons 

22. 

END 

SORB 
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SUBR0UTINE 

SPLYNE 


6*5*6 


FORTRAN  MATH 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


StpHO'i 
8LU ' K 


3UHH  I, OOF 


1FOB 

LOCF 

LOCI 

LOCL 

NT 

X 

Y 

Z 


I Forward  or  adjoint  Integration  flag 
= l aieana  forward 
= 2 aeant  adjoint 


I A 50  word  array  that  corresponds  to  tables  1 thru 
50,  Each  entry  is  an  integer  that  points  to  the 
last  value  of  the  Independent  variable  of  the 
correspondi ng  table. 


I A 50  word  array  that  corresponds  to  tables  1 thru 
50  Each  entry  Is  an  integer  that  points  to  the 
initial  value  of  the  independent  variable  of  the 
corresponding  table  A zero  entry  indicates  tablk 
not  Input. 


M A 50  word  array  that  corresponds  to  tables  1 thru 
50.  Each  entry  Is  an  integer  that  indicates  the 
last  interval  in  which  interpolation  of  the 
corresponding  tabic  secured. 


I Largest  univariant  table  nuwber  in  this  case. 


I A 50  word  array  that  corresponds  to  tables  1 thru 
50.  Each  entry  is  an  integer  that  points  to  the 
initial  value  of  the  independent  variable  of  the 
corresponding  table  A zero  entry  indicates  table 
not  input. 


I A 50  word  array  that  corresponds  to  tables  1 thru 
50  Each  entry,  is  an  integer  that  indicates  the 
last  interval  in  which  interpolation  of  the 
corresponding  table  occured. 


I A 50  word  array  that  corresponds  to  tables  I thru 
50  Each  entry  is  an  integer  that  points  to  the 
last  value  of  the  independent  variable  of  the 
corresponding  table. 
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SUBR0UT INE 
STAU 


Subroutine  STAIJ 


Entry  SINIT,  AD  JUMP 
Purpose 

Subroutine  STAU  has  three  entry  points.  The  main  entry,  STAU,  computes 
the  arc  time  sensitivity.  Entry  SINIT  stores  initial  state  sensitivity  in  the 
parameter  sensitivity  matrix,  and  prints  the  entire  parameter  sensitivity 
matrix  at  the  completion  of  the  adjoint  solution. 

Entry  ADJUMP  computes  the  adjoint  discontinuity  at  the  critical  staging  time 
for  rubber  stage  optimization. 

Description 

The  arc  time  sensitivity  equation  is  given  m equation  (1Z.  1-2)  of  Volume  I. 
The  rubber  stage  adjoint  discontinuity  is  given  in  Section  13  of  Volume  I. 
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ITN9W  . ITNOtf  , 
,I$ZO( 19) 


,XLA«RF  ,Y«URF  ,IUN 

- N3RAN  ,NFARC  ,10(9) 

*-KIAfl(20),lTAB(2D)  ,$IS  ,riAXTA& 

» ' Grt  ,P$lRF,IPFLfilr  1PFLS2,JPFLG3,  IPFLG4,  INEOFU  20  > 

^ j 1TP50  ,KSOL  ,KGL0BL(8) 

C TEST  FOR  PRESENCE  OF  OPTICAL  STAGE  TIME  IN  POINTER 

C ARRAY 

IIS  =IARC-1 
00  10  I=1,NPARA 
JJ  = I 

IF(IPGINT( Il.Efl.IIS  ) GO  TO  20 
10  CONTINUE 
RETURN 

C II  STAGING  TlttE  SENSITIVITY  


(JH 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

RETAP 

STAU 

STAU 

STAU 

STAU 

STAU 

STAU 

STAU 

STAU 

STAU 

STAU 


95 

20 

DO  40  I=J1N,NN 

STAU 

<16. 

ss  =o. 

STAU 

a7  . 

00  30  J=1 ,NEflF 

STAU 

98. 

S5  = SS  + XL( J , I )*  YDS! I IS, J 1 

STAU 

99. 

30 

CONTINUE 

STAU 

100. 

SP6BA(  I,JJ>=  SS 

STAU 

101. 

40 

CONTINUE 

STAU 

102 

RETURN 

STAU 

103. 

C 

OPTlnAL  INITIAL  CONDITIONS 

STAU 

109. 

ENTRY  SINIT 

STAU 

105. 

c 

III  TEST  FOR  PRESENCE  OF  OPTIMAL 

1C 

AND  COMPUTE 

SENSIT1VIT  STAU 

106. 

DO  60  1-1. NP ARA 

STAU 

107. 

jj  = i 

STAU 

108. 

IFUPOINTd  l.LE.Zl)  GO  TO  60 

STAU 

60— | 

109 

c 

1 1 1 A COMPUTE  SENSITIVITY 

STAU 

110. 

Jl  = IP0INT1 J J ) - 21 

STAU 

111. 

IFtJI.GT.7)  GO  TO  60 

STAU 

60  — 

112. 

DO  50  J=MN,NN 

STAU 

113. 

50 

5PARA(J,JJ>  = XL(JI,J) 

STAU 

114. 

60 

CONTINUE 

STAU 

115. 

URITEC  6„T0)((SPARA(I . J ). I=nN, NN). J=l.  NPARA ) 

STAU 

116. 

70 

FORMAT ( 28H0  PARAMETER  SENSITIVITIES 

/(6E20.8)) 

STAU 

117. 

RETURN 

STAU 

1)8. 

c 

IV  ADJOINT  01  SCANT  FOR  VARIABLE 

WT- 

DROPPED 

PH1SZ 

119. 

ENTRY  ADJUNP 

PH1SZ 

125. 

DPLDUB  = SQ( 4, 1 )»6R 

JULV28 

121. 

00  90  !=«N,NN 

OS 

122. 

I F(  I TQ(  I 1.ME.36)  SO  TO  80 

OS 

80 — 

123. 

XL(  4 , 1 ) = XL( 4, 1 )*(  1 -DbiEB)  + DPLDUB 

JULY28 

124. 

GO  TO  90 

OS 

90— | 

125. 

80 

CONTINUE 

OS 

" — 

126 

XL( 4,1 ) = XL<4,1 )«f 1 -DJEB) 

JULY28 

127. 

90 

CONTINUE 

os 

128. 

RETURN 

PH1SZ 

129. 

END 

STAU 
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BBS 


SUBR0UT INE 
STPIT 


Subroutine  STPIT 


Purpose 

Subroutine  STPIT  is  called  for  fatal  errors  in  steepest  descent  execution. 
Description 

This  error  routine  prints  a number  message  (number  comes  through  argu- 
ment list)  and  returns  to  PADS  through  a call  to  entry  point  SDERR  therein. 
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IFATAL  0 Fatal  «rror  flag.  /GL08AL/(  17 ) BLICQ  FI  I FATAL 

GEINP  0 IFATAL 

PA051  I IFATAL 

SDINP  FI  IFATAL 

SPLICO  FI  IFATAL 

STPIT  0 IFATAL 

TOPFI  PI  IFATAL 

. UNOt . 0 File  of  all  output  fata  /.UNOt. 7(5  } BLICQ  0 -UNOt, 


BNDRVC 

0 

. UNOt , 

CRASH 

0 

. UNOEi , 

FRENCH 

0 

UNOt . 

FXOAT 

0 

. UNOt , 

GEINP 

0 

UNOt 

HUNT 

0 

. UNO£> , 

INEDIT 

0 

.UNOt. 

ITERS 

0 

UNOt 

F10BELA 

0 

UNOt. 

noru 

0 

.UNOt. 

npsi 

0 

. UNO t . 

OUT 

0 

, UNDO . 

PAV02 

0 

. UNOt . 

PRINT 

0 

-UNOt. 

PR  I NT  V 

0 

. UNOt . 

PRINTU 

0 

. UNOt . 

PRITES 

0 

UNOt. 

PRITVA 

0 

. UNOt 

PROPIN 

0 

.UNOt, 

PROTHR 

0 

. UN06 . 

PRUTSn 

0 

. UN06 . 

RANGE 

0 

.UNOt. 

S 

0 

. UNQ6 . 

SDINP 

0 

.UNOt. 

SUE 

0 

.UNOt. 

SI  21 N 

0 

. UNOt. 

SI20UT 

0 

. UNO  t . 

SOLVE 

0 

.UNOt. 

SPLICO 

0 

•UNOt. 

SPLI2 

0 

.UNOt. 

SRLVNE 

0 

.UNOt. 

SSSP 

0 

•UNOt. 

STAU 

0 

•UNOt. 

STPIT 

0 

.UNOt. 

sunouT 

0 

.UNOt. 

TABIN 

0 

•UNOt. 

TEST 

0 

UNOt. 

VEHOF 

0 

.UNOt. 

VJTSCH 

0 

•UNOt. 

UIT  VOL 

0 

•UNOt. 
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1 SUBROUTINE  5fP|T( I ) 

2 C 

3 C ERROR  NUMBER  PRINT  ANO  RETURN  TO  MAIN  PR06RAH 

* C 

5 COMMONS GLOBAL/ 

6 *6fi  ,ER  ,OMGZ  t XLAMftF  ,VnURF  ,Lim 

7 *, JJOP(IO)  .ifatal  ,narc  .nbran  ,nfarc  ,ID(H> 

8 * KTA&(  20 ),  1TABC  20 ) ,SIG  tlAXT  AB 

9 *,Gf1  * .PSIRF, IPFLG1 , 1PFLG2, IPFL63, IPFLG9, INEOFLt 20 > 

10.  ♦, I IPSO  ,KSOL  ,K6L0BL(B) 

11  LOGICAL  IFATAL 

12.  UR  IT El  6,10)  I 

U 10  FOfirtATC  NC( 1H*  >, 13  > 

1 H I F AT  AL=  TRUE 

15  CALL  SOEfiR 

16.  END 


STPIT 

COHN 

CO«N 

COHN 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

GLOBAL 

RETAP 

liH 

UH 

STPIT 

UH 

UH 

STPIT 
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SUBR0UT INE 
STP3 


Subroutine  STP3 


Entry  Points.  PHSTOP,  STSTOP,  SETFPO 


Purpose 

This  routine  detects  -whether  arc  or  phase  cut-off  will  be  reached  in  next 
integration  interval  on  forward  trajectory. 

Description 

The  logic  and  equations  for  this  routine  are  described  in  Section  15.2  of 
Volume  I.  This  routine  as  called  from  FNTG. 
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''>5 


3 


FORTRAN 

symbol 


HATH 

SYMBOL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTING  USAGE 

BLOT*  LOG  SUBR  COUE  VAR 


OT 


DVAR 


1 ! nt e gr it  I on  1 nt er  v 1 1 


{ SEC  > /GENF  /( 


FP 


I State  vector  derivatives  In  steepest  descent  nodule  /STATES/I 


300  ) BNTG  H 
FNTG  M 
REU3  I 
RKIA3A  1 
RKTB3A  I 
STP3  I 
YREF3  0 

15)  A0ICB3  n 
A0IC3A  I 
A0ID3A  rt 
DER3A  0 
DTF3  I 
ENVPRI3  I 
PDBC  I 
PROPIN  0 
REU3  I 
RKTA3A  I 
S0ER3  0 
SIP  3 
YREF3 
YREF3 


1 Current  value  Df  cut-off  function  - non-linear  only  /GENF  /( 


521 > 0TF3 
STP3 
T0L3 
YREF3 


OT 

OT 

OT 

P 

P 

DT 

OT 

OVAR 

DVAR 

OVAR 

VO 

VT 

OVAR 

VD 

OVAR 

DVAR 

DY 

DVAR 

OVAR 

OVAR 

VT 

FP 

FP 

FP 

FP 


FPO 

I 

Rate  of  change  of  non-linear  cut-off  function 

/GENF  /( 

523) 

C0N3 

I 

FPO 

DTF3 

1 

FPO 

STP3 

I 

FPO 

YREF3 

I 

FPO 

FPOLD 

0 

Value  of  non-linear  cut-off  function  at  prior 

/GENF  /( 

522  ) 

DTF3 

I 

FPOLO 

co  up  ut e i nt er  va  1 

STP3 

0 

FPOLD 

T0L3 

0 

FPOLO 

YREF3 

I 

FPOLD 

I ARC 

I 

Arc  number 

/XC00ES/{ 

136  ) 

ADICB3 

I 

1 ARC 

A0I03A 

I 

I ARC 

ADJUST 

I 

I ARC 

AST3 

I 

I ARC 

BNTG 

n 

IARC 

ENVPRM 

I 

I ARC 

FNTG 

13 

iARC 

GET  1 T 

I 

IARC 

MODELA 

I 

IARC 

PROPB 

I 

IARC 

PROP  I N 

I 

IARC 

REU3 

1 

IARC 

50INP 

(3 

IARC 

STAU 

I 

IARC 

STP  3 

I 

IARC 

TRTOSZ 

I 

IARC 

INEOFL 

m 

A 20  word  array  that  contains  the  code  number  of 

/slobal/i 

73) 

PROPB 

I 

I NE8FL 

the  state  variables  Inequality  constraint  that 

PROP  I N 

n 

INEOFL 

applies  on  each  subarc  A zero  entry  indicates 

that  no  5 VI  C applies. 

STP3 

(3 

INEOFL 

I SPH 

I 

Sign  of  phase  cut-off 

/XCODES/I 

IBB  ) 

FNTG 

0 

ISPH 

STP3 

I 

I SPH 

ISST 

I 

Sign  of  arc  cut-off 

/XC0QES/( 

)B5  ) 

ENTS 

0 

ISST 

STP3 

I 

ISST 

ISTOP 

I 

Arc  cut-off  flag 

/XC0DES/( 

175  ) 

FNTG 

13 

ISTOP 

STP3 

1 

ISTOP 

I STPP 

I 

Phase  cut-off  flag 

/XCO  DES/( 

176) 

FNTG 

(3 

I STPP 

STP3 

I 

i STPP 

I VAR 

0 

Cut-off  variable  option  indicator 

/XCGOES/T 

150) 

FNTG 

13 

I VAR 

STP3 

0 

IVAR 

TOL3 

I 

I VAR 
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fORtRAN 

symbol 


FIAIH 

SYMBOL 


DESCRIPTION 


S i 0 R AGE 
a l u i-  k lqc 


S UBBOUT 1 NE  US  ft  5 
SUBR  CODE  VAR 


t Absolute  value  of  phase  cut-off  option  code 


I Absolute  value  of  arc  cut. off  option  code 


Array  of  arc  cut  off  values  Esd] 


1 Phase  cut-off  value 


/GENF  /( 


X Relative  velocity 


C FT /SEC  ) /STATES/! 


152) 

A01D3A 

1 

JPS 

8NTG 

n 

JPS 

FNTG 

n 

JPS 

STP3 

i 

JPS 

T0L3 

i 

JPS 

153) 

ADI  CBS 

FI 

JS 

ADIC3A 

I 

JS 

ADID3A 

I 

JS 

BNTG 

FI 

J5 

FNTG 

n 

JS 

PROPB 

i 

JS 

PROPIN 

i 

JS 

STP3 

I 

JS 

T0L3 

i 

JS 

1 ) 

ADJUST 

n 

ORG 

FNTG 

i 

0 FIB 

PRF1SET 

FI 

OFIS 

PROPB 

1 

ORa 

SDINP 

FI 

ons 

STP3 

1 

OFIS 

TOPFI 

D 

1GNG 

R9H) 

ADJUST 

0 

0 FIR 

FNTG 

N 

GRP 

STP3 

I 

OHP 

1 > 

ACCEL 

I 

V 

AOICB3 

0 

VAR 

ADJUST 

Ft 

VAR 

A&ETB3 

0 

VAR 

AST3 

I 

VAR 

BLR 

I 

V 

BLT 

I 

V 

BL8 

I 

V 

C0N3 

I 

VAR 

0ER3A 

I 

V 

DTF3 

I 

V 

ENVPRR 

I 

VAR 

EQUA3 

I 

V 

FlODELA 

I 

V 

riOOELA 

1 

VAR 

F10DELB 

I 

V 

CITX3A 

I 

VAR 

OUT 

I 

V 

OUT 

I 

VAR 

PDBC 

I 

V 

PDY3A 

I 

V 

REU3 

PI 

VAR 

RKTA3A 

R 

V 

STP3 

I 

VAR 

TOP  ft 

D 

KUDU 

YREF3 

n 

V 
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5IP3 


' /•> 

’V  J 

-r> 


1 

SUBROUTINE 

STP3C I NR  1 

STP3 

2 

C 

COHN 

3 

c 

DETECTS 

whether  cut-off 

MILL  BE  REACHED  IN  NEXT 

CONN 

c 

INTEGRATION  INTERVAL  (FORWARD  TRAJECTORY ) 

COHN 

5. 

c 

FLAG 

IVR  = l = 

CUT-OFF  MILL 

OCCUR  , IVR= 

0=  MILL  NOT  OCCUR 

CONN 

6. 

c 

CONN 

7. 

CO««OH/STATE3/ 

STATE3D 

8. 

• VAK(  19} 

, OVAR 

{ 19 ). V AfiL  C 99 1 . DVARLC  99  ) 

,Y0<9> 

,SVY( 10) 

, 

STATE30 

9 

*XL<  9.9) 

, YDPI 20 

,9), YDS  (20, 

9 ), CCSSAN 

,SINSAM 

,SAVBP(  15) 

, 

STATE3D 

10 

♦SINP&I 

,COSPSI 

,$I NRHQ 

, CQSRHO 

,OCORHG 

,0CCR02 

, 

STATE30 

n. 

♦ SVBV  (9) 

rQMESA 

,QHEGA2 

STATE3D 

12. 

* VDV 

. GDV 

,RDV 

'nov 

,PDV 

,00V 

/ 

5TATE3D 

13. 

♦ UDV 

.VOG 

, SD6 

,RDG 

, FOG 

,006 

r 

STATE3D 

19. 

♦ UOG 

, VDR 

, SDR 

,MDR 

,POfi 

,ODH 

9 

STATE30 

15. 

♦ UDR 

, von 

,GDM 

,HDM 

,PDM 

,VOP 

STATE3D 

18. 

• GOP 

,PDP 

,ODP 

,UOP 

, VOO 

,500 

STATE30 

17. 

♦ POO 

.uoo 

.HTDV 

,HTDR 

STATE3D 

18. 

real  non  . 

MOV.  HOR 

STATE3D 

19 

COMMON /ST  ATE3/ 

STATE3D 

20. 

♦SIN2RG 

. C0S2RD 

, C052GH 

STATE3D 

21 

CQMMON/GENF/ 

GENF 

22 

*0MG<20> 

,QMGPI2G,2),VAF0(  9) 

,TQL( 9 ) 

S VAR<  1C) 

,WOC<  20) 

GENF 

23 

♦ A<  9,9) 

. ACON( 9 ) . BCGNC 9 ) 

,C3TI(9,9) 

.OCONI  9) 

,OTP 

GENF  1 

29. 

• DTS 

,DT 

,g 

,OPSO 

,0 

GENF 

25. 

• R 

.RE 

,HACH 

,PA 

,R0 

,CS 

6ENF 

26. 

• VNU 

r PAR 

,RQR 

,CSR 

, VNR 

,SU*lSO 

SERF 

27. 

♦svso 

rTJMEPH 

, TINES 

,TDP 

,TOS 

,TR( 9 ) 

GENF 

28 

♦TST( 20 ) 

.TPH 

( 20 ),D1S( 20 ) 

.OIP(  20  ) 

,T 

,M 

GENF 

29 

*TLP1<  20) 

TLS  1 

(ZG>.D1P1(20)  .0151(20) 

.TINE 

,ONP 

GENF 

30 

♦TIMPR 

.LIFT 

,DRAS 

.TAX 

,TBURN 

,TBU(  20) 

GENF 

31 

♦ AE 

,FP 

,FPGLD 

,FPO 

M NACHR 

, MACHV 

GENF 

32 

♦ OR 

rQV 

,FVAC 

,LI FT V 

6ENF 

33. 

♦LlFTfl 

r LIFTA 

OR  AGV 

. DRAGR 

,0R AGA 

GENF 

39 

* 

LIFT* 

,DBR 

,DB 

,ISP 

, I SPF 

GENF 

35. 

♦ 

ULFT 

.ULFTV 

, ULFTR 

, ULFT A 

GENF 

36 

• xncG 

XMCGV 

XHCGR 

XflCGA 

.XftCSN 

,CODAE 

GENF 

37 

♦CULFT 

,CT 

.calpha 

, CDE 

,DELTAE 

, S I D 

6ENF 

38 

♦ COD 

.51  DAE 

, XC6 

,ZCG 

,XJ 

GENF 

39 

COMMON  / GENF  / 

GENF 

90 

♦ XJV 

, XJR 

,SH 

,GAMP1A0 

, XJCG 

, XKP 

GENF 

91 

♦FRATED  , 

1 RAT  ED 

GENF 

92 

♦ PI 

,P2 

,P3 

, XXI 

, XK2 

, XK3 

GENF 

93 

♦ XK1T 

, XK2T 

,XK3T 

,XK1D 

, XX2D 

, XK3D 

GENF 

99 

♦ XK1A 

,XK2A 

,XK3A 

,XK1V 

XK2Y 

, XX3V 

GENF 

95 

♦ XXI  G 

,XK26 

, XX3G 

,XX1P 

, XX2P 

, XK3P 

GENF 

96. 

• XX 1 R 

, XK2R 

,XK3R 

,XK10 

, XK20 

, XX30 

GENF 

97 

♦ XK1U 

. XK21I 

,XK3ti 

.XX  )H 

, XX2N 

, XK3M 

GENF 

98. 

♦ PV 

.PG 

.PP 

.PR 

,P0 

, DP0Y( 3,8  ) 

GENF 

99. 

REAL  LIFTR  . LIFT  . LlFTA. LIFTH  . 

HACK, 

NACHR, 

GENF 

50. 

» ISP.  I5PF 

. MACHV 

. L1FTV  . 1 RATED 

FRAT 

51. 

DIMENSION  TP HU  10  J.TSTIC 10) 

— 

— 

GENF 

52 

EQUlVALENCEdLPl, 

TP  HI  ),(  TLS1, 

TST1) 

GENF 

53 

COMMON  /XCODES/ 

XCODES 

59 

♦ITQ  (9) 

.ICOR 

( 20  ),1TI 

, INTB 

,JG1D(  20, 

2 ),  JPH  (20,2 

, 

XCODES 

55. 

♦JST  ( 20  > 

.NCNST 

,NSB 

, NS  AB 

,NICNB 

XCODES 

56 

♦ I20P 

.ICOP 

, I F AH 

,IFAR 

,IFB 

, I NO 

XCODES 

57 

•IOPEN 

, I PH 

, ISPH 

, ISST 

, I ARC 

, I ST  ART 

XCODES 

58 

♦ ITCT 

, ITER 

, I VAR 

,JX 

,JPS 

,JS 

XCODES 

59 

♦ KOP 

, KPST 

,K5T 

, NAD 

,NCASE 

XCODES 

60 

♦ NCN 

. NEQB 

NEO 

,NOP 

NPH 

XCODES 

61 

♦ NST 

, I PST 

.IPRiNT 

. ISTN 

, I PHN 

, ISTNB 

XCODES 

62 

♦ IP  HNB 

, I BLK  1 

, IBLK2 

.ISTOP 

, ISTPP 

t L 

XCODES 

63 

• IFOB 

,NB 

,LB 

.MB 

. NPHP 

, NPHB 

XCODES 

69 

♦NCTIN 

.neqf  , 

I LABI  8 ),  JPRP 

, JSI I .NTT . MFINt 20 ). JP 1 . 

JP2, JP3 

XCODES 

65 

CO  MflQN/ GLOBAL/ 

GLOBAL 

66 

♦ GR 

,ER 

,OMSZ 

, XLAMRF 

, YNURF 

,lun 

GLOBAL 

67. 

♦,JJOP< 10) 

.IFATAL 

.N  ARC 

.NBRAN 

,NFARC 

,IDI  9) 

GLOBAL 

68. 

♦ .JCTABI  20 ), 

ITAB( 20 ) .SIS  .rtAXTAB 

GLOBAL 

69. 

♦,Gn 

.PSIRF. 

IPFLG1, 

IPFlS2, 1PFLG3 

. IFFLS9. INEQFLC  20 ) 

GLOBAL 

70. 

♦ . I TPSO  . KSQL 

KGLOBLC  8 ) 

RETAP 

71. 

DIMENSION 

SX(  8 ) 

STP3 

72. 

DIMENSION 

fi  ATE(  3 ) 

APR27 

73. 

DATA  RATE/1.5.0. 

,0./ 

APR27 

79. 

ENTRY  PHSTOP 

ST?3 

75 

IFt  JPS  GE. 

10)  GD 

TO  30 

STP3 

20  OCT  72  G 01-H6 


76.  C 1 PHASg  CUT-OFF 

77.  C I-A  ON  STATE 

78.  I Ft  ISFH«<  VftRt 1STFP  ) +OT»OVftR< I5TPP )-QRP  )>  20,10,10 

79.  10  IVR=  1 

80.  1 VAR  = ISTPP 

81  RETURN 


82.  20  1VR  -0 

82.  RETURN 

89 C I-B PHASE  CUT-OFF  ON  FUNCTION  OF  STATE 


85.  30  rtO  = G 

86.  CALL  PDBCUPS,FP,SX,SFD,0,mn 

87.  rt0=0 

88.  CAUL  PDBC( JPS,OVAR,SX,FPO#3,NQ) 

£9. I FI  ISPH»(FP+pT»FPO-OflP))  HO, 10, 10 

*0.  HO  FPLO=FP 

HI.  GO  10  20 

92-  C II  ARC  CUT-CfF  TEST 

93  ENTRY  STSTCIP 

9H.  IFIJS  .6E.10)  SO  TO  60 

95  C II-A  ON  STATE 

96  I FI  I SST»t  VflA(lSTOP)  + PT»PVftR(  I STOP 1-QflGC I ARC ) >120,50,50 

97.  50  IVR  =1 

98.  I VAR  = I STOP 

99.  RETURN 

100.  C I I-B  ON  FUNCTION  OF  STATE  


101.  60  *0=C 

102  CALL  PDBCt JS,FP,5X,$FD,0,n0> 

103.  «0=0 

10H.  CALL  POBC( J$,DVAR,SX,FPO.3f*0) 

105  C II-C  IF  NOT  AN  ] NEQUALITY  CUT-OFF  SO  TO  II-E 

106.  I F(  J NEOFLI 1 ARC ) EQ  0)  60  TO  70 

107.  C 1 I-B  ADJUST  INEQUAITY  FUNCTION  RATE  BY  TOLERANCE 

108.  C AND  TEST  FOR  ZERO  IF  LESS  THAN  ZERO  SO  TO  II-F 

109  JJ=JS-32 

UP. I F ( FPD-R ATE(  J J 1 1 90,90,70 

111.  70  CONTINUE 

112.  C II-E  TEST  FOR  CUT-OFF  YES.  SET  FLA6,  NO  SAVE  FUNCTION 

113.  1 F(  1SST»(  Fp4DT*FP0-0rtS(  1 ARC)  ) ) 80,50,50 

11H.  60  FPOLD=  FP 

115.  GO  TO  20 

116.  C II-F  INEQUALITY  CUT-OFF  NOT  REACHED, 

117.  C DERIVATIVE  ZERO  r SET  FLAGS 

118.  90  IVR=1 

119.  I VAR  =-JS 

120.  I NEGFLt I ARC  1=  0 

121.  RETURN 

122.  ENTRY  SETFPO 

123.  FPOL0-FPLD 

129.  RETURN 

125.  ENO 
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CORN 

STP3 
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CORN 

CORN 
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60—j 
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20 


50 
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STP3 
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APR27 

APR27 
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Subroutine  STVRL3 


Entry.  STVRL 


Purpose 

STVRL  resets  adjoint  integration  variables  after  discontinuities 


6,97 


FORTRAN 

SYrlBOL 


HATH 
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CODE 


DESCRIPTION 


vy 

■o 


STORAGE 


BLOCK 


LOC 


SUBROUTINE  USAGE 
SOAR  CODE  VAR 


NB 

I Extent  of  Integration  set  during  adjolnts  on  branch 

/XC0DES/< 

179  ) 

A0E03A 

I 

NB 

prob  !•« 

A01 CB3 

n 

NB 

AD1C3A 

n 

NB 

BNTG 

0 

NB 

RKTB3A 

i 

NB 

STVRL3 

i 

NB 

VRRL 

0 Array  of  variables  for  adjoint  Integration 

/$T  ATE3/1 

29  ) 

A0EO3A 

i 

VARL 

ADI CB3 

0 

VARL 

ADI  C3  A 

0 

VARL 

PROPIN 

I 

11 

RKTA3A 

n 

F 

RKTB3A 

o 

V 

STVRL3 

0 

VARL 

TRAN3 

n 

VARL 

XL 

, t.n, 

I fiatrlx  of  adjoint  variables 

/STATE3/C 

296) 

ADEQ3A 

n 

XL 

X 1 J 

ADICB3 

n 

XL 

ADI C3A 

n 

XL 

ADI D3A 

M 

XL 

AST3 

n 

XL 

BGET3 

0 

XL 

BST03 

I 

XL 

F1TX3A 

i 

XL 

OUT 

I 

XL 

STAU 

XL 

STVRL3 

i 

XL 

TRAN3 

« 

XL 
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STVRL3 


'N\ 


l. 

SUBROUTINE  5TVRL3CLL, 

HN> 

STVRL3 

2 

C 

CONN 

3 

C 

BESETS  A0J01NT  INTEGRATION 

VARIABLES 

AFTER 

COHN 

9. 

c 

DISCONTINUITIES 

CONN 

5. 

c 

COMN 

6. 

C0nn0N/STATE3/ 

STATE3D 

7 

* VAR( 19  > ,OVAR  ( 19 

, VARL  (99) 

. DVARL( 99 

. Y0( 9 ) 

, $ VY( 10) 

ST  ATE3D 

8 

*XL(  9,9)  ,Y0P(20,9>, 

YDS  (20,9) 

COSGAPl 

.SINGAN 

,SAVBP(  15) 

STATE3D 

9 . 

*S1 NPS I ,C0SPSI 

,SINRH0 

, COSRHO 

,OCORHO 

,0C0R02 

STATE30 

10 

*SVBV  ( 9 ),ONEGA 

,0PIEGA2 

STATE30 

11. 

♦ VDV  . 6DV 

. FDV 

'pIDV 

.PDV 

.00V 

STATE30 

12. 

*UDV  , VDG 

.GOG 

.ROB 

,POG 

,ODG 

5TATE3D 

13. 

♦ U06  . VDR 

, ADR 

,PlDft 

PDR 

DOR 

STATE30 

1 9. 

»UDR  ,VDf1 

,GD« 

,np  n 

,PD« 

.VOP 

ST  ATE30 

15 

♦ GDP  , P DP 

, OOP 

, UOP 

, VDO 

, SDO 

STATE30 

16 

♦PDO  ,UOO 

,H7DV 

,HTDR 

STATE30 

17. 

real  non  , nov,  adr 

STBTE3D 

16. 

C0NH0N/STATE3/ 

STATE3D 

19. 

♦S1N2R0  . CQS2R0 

, C0S2GN 

STATE30 

20. 

COflriON  /XCOOES/ 

XCODES 

21. 

♦ ITO  ( 9 ),  I COR  (205 

, ITI 

, INTB 

,JGID(  20 

,2),JPH  (20.21. 

XCOOES 

22. 

♦J  ST  (20) 

, NCNST 

,NSB 

. NSAB 

, NI CNB 

XCDDES 

23. 

♦I20P  ,ICOP 

. 1FAU 

. 1 F AR 

,IFB 

.IND 

XCOOES 

29. 

♦ I OPEN  . 1 PH 

,ISPH 

, I SST 

, I ARC 

, 1ST  ART 

XCOOES 

25. 

♦ITCT  , ITER 

, 1 VAR 

,JPS 

,JS 

XCOOES 

26 

*KOP  , KPST 

,K 

,KST 

.NAD 

NCASE 

XCODES 

27 

♦ NCN  ,NEOB 

. NEQ 

,NDP 

, NPH 

,N 

XCOOES 

28 

♦ NST  , IPS! 

I P fi  I *T 

.ISTN 

, IPHN 

, I STNB 

XCODES 

29 

♦IPHNB  , I BLK 1 

, I8LK2 

, 1 STOP 

# 1STPP 

,L 

XCODES 

30 

♦ I FOB  , NB 

.LB 

.MB 

. NP  HP 

, NPHB 

XCODES 

31. 

♦ NCTIN  , NEQF  , I LABI 8 ),JPRP.JGI I.ftTT,flPIN(20),JPl 

,JP2,JP3 

XCDDES 

32. 

ENTRY  STVA&L 

STVHL3 

33. 

JJ  = NB 

STVBL3 

39. 

DO  20  in=LL,nn 

STVRL3 

35. 

DO  10  IJ=l.fc 

STVRL3 

36. 

VARL(JJ)=  XLUJ.IK) 

STVRE3 

37. 

10  JJ=JJ+1 

ST«IRU 

38 

20  CONTINUE 

STVRL3 

39. 

RETURN 

STVBL3 

90. 

END 

5T0RL3 
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FUNCTION  SUMS 


Purpose 

The  purpose  of  SUMS  is  to  compute  the  weighted  sum  of  squares  of  constraint 
misses  for  use  in  determining  constraint  miss  convergence. 

Description 

SUMS  is  called  from  TEST. 


FORTRAN 

SYMBOL 


MATH 

SYMBDL 


CODE 


DESCRIPTION 


STORAGE  SUBROUTINE  U5AGE 
BLOI^K  ' LOC-  SUBS  CODE  VAR 


NCNST 

n I Number  of  problti*  censtrolnt* 

/XC00E5/< 

132) 

6GET3 

1 

NCNST 

BST03 

I 

NCNST 

C0N3 

I 

NCNST 

P AY02 

I 

NCNST 

SOI  NP 

M 

NCNST 

suns 

I 

NCNST 

TEST 

,1 

NCNST 

TOPn 

I 

NCNST 

TRAN3 

I 

NCNST 

TOL 

I Tolercnco  on  constraint  nisses  CsdT 

/GENF  /< 

70) 

SDINP 

n 

TOL 

- 

SUNS' 

I 

TOL 

TEST 

i 

TOL 
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suns 


1. 

FUNCTION  SUnS  (DC 

1 

SUMS 

2. 

c 

COMN 

3 

c 

CONFUTES  5Ufl 

OF  SQUARES  OF 

C0N5TRAI 

NT  MISSES 

COHN 

4 . 

: 

FOR 

USE  IN  DETERMINING  C0NTRA1NT 

MISS  CONVERSANCE 

COMN 

5 

DIMENSION  0C<  1 > 

suns 

6 

common/gehf/ 

6ENF 

7 

• 0rtG(20>  ,OnGP(  20,2  >.  VARO(  9 ) 

,TOL( 9 > 

,SVARC  10> 

,UDC(  20) 

EENF 

8 

• A(  9,9) 

, ACON(  9 ) ,BC0N(9) 

.COTH  9, 

9)  ,0C0N(9J 

,DTP 

SENF 

9. 

• DTS 

,DT 

,G 

,DPSO 

,0 

,os 

EENF 

10. 

*R 

,RE 

, MACH 

,PA 

,R0 

^cs 

EENF 

11. 

* VNU 

.PAR 

,ROR 

,CSR 

. VNR 

, SUM50 

EENF 

12. 

•$V5Q 

.TIflEPH 

, TIMES 

, TOP 

,TOS 

,TRC9> 

EENF 

13. 

*T5T( 20  ) , TPH 

(20,015(20) 

, DIP!  201 

!t 

/“ 

EENF 

14. 

•TLPH 20 1 . TLS 1 

( 20  ),  DIP  l(  20  ) 

. DISK  20  ) .TIME 

,0flP 

SENF 

15. 

»TI MPR 

,LIFT 

, DRAG 

.TAX 

,TBURN 

,TBU(ZD) 

SENF 

16. 

*AE 

,FP 

. FPOLD 

, FPD 

t nACHR 

, MACHV 

EENF 

17. 

•OR 

,QV 

,FVAC 

, LIFTV 

EENF 

18. 

• LIFTfl 

.LIFTA 

ORAGV 

'DR AGR 

.DRAGA 

SENF 

19. 

* 

LIFTrt 

,OBR 

,0B 

,1SP 

,ISPF 

EENF 

20. 

* 

ulft 

. ULFT V 

.ULFTR 

,ULFTA 

EENF 

21 

• XFtCS 

,XnCGV 

,xmcgr 

,XrtCGA 

.xncen 

, COOAE 

EENF 

22. 

* CULFT 

,CT 

, CALPHA 

,CDE 

.DELTAS 

,sio 

EENF 

23 

* COD 

, 5 I DAE 

,xcg 

, ZCG 

,XJ 

EENF 

24 

connow 

/ GENF  / 

EENF 

25 

• XJV 

,XJR 

,GH 

, GAMMAD 

, XKS 

,XKP 

EENF 

26 

•PRATED 

.1RATED 

SENF 

27. 

•PI 

,P2 

,P3 

XK1 

. XK2 

, XK3 

SENF 

26. 

• XK1T 

, XK2T 

, XK3T 

, XK1D 

, XK2D 

, XK3D 

EENF 

29. 

• XK1  A 

. XK2A 

, XK3A 

. XK1 V 

. XK2V 

,XX3  V 

EENF 

30. 

•XK1G 

, XK2G 

, XK36 

, XK1P 

, XK2P 

, XK3P 

EENF 

31 

• XK1R 

. XK2R 

. XK3R 

, XK10 

, XK20 

,XK30 

SENF 

32 

• XK1U 

. XK2U 

, XK3U 

.xmn 

, XK2R 

,XK3M 

SENF 

33 

*PV 

PG 

.PP 

.PR 

,P0 

,DPDVC3,B) 

SENF 

34 

REAL 

LIFTR  . LIFT  . LIFTA. LIFT*  . 

MACH, 

niCHR, 

EENF 

35 

* ISP. 

1SPF.  MACHV 

•LIFTV  . IRATEO 

FRAT 

36 

DIMENSION  TPHK  10).TST1(  10) 

EENF 

37 

EflUI VALENCE(  TLP1 , 

Tr HI  ),<TLS1.TST1> 

EENF 

38 

common 

/XCODES/ 

XCODES 

39 

♦ ITQ 

(9),  ICOR 

( 20 ).  1T1 

, INTO 

, JGID(  20, 

ZJ.JPH  (20.2). 

XCODES 

40 

•JST  (20) 

, NCNST 

,N5B 

. NS  AB 

,NICNB 

XCODES 

91. 

• I20P 

,ICOP 

, IFAU 

. IFAR 

,IFB 

, I HD 

XCODES 

42. 

•IOPEN 

, I PH 

,I$PH 

, ISST 

. I ARC 

,ISTART 

XCODES 

43. 

♦ ITCT 

# ITER 

,IVAR 

,JK 

,iPS 

,JS 

XCODES 

44. 

• KOP 

,KPST 

,KST 

, NAD 

, NCASE 

XCODES 

45. 

• NCN 

.NEQB 

. NEQ 

,NOP 

,NPh 

> 

XCODES 

46 

• NST 

, IPST 

, IPRINT 

,ISTN 

. I PHN 

•ISTNB 

XCODES 

47 

•IPHNB 

, I BLK1 

, 1 BLK2 

.ISTOP 

.ISTPP 

»E 

XCODES 

48 

• IFOB 

,NB 

.LB 

.MB 

. NPHP 

,nphb 

XCODES 

49 

•NCTIN 

,NEQF  , 

1 LA3(  8),JPRP,J8ll,rtTT,nPIN(20),JPl, 

jp1,jp3 

XCOOES 

50. 

suns  = 

. 

suns 

51. 

DO  10 

1=1 .NCNST 

suns 

52. 

io  suns  = 

SUMS  ♦ ( DC<  I )/TOL(  1 1 )**2 

suns 

53. 

RETURN 

suns 

54. 

END 

suns 
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Subroutine  SYMYRT 


Purpose 

This  is  a utility  symmetric  matrix  inversion  routine. 

Description 

SYMVRT  is  used  to  invert  the  "A"  matrix  as  in  equation  12.  1-25  of 
Volume  1.  SYMVRT  is  called  from  several  routines  including  MTX, 
PAY02,  and  TRAN  3.  The  method  is  described  in  E.  Rodewig's  Matrix 
Calculus  (North  Holland  Publishing  Co.,  Amsterdam,  1956),  pp.  110-114. 
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SYrtVRT 


1. 

2. 

3 

4. 

5. 

6. 

7. 

8. 

9. 

10. 

n. 

12. 


SUBROUTINE  SYAVRTt  A,N, ISIN6) 

SY4*tTRIC  flATRI X INVERSION  ROUTINE 
USES  CH0LE5KY  ALGORITHM 
DIMENSION  At  9,  9),B<9  ),T(  91 
IX=N 
IS1NS=0 
DO  90  15=1 . IX 
TUD)=UO 
10rtl=I0-l 
I0P1=I0-*1 

lf{ I DUl >10,30,10 


SYAVRT 

CONN 

CO  AN 

CDAN 

SYAVFT 

SYftYRT 

SYAVRT 

SYAVRT 

SYftVnT 

SYAYST 

SYAVRT 

SYAVRT 


,533el 


13.  10  00  20  J=ID,IX 

14.  DO  20  K=i,lDftl 

15.  20  At 1D,J ) = A( 1D,J  )-ft< K,IO)»AtK,J )»T<  X ) 


5Y**RT 

SYAVRT 

SYAVRT 


20  I Ft A< ID, 10  ) )50, 40 . 60 


SYAVrT 


17. 

18. 


40 


1 S I NS=I 0 
GO  TO  210 


SYAVRT 

SYAYST 


19. 


50  T(I0)-“1.0 


SYAVRT 


20. 

21. 

22. 

23. 

24. 

25. 


60 


A(  1 D,  I D )=  SORTCftftSt A(IO.ID)))  »Tt  10) 
IFtI OP 1-IX)70, 70,100  


SYrfwST 

SYAyRT 


231wT 


TO 

80 


90 


DO  BO  JelOFl.IX 
A(  ID, J )=A( ID, J )/A( I D.ID) 
A<  10,ID)=A(Iu,ID)»T(  ID) 
CONTINUE 


SYAYRT 

SYAYRT 

SYAYRT 

SYflYRT 


26. 

27. 

28. 

29. 

30. 

31. 

32. 

33. 

34. 

35. 

36. 

37 

38 


39. 

40. 


100 


HO 

120 


A< IX,IX)=A( IX,IX)*T< IX) 
IXrtl-I X-l 
DO  120  1=1, IXAl 
11=1+1 

DO  110  J=I1,IX 
AII,J)=A(I,  j )/A(  I 1> 

ACI,I)=T<I  )/A(I,n 
A(  IX, IX)  =T  (IX)/ At  IX,  IX) 
DO  150  1=2, IX 
K=l+1 
I Al=I— 1 

00  150  L=l.lHi 

IF(  X-Il >130, 130, ISO 


no 

140 


D3  140  J=K  I X 

A(L,J  >=A(L,J  >‘A<  I.J  WAt  L, I ) 


SYAVST 

SYAVRT 

5YAYRT 

SYAVRT 

SYAVRT 

5YAVRT 

SYAVRI 

SYAVRT 

SYAVfiT 

SYAYRT 

5YAVRT 

SYAVRT 

SVAVRT 


5YAVRT 

SYAVRT 


3 


41.  150  At L, 1 >=— A( L, I )*Al 1,1) 

42.  DO  180  1=1, IX 

43.  BC 1 1=0.0 

44.  00  160  K=I,1X 

45.  160  B(  I >=B(  I J-*-At  J,K)+*2«T<K> 

46.  «=I+1 

47.  1 Ft  W-IX)170,170,l90  


48. 

49. 

50. 

51. 

52. 
53 


54. 

55- 


180 


no 

200 


DO  180  J=A,IX 
At  J, 1 )=0.0 
DO  180  K=J , 1 X 

A(  J,I  ) = A(J,I  )+At  I,K)*At  J,K)»T<*1 


DO  200  I=1,1X 
At  I,  I 1"B<I  ) 


210 


RETURN 

END 


SVrtVRT 

SYAVRT 

SYAVRT 

SYAYST 

SYAVRT 

SYAVnT 

SYAVST 


SYAVfiT 

5YAVRT 

SYAVRT 

SYAVST 


SYAVRT 

SYflVnT 


SYAYRT 

SYAVRT 
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Subroutine  TBLK 


Purpose 

Subroutine  TBLK  is  a single-argument  table  lookup  Using  linear  interpolation. 
Description 

This  linear  interpolation  routine  is  employed  for  starting -nominal  control 
tables.  It  saves  the  index  where  the  last  lookup  occurred.  TBLK  is  called 
from  GUID3, 
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AH 

I 

Ar  r ay 

for  storing  starting  control  history  tables 

/STS 

/( 

112) 

SD1NP 

I 

AR 

SDINP 

1 

III 

TBLK 

I 

AR 

1 AD 

I 

Startl 

ng  address  of  each  control  history  table 

/STS 

/( 

312  ) 

SDINP 

(1 

I AD 

T8LK 

I 

I AO 

INP 

I 

Index 

of  last  argument  of  each  control  history 

/STS 

/( 

332  ) 

SDINP 

11 

INP 

table 

TBLK 

I 

INP 

ISV 

11 

Saved 

Index  of  last  control  history  table  -look -tip 

/STS 

/( 

352  > 

SDINP 

0 

ISV 

TBLK 

n 

ISV 

30  OCT  72  G.01-N6 


1. 

L. 

3. 

4 

5 . 
6 . 

7. 

8. 

9 

10. 

11 


12. 

13. 


14. 

15. 


16 


17 

18. 


19. 


20. 


21 


22 


23. 

24. 


25 


26 

27 

28. 


29. 

30. 

31. 

32. 


SUBROUTINE  TBLK(  ICV,  ARB,  ANS ) TBLK 

connan/STS/  Sts 

♦OP  Af  ,PMIN  ,UCRK  (20KNU0S  ,1PC  (7), NITER  , STS 

*MNGA(  20,2 ),HNSP( 20,2 ) , AR<  200  >,  I A0(  20  ) , INPt  20 ) , I S V<  20  ) STS 

C SINGLE  ARGUMENT  T ABLE  LOOKUP  WITH  SAVED  INDEX  FOR  ASCENDING  ARGUMENT  TBLK 

1FCICV)  30,10 TBLK 

10  PRINT  20  TBLK 

20  FQRMATC 19H  DATA  CURVE  MISSING)  TBLK 

I I~LOCF( ICV  J TBLK 

CALL  lPKC7HLABEL0C,K,II,l,n  TBLK 

STOP TBLK 

30  CONTINUE  TBLK 

I F<  I AD(  ICVl.EO.lNPt  3 GV  > > 150,40 TBLK 

40  K=  1SV< ICV)  TBLK 

1F(ARS  -ftfilK))  50,  110,80 TBLK 

50  I F(  < K-2  ) . LT  I AD<  ICV)  >130,60 TBLK 

60  K=K-2  TBLK 

IFf  AR(  K ) -AR6)13Q, 110,50 TBLK 

70  K~K+2 TBLK 

80  IF(  ( K-»2).GT.1NPC  ICV)  ) 120,90 TBLK 

90  I F ( AR( K+2  )-  ARG)70,  100,  130  TBLK 

100  K = K + 2 — TBLK 

110  ANS=  AR(**1)  TBLK 

60  TO  140  TBLK 

120  K-K-2  TBLK 


130  ANS=  ftR(K-U)  ♦ < ARG  -AR(  K ) )♦(  AR{  K + 3 )-AR(  K+l  ))/(  AR<  K+2  >-  AR<  K ) ) TBLK 

140  1SV( ICV )=  K * TBLK 

RETURN  TBLK 


K=I ADI ICV) 

TBLK 

ANS=AR{  K > 

TBLK 

RETURN 

TBLK 

END 

TBLK 
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TEST 


Purpose 

TEST  evaluates  constraint  miss  and  performance  improvement  convergance. 
Description 

TEST  is  called  by  TOPM  (steepest  descent  executive  routine)  at  the  comple- 
tion of  each  trial  trajectory  to  determine  how  well  solution  convergance  is 
going.  When  difficulties  arise,  TEST  detects  them  and  prints  out  appro- 
priate messages.  Corrective  action  usually  is  a successive  step  size  scaling 
process.  When  difficulties  are  not  present,  TEST  calls  ADIC  to  initialize 
the  adjoints  for  the  next  adjoint  solution- iteration  sequence. 
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XBST  FLAXES 


ACON 

n 

Vector  of  naalnal  constraint  missel  ♦ PAYOFF 

/GENF 

/( 

190  ) 

CONS 

PI 

ACGN 

I PIP  ROVEPIENT 

TEST 

n 

ACON 

BCON 
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/GENF 

/< 

S 73  ) 

GETIT 

I 

0IS1 

SDINP 

PI 

DISI 

TEST 

0 

DIS1 

TOPPI 

I 

DISI 

TRAN3 

I 

0IS1 

DP  AY 
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OUT  I ITCT 
T£5T  P!  ITCT 
TOPH  It  ITCT 

/XCOOES/t  1A9)  AST 3 I ITER 
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TRTOSZ 

i 

SVAR 

5 VSB 

n 

Same  as  sumsq  but  saved  for  nominal  trajectory  L s d 3 
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TRTOSZ 

1 

TSTl 

VARS 

<VARQ> 

I 

Desired  constraint  values  Esd] 

/GENF 

/< 

61  ) 
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.UNOt. 

SPLICO 

0 

.UNOt 

SPLIZ 

0 

•UNOt. 
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.1PC 

( 7 ).  NITER 

, STS 

58. 

*flNGft(  20,2) 

. PIN  G P C 20 , 

2)  . AR( 200  ). 1 AD( 20  ) . 1 NP( 20 ) . 1 SVC  20  ) 

# STS 

59 
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CONTINUE 

TEST 

' — r 

165 

0CON( NCN>=  OPAV 

TEST 

, I 

166 

220 

CONTINUE 
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COHN 

171. 

ITER  -2 

TEST 

172. 

I20P  = 1 

TEST 

173 

SVSfl  = SUKSO 

TEST 

174 

SO  TO  370 

TEST 

175 

230 

ITER=2 

TEST 

176 

SVSO=  SUHSQ 

TEST 

177 

60  TO  370 

TEST 

178 

c 

VI 

COHN 

179 

c 

OPTIMIZATION  PASS  CHECKING 

TEST 

180. 

240 

CONTINUE 

TEST 

161 

c 

VI  -A  IS  PAYOFF  IMPROVING  , YES  SO  TO  VJ-C,N0 

GO 

TO  VI-8 

COHN 

182 

IFI S1S*UC0N< NCN)-  AC3N< NCN) > >250 .250.260 

TEST 

260 

163 

c 

VI-B  SCALE  ODUN  AStEO  FEfi  PAY3FF  WR0VEA6NT 

COHN 

184 

250 

NOP  =N0P*1 

TEST 

185 

I F( KOP+NOP  LE  7}  SO  TO  255 

AAA 

255—1 

186 

IFCITCT  GT  8)  BO  TO  470 

AAA 

187 

IF<  ABSC  OCON{NCN)).LT.1'.*P*I«1  GO  TO  470 

AAA 

{ 

183 

255 

CONTINUE 

AAA 

189. 

DCON( NCN )=OCONI NCN )« . 707107 

TE5T 

190. 

WRITE! 6.530 ) 

OS 

191 

RETURN 

TEST 

192 

260 

CONTINUE 

TE57 

193 

i Ft  1 20P  £0-3)  SO  TO  280 

\ 

TEST 

280 

194 

c 

VI-C  *** 

COHN 

195 

c 

CHECK  FOR  CONSTRAINT  VIOLATIONS 

TE5T 

196 

c 

IF  NONE  60  TO  VI-D  ELSE  BO  TO  VI-E 

COHN 

197 

DO  270  1 = 1 , NCNST 

TEST 

198 

IF( ABS( BCONC I ) ) ST  TOL( I ))  60  TO  320 

TEST 

199. 

270 

CONTINUE 

TEST 

200 

SO  TO  300 

TEST 

300— | 

201 

280 

00  290  1=1, NCNST 

TEST 

202 

IF<  ABSl  BCONU  >)  GT.T0HI1/2.I  SO  TO  320 

TEST 

3 

203 

290 

CONTINUE 

TEST 

204. 

c 

VI-0  SET  UP  NOMINAL  CONSTRAINT  MISSES  AND 

PAYOFF 

COHN 

205  > 

c 

FOR  NEXT  ITERATION  50  TO  YllI 

COHN 

206 

3G0 

CONTINUE 

TEST 

207 

00  310  1=1, NCNST 

TEST 

208 

ACONt I > = BCON(  I ) 

OS 

209 

0C0N( I )=8C0Nl I 1 

OS 

210 

310 

CONTINUE 

TEST 

211 

ITER  -2 

TEST 

212 

AC0N(NCN1  = BC0N(  NCN) 

TEST 

213. 

NCN  = NCNST+1 

TEST 

370- 


370- 


250-H 


470- 

470- 


320—1 


20  OCT  72  S.D1-46 


720 


20  0: 


u 


» \ 1 
M? 

m 

co  1 fi  4 5 * 

7!  r VfOlMPO  ON  OP  U 7*  7 J QN  ? ASS 

SfALE  notdfj  PAYOFF  InPRDVErtENT  RETURN 

irw 

ro»iN 

can* 

2 i J 

~320 

KDP  = KOP  +1 

TEST 

218. 

1F< KDP  S6  5)  GO  TO  *90 

TEST 

*90 

219 

IF(  KOP-*NDP.GE  7)  GO  TO  *90 

TEST 

S9G 

220. 

OCON(  fJCN)  = OCON(  WON)*  707107 

TE5T 

221. 

UBITEC 6.5*0  > 

OS 

222. 

RETURN 

TEST 

223 

C 

VIII  •* 

Cohn 

22s. 

C 

DPT  1 HIZATION  U1TH0UT  CONSTRAINTS 

TEST 

225. 

c 

VII -A  EVALUATE  PAYOFF  AND  DETERMINE  IF  IT 

HAS 

COHN 

220. 

c 

I nPROVED  IF  NOT  SCALE  OOUN  ,0K  GO  TO 

vii-b 

COHN 

221 

330 

CONTINUE 

TEST 

226. 

CALL  CGN( 1.0) 

TEST 

224. 

I F(  SIS*<  0CON(  I l-ACONT  1 ) ))  3*0,350,350 

TEST 

3*0— 1 

230. 

3*0 

NOP  - NOP+l 

TEST 

231. 

I F( NOP .GE-5  ) GO  TO  *70 

TE5T 

232 

DCONl  1 )-DCQN(  l )♦  707107 

TEST 

233 

UBITEC  6.530 ) 

OS 

23*. 

RETURN 

TEST 

235. 

350 

CONTINUE 

TEST 

236. 

c 

VIl-6  SET  UP  N0P11 NAL  PAYOFF  FOR  NEXT  ITERATION 

COHN 

237. 

ACQN(  1 )=BCON(  1 ) 

TEST 

238. 

ITER  =2 

TEST 

239. 

NON  "I 

TEST 

2*0. 

c 

COHN 

2*1. 

c 

VIII  SET  UP  DATA  FOR  NEXT  ITERATION 

COHN 

2*2. 

c 

SAVE  ARC  AND  PHASE  TIMES  .SCALE  CONTROL  P1ETRI C (PSISQ) 

COHN 

2*3 

c 

SAVE  NOrUNAL  FARAHETER  VALUES 

COHN 

2**. 

350 

CONTINUE 

TEST 

2*5. 

370 

PSI $Q=PS I SQ/( 2 0**t KCP+NOP >> 

TEST 

2*6 

UORK<  5 )=U0fl<(  5 )*( .707107  >**(  KOP+NOP ) 

TEST 

2*7 

380 

CONTINUE 

TEST 

2*8 

IFCNPARA  ST . 0 ) CALL  PRHSETC  0 ) 

TEST 

2*9. 

KOP  “ 0 

OS 

250. 

NOP  = 0 

OS 

251. 

IFCN5T  EO  1)  SO  TO  *00 

TEST 

*00— 

252. 

DO  390  1=2  NST 

TEST 

253. 

DISK  I )=TST<  I ) 

TEST 

25*. 

390 

TST1C I )=TST{ 1-1 ) 

TEST 

255. 

*00 

TSTU  l > -SVARC  1 ) 

TEST 

256. 

DISK  1 )=TSTC  1 ) 

TEST 

257. 

IFCNPH.EQ  1)  GO  TO  *20 

TEST 

*20— 

258. 

DO  *10  1=2, NPH 

TEST 

259. 

0IP1C  I )=TPHt  I ) 

TEST 

2 6G . 

*10 

TPHK  I )=TPH[  1-1  ) 

TEST 

1 

261  . 

*20 

TPHU  1 )=5VAR(  1 ) 

TEST 

262. 

0IP1C  1 >=TPH(  1 ) 

TEST 

263. 

IFC INTB  NE .2  ) GO  TO  *30 

TEST 

*30— 

26* 

I=NSB+NSAB4i 

TEST 

265 

TSTH  I >=TSTCNSB> 

TEST 

266. 

TPHK  NPHP  )=TPH(NPHB) 

TEST 

267. 

c 

IX  TEST  IF  ITERATIONS  ARE  EXCEEDED  IF  YES 

CALL  FOR 

COHN 

268. 

c 

SOLUTION  TRAJECTORY  ELSE  GO  TO  X 

COHN 

269. 

*30 

CONTINUE 

TEST 

270. 

ITCT  -ITCT  *1 

TEST 

271. 

IFCITCT.GT  NITER)  GO  TO  **0 

TEST 

s*c— 

272. 

c 

X CALCULATE  ADJOINT  INITIAL  CONDITIONS 

COHN 

273. 

CALL  AOI C 

TEST 

27*. 

RETURN 

TEST 

275. 

S*Q 

ITER =3 

TEST 

276. 

RETURN 

TEST 

277. 

c 

ERROR  RETURNS 

TEST 

278. 

*50 

URI TE( 6*60) 

05 

279. 

*60 

F0fiHAT<33HG  UNABLE  TO  SATISFY  CONSTRAINTS 

) 

OS 

280 

SD  TO  510 

TEST 

51C — 1 

281 

*70 

UR  I TEC  6 , * 8 0 J ACGNC NON ) , BCONC NCN ) 

as 

282 

*80 

FORMAT  <18H  NOMINAL  PAYOFF=  E20.XC,17H  TRIAL  PAYOFF=  E26.10/, 

TEST 

31,0-! 
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510  ISTART  =5 

IF(NPARA.6T  0)  CALL  PR<<ISET<1  > 

RETURN 

520  FORMAT  ( 53H  TRIAL  CONSTRAINT  MISSES  DIO  NOT 
530  FORMAT  (A5H  TRIAL  PAYOFF  010  NOT  IMPROVE 


5l0  FORMAT  (50H 
END 


CONSTRAINT  TOLERANCES  EXCEEDED 


DECREASE  1/2  OQfatN) 
1/2  DOfaiU) 
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FUNCTION  T0LPSI 


Entry  Point  SETTOL 


Purpose 

T^LPSI  supplies  a preset  constraint  tolerance  to  SDINP  during  the  boundary 
condition  scan. 

SETT0L  is  an  entry  point  which  permits  update  of  preset  constraint 
tolerances. 
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TOLPSI 


1. 

FUNCTION  TOLPSK  1) 

TOLPSI 

2 

C 

conN 

3. 

C 

PRESET  DATA  FOR  CONSTRAINT 

MISS  TOLERANCES 

COHN 

9. 

C 

COHN 

5. 

DIMENSION  TALI  36  >,  III),  ITU  J 

RETAP 

6. 

EDUIVAIENCE  (IT. TALI 

RETAP 

7. 

C 

SETS  CONSTRAINT  MISS  TOLERANCES 

RETAP 

8. 

C 

TAU  V 

SA(1 

ALT 

HASS 

RETAP 

9 

OATA  TAL  / 

0.  . 20. 

, .01 

, 2000. 

, -2 

RETAP 

10. 

C 

PSI  RHO 

nu 

TIftE 

HEATLD 

RETAP 

11. 

* 

.07  001 

, 001 

/ 

, 10. 

RETAP 

12. 

C 

50UIS  VI 

SARI 

PS  1 1 

*UI 

RETAP 

13. 

» 

20  , 20 

, .01 

, -07 

, .001 

RETAP 

19. 

C 

SEni  LAT  ECC 

INCL 

ARGP 

ASCNOO 

RETAP 

15. 

* 

10000.  , . 00C25 

, -01 

, .01 

, .001 

RETAP 

16. 

C 

SEAT  nAJ  AP05EE 

PERSEE 

anonly 

CAP  X 

RETAP 

17. 

* 

10CC0  f 10GGO 

, 1GOGO. 

, .01 

. 10000. 

RETAP 

18. 

C 

CAPY  ASSVR 

ENERGY 

flQRENTUn 

SO 

RETAP 

19. 

* 

10000.  , .01 

, 1 E5 

, 1 -E5 

, 6000. 

RETAP 

20. 

C 

SC  STOT 

Q 

HTOOT 

REY 

RETAP 

21. 

* 

6000.  , 6000. 

, .5 

, -1 

, 200. 

RETAP 

22. 

c 

FUEL  WT 

RETAP 

23. 

♦ 30.7 

APR  72 

24 

TOLPSI  = TftUI  > 

TOLPSI 

25. 

RETURN 

TOLPSI 

26. 

c 

DVERIOE 

PRESET  DATA  WITH 

INPUT 

RETAP 

27. 

ENTRY  SETTOL 

RETAP 

28. 

DO  10  J=l,36 

RETAP 

29. 

IF(  It  J 1 ME . Q ) 

IT(J>  = J(J) 

RETAP 

30 

10  CONTINUE 

RETAP 

31 

SETTOL  = 0. 

RETAP 

32. 

RETURN 

RETAP 

33. 

END 

TOLPSI 
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FUNCTION  TOL  3 


Entry  Points.  TOLF,  TOLPH 


Purpose 

Function  TOL  3 sets  up  data  for  cut-off  refinement  during  the  forward 
trajectory. 

Description 

Entry  points  TOLF  and  TOLPH  are  called  from  FNTG  during  arc  and  phase 
cut-off  refinement  calculations. 
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FORTRAN  NATH 

SYNBOL  SV  NBOL 


COOE 


DESCRIPTION 


S T OR  ARE  SUBROUTINE  USAGE 

BLOCK  LOC  SUBH  COUE  VAR 


FP 

I 

Current  value  of  cut-off  function  - non-llne*r  only 

/GENF  /< 

521 ) 

DTF3 

I 

FP 

S TP  3 

1 

FP 

T 0L3 

I 

FP 

VREF3 

1 

FP 

FPOLO 

0 

Value  of  non-linear  cut-off  function  at  prior 

/ GENF  /( 

522} 

0TF3 

I 

FpOLD 

coapute  interval 

STP3 

0 

FPOLD 

T0L3 

0 

FPOLD 

YREF3 

1 

FPOLO 

I VAR 

1 

Cut-off  variable  option  indicator 

/XCODES/t 

150) 

FNTG 

n 

I VAR 

STP3 

0 

1 VAR 

T0L3 

i 

I VAR 

JPS 

I 

Absolute  value  of  phase  cut-off  option  code 

/XCOOES/< 

152) 

A0IO3A 

I 

JPS 

BNTG 

n 

JPS 

FNTG 

n 

JPS 

5TP3 

i 

JPS 

T0L3 

i 

JPS 

J5 

I 

Absolute  value  of  arc  cut-off  option  code 

/XCOOES/I 

153) 

A0ICB3 

N 

JS 

ADIC3A 

I 

JS 

ADID3A 

I 

JS 

BNTG 

N 

JS 

FNTG 

n 

JS 

PROP  B 

i 

JS 

PROPIN 

i 

JS 

STP3 

i 

JS 

T0L3 

i 

JS 
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T0L3 


FUNCTION  T0L3(C) 

SET  -UP  DATA  FOB  CUT-OFF  REFINEMENT 


COMMON/ GENF/ 


♦0mS(2O) 

, OnGP( 20,2) 

,YARO<  9) 

,TOL( 9 ) 

.SVARC 10) 

, UDC( 20 ) 

♦ A( 9,9  > 

, ACON( 9) 

, BCONl 9 ) 

,C0TI( 9,9  ) 

,DCON(  9 ) 

, DTP 

♦ DTS 

,DT 

,G 

, DPSO 

,0 

'as 

♦R 

,RE 

,MACH 

,PA 

,R0 

,cs 

♦ VNU 

,PAR 

, ROR 

, CSR 

, VNR 

.SUrtSC 

♦ SVSQ 

. T 1MEPH 

, TIMES 

,TOP 

,TOS 

, TR( 9 ) 

♦TST(20> 

, TPH  < 20  ) 

.015(20) 

, DI P( 20  ) 

,T 

,W 

♦ TLPH20) 

, TlS 1 (201 

DIP  K 20  ) 

, DISK  20) 

.TIME 

,OMP 

♦T1MPR 

, LIFT 

.DRAG 

.TAX 

,TBURN 

TBU(  20) 

♦ AE 

♦ OR 

♦ LI  FTP 

, FP 
,QV 

. LI FTA 

, FP  0 LD 
,FVAC 

, FP  D 
, LIFTV 
DRAGV 

, HACHR 
'ORAGR 

, nacHV 

, DRA6A 
, J$PF 
, ULFT A 

#■ 

* 

UFTM 

'qbr 

ULFT 

, DB 

, ULFTV 

,ISP 
, ULFTR 

♦ xncG 

, XflCGV 

,XP1CGR 

, XMCGA 

,xncGn 

, COD AE 

♦CULFT 
♦ COD 

common 

/ 

, CT 

,$ 1 DAE 
GENF  / 

, CALPHA 
, XCG 

, CDE 
, ICG 

.DELTAS 

,S10 

♦ XJV 
♦PRATED 

,XJR 
, IRATED 

,GH 

, GAMflAD 

, XKG 

, XKP 

♦PI 

,P2 

>3 

, XK1 

,XK2 

. XK3 

♦ XK1T 

, XK2T 

, XK3T 

, XK1D 

, XK2D 

, XK3D 

♦ XK 1 A 

, XK2 A 

, KK3A 

, XK1 V 

, XK2V 

, XK3V 

♦XK16 

, XK2G 

, XK3G 

, XK1P 

,XK2P 

, XK3P 

♦ XK  1R 

, X K2R 

, XK3R 

, XK10 

, XK20 

, XK30 

♦ XKIU 

, XK2U 

, XK3U 

, XKlPl 

,XK2M 

, XK3M 

♦ PV 

.PP 

,PR 

,P0 

, OPDYl 3, 8 ) 

REAL  LIFTR  , LIFT  , LI FTA, LI FTM  , 
♦ ISP,  I SPF,  rtACHY,  LI FTV  , IRATED 
DIMENSION  TPHH  10>,TSTK  10) 
EQUIVALENCE! TLPl.TPHl  ),(TLS1,TST1  ) 
COMMON  /XCODES/ 

MACH, 

MACHR, 

♦ ITQ 

( 9 ),  I COR  (20) 

,111 

, INTB 

, JG1 D( 20, 

2 ), JPH  (20,2) 

♦JST  (20) 

NCN5T 

,NSB 

,NSAO 

. NI CNB 

♦ I20P 

,ICOP 

, I F AU 

,IFAR 

JlFB 

, I ND 

*1  OPEN 

, I PH 

. ISPR 

, 1 5ST 

. I ARC 

, 1 START 

♦ ITCT 

.ITER 

, 1 VAR 

,JK 

,JPS 

,J5 

♦ KDP 

,KPST 

,K 

,KST 

.NAD 

, NCA5E 

♦ NCN 

, NEQB 

, NED 

, NOP 

, NPH 

,N 

♦NST 

,IPST 

.IPRINT 

, I STN 

,IPHN 

. ISTNB 

♦IPHNB 

, I BLK 1 

, 1 BLK2 

, 1 STDP 

, ISTPP 

, L 

♦ I FOB 

,L» 

.MB 

, NPHP 

, NPHB 

i ” .iicwr  .1 

COnnOW/ST  ATE3/ 
♦VARt  1*0  , DVAR  ( 

♦XL(  9 9)  , Y DP  ( ZO 

♦5INPS1  , C0SPS1 

♦ SVBY  < 9 ) , OttE  GA 


♦ VDV 

♦ UDV 

♦ UOG 
♦UOR 

♦ GDP 

♦ POO 

real  non 


, GOV 
, VOG 
, VDR 
,VDM 
, POP 
,UCO 

, MOV,  ADR 


i,  VARL  ( 99) 

,DVARL(  99) 
,COSGAM 

, Y0( 9 ) 

,5VY( 10) 

YDS  (20,9) 

, SI NGAM 

,SAVBP< 15 ) 

.SINRHO 

, CQSRHO 

,OCORHO 

, 0C0R02 

,0ME6AZ 

, 

,RDV 

, MDV 

,POV 

, ODV 

, GDG 

,RDG 

, PD6 

,006 

, SDR 

,nDR 

,PDR 

, ODR 

,6DM 

,non 

,pdd 

, VOP 

,ODP 

,UDP 

, VDO 

, GDO 

, HTDV 

, HTDR 

COPWON/STATE3/ 

♦SIN2R0  CDS2R0  ,C0S2G« 
ENTRY  TOLF 

I F« I VAR  GT  71  GO  TO  10 
TDL3=1 

RETURN 

10  HO =3 

FPOLO-  FP 

CALL  PDBC<  JS,FP,S,SD,0,m)> 
TQL3  =1. 

RETURN 

ENTRY  TOLPH 

IF( IVAR.GT.7)  GO  TO  20 

T0L3=1 

RETURN 


T0L3 

COfiN 

COMM 

COMN 

GENF 

GENE 

6ENF 

GENF 

6ENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

6ENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

GENF 

FBAT 

GENF 

GENF 

XCODES 

XCODES 

XCODES 

XCODES 

XCOOES 

XCOOES 

XCOOES 

XCOOES 

XCOOES 

XCODES 

XCOOES 

XC0DE5 

5TATE30 

STATE30 

STATE3D 

STATE30 

ST  ATE3D 

STATE30 

STATE3D 

STATE30 

STATE30 

STATE30 

STATE30 

STATE3D 

STATE30 

STATE30 

TQL3 

TOU 

T0L3 

T0L3 
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20  FPQLO  = FP 
flOsQ 

CALL  PDBC<JPS,FP.5,S0,0,*0> 

T0L3  =1. 

RETURN 

END 
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TRAN  3 


Purpose 

TRAN3  computes  transformed  adjoints  to  serve  as  approximations  for 
Euler- Lagrange  Multipliers.  This  approximation  is  used  as  a starting 
solution  for  the  quasi-linearization  module. 

Description 

The  equations  for  TRAN3  are  described  in  Section  14  of  Volume  I. 
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FORTRAN  HATH 

SYMBOL  SYMBOL 

A A 

COT  I 
DIS1 

FT  l ME 
I NTB 

ISTN 

NON 

NCNST  n 


coof DESCRIPTION 

I Control  Integral  matrix 

(1  Temp  storage  for  a matrix  also  called  8 matrix 
I Arc  initial  times  for  nominal  trajectory  tsdl 

1 Time  at  which  trajectory  data  set  Is  stored 

(SEC) 

I Branching  and  intermediate  constraint  flag 

I Stored  history  data  arc  number 
I Number  of  elements  in  it 


I Number  of  problem  constraints 


STORAGE  SUBROUTINE  USAfi 

BLOCK  LOC  SUBR  CODE 


/GENF  /( 

109) 

ADEQ  3 A 

0 

A 

A0ICB3 

n 

A 

BGET3 

0 

A 

BNTG 

i 

A 

BST03 

i 

A 

MTX3A 

i 

A 

PAY02 

I 

A 

SOINP 

i 

A 

TRAN3 

i 

A 

/GENF  /( 

208  ) 

A01CB3 

pi 

COT  I 

MTX3A 

pi 

B 

TRAN3 

pi 

COT  1 

/GENF  /( 

973) 

GETIT 

i 

0IS1 

SOI  NP 

pi 

01  SI 

TEST 

0 

D1S1 

TOPM 

5 

DIS1 

TRAN3 

I 

0IS1 

/RETREV/< 

1 ) 

ASETB3 

0 

FTIP1E 

AST  3 

0 

FT  I ME 

GETIT 

I 

FT  I ME 

TRAN3 

I 

FTIME 

/XCODES/l 

31) 

A0IC3A 

I 

I NTB 

BNTG 

I 

I NTB 

ENVPRM 

I 

I NTB 

FNTG 

I 

1 NTB 

SO  I NP 

PI 

I NTB 

TEST 

I 

I NTB 

TRAN3 

I 

I NTB 

TRTOSZ 

I . 

I NTB 

/XCOOE5/( 

169) 

ASETB3 

0 

ISTN  - 

AST3 

0 

ISTN 

6ETIT 

I 

ISTN 

TKAN3 

I 

ISTN 

/XCODES/l 

160) 

A0EQ3A 

I 

NCN 

A0ICB3 

I 

NCN 

ADIC3A 

I 

NCN 

A0ID3A 

I 

NCN 

ADJUST 

I 

NCN 

AST3 

n 

NCN 

BNTG 

i 

NCN 

BST03 

i 

NCN 

MTX3A 

i 

NCN 

OUT 

i 

NCN 

PAY02 

M 

NCN 

TEST 

n 

NCN 

TOPPI 

I 

NCN 

TRAN3 

I 

NCN 

TRT05I 

I 

NCN 

/XCODES/l 

132) 

BGET3 

I 

NCNST 

BST03 

I 

NCNST 

CQN3 

I 

NCNST 

PAY02 

I 

NCNST 

SDINP 

pi 

NCNST 

SUMS 

1 

NCNST 

TEST 

I 

NCNST 

TOPPI 

I 

NCNST 

TRAN3 

I 

NCNST 
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FORTRAN 

SYMBOL 


NED 


NEQF 


NICNB 


NSAB 


NSB 


NST 


5 IG 


TR 

TST1 


HATH 

SYMBOL 


COOE 


DESCRIPTION 


1 Number  of  Integrated  states 


0 Number  of  equations  to  be  integrated  on  forward 
trajectory 


I Number  of  constraints  at  intermediate  constraint 
point  or  at  end  of  first  branch 


I Number  of  arcs  on  first  branch 


I Number  of  arcs  prior  to  branch  point  or 
intermediate  constraint 


I Number  of  arcs  in  trajectory 


I Payoff  sign 

S I G < 0.  Payoff  to  be  minimized, 

SIG  > 0 Payoff  to  be  maximized. 

PI  Vector  modifier  of  impulse  response  function  in 
control  calculation 

I Arc  end  times  for  nominal  trajectory 


$ TOR  AGE  SUBROUTINE  U5QGE 

810 U LOC  SUdA  COOE  VAR 


/ XC00E5  /( 

162  ) 

A0ICB3 

I 

NED 

AO  I C3  A 

I 

NEC 

ADID3A 

I 

NED 

AGETB3 

I 

NEC 

AST3 

I 

NEB 

BGET3 

I 

NEC 

BST03 

I 

NEC 

PITX3A 

I 

NEC 

OUT 

1 

NEC 

REU3 

I 

NEC 

SDER3 

l 

NEO 

501  NP 

N 

NEC 

TQPPI 

I 

NEC 

TRAN3 

1 

NEO 

YREF3 

I 

NEO 

/XC00ES/< 

185  ) 

REU3 

l 

NEOF 

RKTA3A 

I 

NN 

SD1NP 

0 

NEOF 

5TAU 

1 

NEOF 

TOPM 

0 

NEOF 

TRAN3 

0 

NEOF 

/XC00ES/< 

135  ) 

A0ICB3 

I 

NICNB 

A0IC3A 

I 

NICNB 

BNTG 

I 

NICNB 

REU3 

1 

NICNB 

50 1 NP 

fl 

NICNB 

TEST 

I 

NICNB 

TRAN3 

I 

NICNB 

/XCBDES/t 

134) 

A0ICB3 

I 

NSAB 

BNTG 

I 

NSAB 

ENVPRPI 

I 

NSAB 

FNTG 

I 

NSAB 

SDINP 

N 

NSAB 

TEST 

I 

NSAB 

TRAN3 

I 

NSAB 

TRTOSZ 

I 

NSAB 

/ XCDOES /( 

133) 

AD1CB3 

I 

NSB 

BNTG 

I 

NSB 

ENVPRH 

I 

NSB 

FNTG 

1 

NSB 

REU3 

I 

NSB 

SDINP 

PI 

NSB 

TEST 

I 

NSB 

TRAN3 

I 

NSB 

TRTOSZ 

1 

NSB 

/ XCQ  DES/( 

166  > 

BNTG 

1 

NST 

FNTG 

0 

NST 

PROPB 

1 

NST 

SDINP 

I 

NS 

SDINP 

n 

NST 

TEST 

i 

NST 

TOPD 

i 

NST 

TRAN3 

I 

NST 

/GL0BAL/( 

65  ) 

PAYOZ 

i 

SIG 

SDINP 

n 

SIG 

TEST 

I 

SIG 

TRAN3 

I 

SIG 

/GENF  /( 

322  ) 

MTX3A 

n 

TR 

TRAN3 

pi 

TR 

/ GENF  n 

433  ) 

BNTG 

i 

TST 1 

GET  1 T 

i 

TST 1 

PROPIN 

i 

TST1 

SDINP 

0 

TST1 

TEST 

0 

TST  1 

TDPP1 

i 

TST1 

TRAN3 

l 

TST  1 

TRTOSZ 

i 

TST  1 
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FORTRAN 

SVnftOL 


fiaih 

syfibol 


CODE 


DESCRIPTION 


UBRQUIINE  US  ft  Gl 
SU6R  CODE  VAR 


S I OR  AGE 
BlC-X  LOC 


VARL 


XL 


XLAFIA 


XLAFIP 


FI  Array  of  variables  for  adjoint  Integration 


FI  Flatrti  of  adjoint  variables 


FI  Inpulse  response  function  coluen  vector  associated 
tilth  angle  of  attack 


FI  Impulse  response  function  coluna  vector  associated 
Kith  bank  angle 


/STATE3/1  29  I A0E03A  I VARL 
ADICB3  0 VARL 
A01C3A  0 VARL 
PROPIN  I ZZ 
RKTA3A  FI  F 
RKTB3A  FI  V 
STVHL3  0 VARL 
TRANS  FI  VARL 

/STATES/!  2A6)  A0E03A  FI  XL  • 
A0ICB3  FI  XL 
A01C3A  FI  XL 
A0ID3A  FI  XL 
AST3  FJ  XL 
BGET3  0 XL 
BST03  I XL 
FITX3A  I XL 
OUT  I XL 
STAU  FI  XL 
STVRL3  I XL 
TRAN3  FI  XL 

/ AEC03  /(  16)  ADEQ3A  FI  XLAFIA 

ADI  C3A  0 XLAFIA 
AST3  0 XLAFIA 
BGET3  0 XLAFIA 
BST03  FI  XLAFIA 
FIT  X3A  I XLAFIA 
TRAN3  M XLAFIA 

/ AECQ3  /(  25)  ADEQ3A  FI  XLAFIP 

ADIC3A  0 XLAFIP 
AST3  0 XLAFIP 
BGET3  0 XLAFIP 
BST03  FI  XLAFIP 
F1TX3A  I XLAFIP 
TRAN3  FI  XLAFIP 
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7flS 


TRAN3 


1. 

PROGRAM  TRAN3 

TAAN3 

2 

C 

COMM 

3 

C 

COMPUTED  TRANSFORMED  AQJOINTS  TO  SERVE  AS 

COHN 

9. 

c 

APPROXIMATION  FOR 

EULER 

LAGRANGE  MULTIPLIERS 

comn 

5. 

CO  MMON/ST  ATE3/^ 

STATE30 

6. 

♦ VARl 19  ) 

. DVftR  ( 19). VARL  (99)  , DVARH  99  ) 

,YD<  9) 

,SVY(  10) 

STATE30 

7. 

♦ Xl(  9 9) 

. YOP(  20, 9 ) 

, YDS  (20 

, 9 ), COSGAM 

,SINGAM 

5 AVBP( 15) 

STATE3D 

8. 

♦S I NPS1 

,CO$PSI 

,SINRH0 

COSRHO 

, OCORHO 

, 0C0R02 

STATE30 

9 

♦ SVBV  (9 

>, OMEGA 

, 0MEGA2 

5TATE3D 

10. 

*VDV 

, GDV 

,RDV 

'mdv 

,PDV 

,oov 

STATE3D 

11. 

♦ UDV 

, VDG 

, GDG 

,ROG 

,POG 

, OOG 

STATE30 

12 

♦UDG 

, VDR 

, GDR 

, MDR 

,POR 

, DDR 

STATE30 

13. 

♦UOR 

, von 

, GDM 

, non 

, PDM 

, VDP 

STATE3D 

19 

♦ GDP 

, PDP 

, OOP 

. UDP 

,voo 

,GDO 

STATE3D 

15 

♦POO 

,UDO 

,HTDV 

, HTDR 

STATE3D 

16. 

Real  now 

. mdv,  mor 

STATE30 

17 

COrmON/STATE3/ 

STATE3D 

18 

• SINZRO 

.C0S2R0 

, C0S2GM 

5TATE3D 

19 

COMMON/AEC63/ 

AEC03 

20. 

♦ APHO 

, APHR 

f ALPHA 

# VO  A 

,00a 

.PDA 

AEC03 

21 

♦SINA 

. COSA 

, PHI  G 

, PHI  0 

, PHI 

.SINPHI 

AEC03 

22 

♦CQSPHI 

, GDPH 

. POP  H 

,XLAMA(9) 

,XLAMP(  9) 

,coo 

AEC03 

23 

♦ coon 

, CLO 

,FK 

,XCGM 

, ZCGfl 

.CLOPI 

AEC03 

29. 

♦ Cm 

. CMA 

.CMAM  , 

CMM  ,cno 

,cnon 

, FKM 

AEC03 

25 

♦CLA" 

, CL 

;cla 

,CLM 

, 

AEC03 

26. 

♦ CD 

, CDA 

, COM 

AEC03 

27. 

COMMON/GLOBAL/ 

GLOBAL 

28. 

*GR 

, EH 

, QMGZ 

, XLAMRF 

. YflURF 

, LUn 

GLOBAL 

?9 

*,JJQP< 10) 

, JFATAL 

, NARC 

, N8R AN 

, NFARC 

, I D(  9 ) 

GLOBAL 

30. 

*,KTAB( 20  ) 

IT  A6( 20 ) 

,£lG  , 

MAXTAB 

GLOBAL 

31. 

*,Gtn 

, P5IRF, IPFLGl, 

lPf LG2, IPFL63, 

IPFL69,INEBFU20) 

GLOBAL 

32.  ♦ , ITPSO  , K$Q  L , KGLOBLt 6 ) AETAP 

33.  COMMON/STS/  STS 


39. 

♦DPAY 

, PMI N 

, WORK  (20), 

NWDS 

,IPC  (7). NITER 

STS 

35. 

*MNGA(  20. 

2 ) , MNGP( 20 

,2)  , AR( 200 ), I 

RQ(  20  . 1 NP(  20, 1 SV(  20  ) 

STS 

36 

COMMON/GENF/ 

GENF 

37 

*OMG(  20  ) 

,OMGP( 20 

,2),VARQ(9) 

,TOL(  9) 

, S VAR( 10) 

, WOC( 20  ) 

GENF 

38. 

♦ A(  9,9  ) 

, ACON(  9) 

, BCQNC  9 ) 

,COTI( 9,9  ) 

,0C0«(  9) 

, DTP 

GENF 

39. 

*DT$ 

,0T 

,G 

, DPSQ 

, Q 

,QS 

GENF 

90 

♦R 

,R£ 

, MACH 

,PA 

,R0 

,CS 

, 

GENF 

91 

♦ VNU 

,PAR 

, RQR 

, CSR 

, VNR 

,sunso 

GENF 

92. 

♦SVSQ 

.TIMEPH 

.TIMES 

,TOP 

,TOS 

,TR( 9 ) 

GENF 

93. 

♦TST<  20 ) 

,TPH  ( 20 ), 01 $( 20  ) 

, 01 P( 20  ) 

Jt 

GENF 

99. 

♦TLPlt  20 ) 

, TL5 1 ( 20  ).  DIPK20  ) 

, DISH  20 ) 

,TIME 

, OMP 

GENF 

95. 

♦TIMPR 

,LIFT 

, DRAG 

.TAX 

, TBURN 

, TBIK  20 ) 

9 

GENF 

96. 

♦ ae 

,FPOLO 

. FPO 

, MACHR 

, MACHV 

GENF 

97. 

♦OR 

, QV 

,FVAC 

,L1FTV 

GENF 

98. 

♦LIFTR 

,LIFTA 

DRAGV 

, ORAGR 

, DRA6A 

GENF 

99. 

* 

LIFTM 

, OBR 

,DB 

,ISP 

, iSPF 

GENF 

50. 

ULFT 

, ULFTV 

, ULFTR 

, ULFT  A 

GENF 

51 

♦ xncG 

.XMCGV 

, XMCGR 

,XMCGA 

, XMCGM 

, CDDAE 

9 

GENF 

52. 

♦CULFT 

, CT 

, CALPHA 

, CDE 

,deltae 

,S10 

GENF 

53. 

♦COD 

,51  DAE 

, XCG 

, ZCG 

,XJ 

GENF 

59 

COMMON  / 

GENF  / 

GENF 

55- 

♦ XJV 

, XJR 

, GH 

, GAMMAB 

, XXG 

, XKP 

GENF 

56. 

♦frated 

, 1RATED 

GENF 

57 

♦Pi 

,P2 

,P3 

XXI 

, XK2 

,XK3 

GENF 

58 

♦XKIT 

, XK2T 

, XK3T 

, XX1D 

, XK2D 

,XX3D 

GENF 

59 

♦ XXI A 

,XK2A 

, XK3A 

,XX1V 

, XX2V 

, XX3V 

t 

GENF 

60. 

♦XK1G 

,XK2G 

, XK3G 

, XX  IP 

, XK2P 

, XK3P 

GENF 

61. 

♦XK1R 

, XK2F 

, XK3R 

XK10 

,XX20 

. XK30 

GENF 

62. 

♦XK1U 

, XK2U 

, XK3  U 

, XK 1 M 

,XX2M 

, XK3M 

GENF 

63 

♦PV 

,p  G 

PP 

, PR 

,P  0 

,OPDY<  3, 

8) 

GENF 

69 

REAL  LI 

FTR  , LIFT 

, LIFTA.LlFT* 

1 , 

MACH, 

MACHR, 

GENF 

65 

* ISP,  ISPF,  MACHV, 

LI  FT  V . 1 RATED 

FRAT 

66 

DIMENSION  TPHK  10  ) 

.TSIK  10) 

GENF 

67 

EQUIVALENCE(TLP1.TPH1  ).(TLS1.TST1 ) 

GENF 

66 

COKPSDN  /XCOOES/ 

XCODES 

69 

»ITB  ( 9 ). I COR  (20),ITI 

, I NTB 

, JG1 D( 20, 

2),JPH  (20 

XCODES 

70 

*JST  (20 

, NCNST 

, NSB 

, NSAB 

,NI CNB 

XCOOES 

71 

♦ I20P 

, JCOP 

, 1FAU) 

, IFAR 

,IFB 

, IND 

XCODES 

72. 

♦IOPEN 

, I PH 

, I SP H 

, I SST 

, I ARC 

, I ST  ART 

XCODES 

73. 

♦ITCT 

, ITER 

, I VAR 

,JK 

,JPS 

XCOOES 

79. 

♦ KOP 

, KPST 

,K 

, XST 

, NAD 

NCASE 

XCOOES 

75. 

♦NCN 

, NEQB 

, NEO 

, NOP 

, NPH 

XCODES 
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76 

• NST  , 1 PST  , IPR I NT  ,ISTN  ,1PHN 

, ISTNB 

* 

XCOOES 

77. 

•IPHNB  , I ELK  1 , 1 BLK  2 , 1 STOP  ,1STPP 

,L 

XCOOES 

78 

• IFOB  ,NB  .LB  .n&  , NP  HP 

, NPHB 

XCOOES 

79 

♦ NCTIN  .NEOF  , ILABt  6 ).  JPRP.  JG1 1 ,MTT  .flPINt  20  ).  JP1.  JP2,  JP3 

XCOOES 

80. 

COMMON/RETREV/  FT  I ME, &T I ME, MAX At  2 ), MAX B 

RETREV 

81 

COMMON/RETREV/ 

RETREV 

82. 

♦NBUFAl  2 ) ,IBUF1  ,IBUF2  , NBF  A , NBFB 

,mixa 

RETREV 

83 

• MIXB  ,MXA  ,MXB  , NPT  A , NPT8 

, I BLKB 

RETREV 

8h  . 

*, NBUF&  , I &UFB 

RETREV 

85 

OIMENSION  JJ(  9) 

TRAM3 

86 

C 

CQMN 

87 

C 

1 INITIALIZE  STORAGE  RETRIEVAL 

CORN 

88 

CALL  BGRA 

TRAN3 

89 

CALL  BGRB 

TRAN3 

90 

NEQF=NEQ+5 

TRAN3 

91 

REUINO  10 

TRAN3 

92 

C 

COMN 

93 

C 

11  IF  NO  CONSTRAINTS  60  TO  XII 

COMN 

99 

IFCNCNST.EQ  0)  90  TO  230 

TRAN3 

230  — 

95. 

C 

III  GET  FIRST  A MATRIX  AT  INITIAL  TIME 

COMN 

96. 

CALL  86ET 

TEAN3 

97. 

N0=0 

TRAN3 

98. 

C 

IV  COMPRESS  A PIATRI  X,  STORE  IN  C0T1  ANO 

THEN 

COMN 

99. 

C 

INVERT  COTI 

COMN 

100. 

DO  20  1=1, NCN 

TRAN3 

101. 

I Ft  At I , I ).  EQ  0.  ) GO  TO  10 

TRAN3 

10 

102. 

JJU  )=  1 

TRAN3 

103. 

NO  =N0  +1 

Tfi  AN3 

109 

GO  TO  20 

TRAN3 

20 — | 

105 

10  JJCI  ) =0 

TRAN*' 

106 

20  CONTINUE 

TRAN3 

107 

1F( NO . EQ  1)  GO  TO  230 

TRAN3 

230  — 

ioe 

I A = 0 

TRANS 

109 

00  90  1=1, NCN 

TRAN3 

110 

I F( J J< I l.EO.O)  GO  TO  90 

TRAN3 

AO 

111. 

IA=IA*1 

TRAN3 

112 

I B=  I A-l 

TRAN3 

113 

00  30  J=I . NCN 

TRAN3 

119 

IFt  JJ(J  ).EB  01  GO  TO  30 

TRAN3 

3 0 | 

i 15 

IB  =IB  +1 

TRAN3 

116. 

COTI( 1A, IB)  = At I,J  ) 

TRAN3 

, \ 

117. 

30  CONTINUE 

TRAN3 

118. 

90  CONTINUE 

TRAN3 

119. 

NR  = NO  -l 

TRAN3 

120. 

IFtNM  GT,\)  SO  TO  50 

TRAN3 

50— * 

121. 

COTIt  1,1)=  1 / C0T1U,1> 

TRAN3 

122 

GO  TO  60 

TRAN3 

. r 

123 

50  CONTINUE 

TRAN3 

129 

CALL  SVMVRTt  CQT|,NN  ,IER) 

TRAN3 

125 

IFt IER  N£  0)  GO  TO  270 

TRAN3 

126 

00  70  1=1, NR 

TRAN3 

127 

DO  60  J=I,NM 

TRANS 

128 

60  COTI ( I J ) = COTIt  J , I > 

TRANS 

129 

70  CONTINUE 

TRAN3 

130 

80  CONTINUE 

TRAN3 

131. 

C 

COMN 

132. 

C 

V COMPUTE  TRANSFORMATION  RULTIPLJERS 

COMN 

133. 

00  100  J=1,NR 

TRAN3 

139. 

TR(  J )=  0 

TRAN3 

135 

DO  90  1=  1 , NR 

TRAN3 

136 

90  TRt  J )=  TRtJ)  + COTIt I, NO  )*COTI( I.J) 

JRAN3 

137. 

100  CONTINUE 

TRAN3 

138 

J = 0 

TRAN3 

139 

C 

COMN 

190 

C 

VI  ELIMINATE  NULL  MEMBERS  ACC0RP1NG  TO  HOD  A 

HAS  COMPRESSED 

COMN 

191 

DO  120  1=1, NCNST 

TRAN3 

192 

IFt JJt 1 ) EQ . 0 ) GO  TO  110 

TRANS 

no— 

193 

J=J+1 

TRAN3 

1 99. 

VARLt I )=TR( J ) 

TRAN3 

195. 

GO  TO  120 

TRAN3 

120—] 

196. 

110  VARLt  I 1=0 

TRAN3 

737 
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147. 

146 

m 

150 

151  * 
152. 

153 

154 

155 

156. 

157. 

158. 

159 

160 
161 
162. 

163. 

164. 


165 


120  CONTINUE 

00  130  1-1 , HCN5T 
130  TR( I ) = VARld  > 

CALL  5GRB 

VIII  TRANSFORM  ENTIRE  TINE  HISTORY 

VII  INITIALIZE  RETRIEVAL  AGAIN 
DO  210  KJPQ5  =1,2000 

Vill-A  SET  ADJOINT  MATRIX 
CALL  AGETA 
CALL  &SET 
140  CONTINUE 

VII -B  CHECK  COMSTRINT  VECTOR  ELEMENTS 
I F<  FT  I ME  ST  TST1C ISTN)+l.E-4  ) GO  TO  170 
DO  143  J-l.NCNST 
143  JJ( 1 >=1 

I Ft 1 NTB-1 1170,150. 160 


150  IFdSTN  LT  NSB)  GO  TO  170 


TRAN3 

TRAN3 

TRAN3 

TRAN3 

CGMN 

COfiN 

CO«N 

CORN 

TRAN3 

COflN 

TRAN3 

TRAN3 

TRAN3 

SEP16 

SEP1B 

SEP  18 

SEP18 

SEP18 


5EP18 


150— j 1 60 — t 170*4 


no- 


166. 

167. 

168. 


173 

174. 

175. 

176 

177 
178. 

179 

180 


151  LL= l 

nn=NlCNB 
GO  TO  165 


169  160  IFdSTN  LE.NSB)  GO  TO  170 

170  IR1STN  GT.NSB+NSAB)  GO  TO  151 

171.  LL=NI CN&+1 

172 flfl=NCNST  


165  00  167  m=LL,ftR 
167  JJCIJI >=0 


SEP  18 
SEP18 
SEP  18 


165 


SEP  1 8 
SEP18 
SEP  18 
SEP18 


ZL 


SEP18 
SEP  18 


151- 


170- 


d 


1 97  r 

198. 

199. 

200. 
201. 
202 
203 
204. 
205 


206. 

207. 


170  CONTINUE 

C VIII-C  DO  TRANSFORMATION 

DO  190  nA=l,NEfl 
00  180  fiP=l,NCNST 
IF! JJ!MP).EO  0)  GO  TO  180 
XL(rtft,NCN)  = XL! MA,NCN )-  TR( MP )»XL(  MA, MP ) 


181.  180  CONTINUE 

182  C VI 1 1 -D  ACCOUNT  FOR  SIGN  ON  PAYOFF 

183  XL(AA,NCN)=  XLt MA. NCN  )*S I G 

184.  190  CONTINUE 

185.  C IX  TRANSFORM  IMPULSE  RESPONSE  FUNCTIONS 

186.  00  200  HP- I ,NCN$T 

187.  XLArtP!NCN)=KLAMP(NCN)-Tfi(MP  )*XLAMP(MP) 

188  200  XLAnA(NCN)  =XLAMA( NCN  > -TR{ MP  )*XLAHA( MP ) 

189  C X WRITE  TRANS.  DATA  ON  FILE 

190  WRITE!  10)  < XL!J,NCN),J=1NEB).XLAMA(NCN)  .XLAMPI  NCN) 

191.  C XI  TEST  FOR  END  OF  LAST  ARC  TO  OlilT 

192.  IFUSTN.EB  NST  AND  ABSC  FT  I pE-OISlI  N$T  ) ) LT  l E-6)  GO  TO 

193.  210  CONTINUE 


220 


194.  220  RETURN 

195  C XII  TRANSFORMATION  FOR  UNCONSTRAINED  PRDPLEM 

196  C IS  IDENTITY  MATRIX  TIME  SIGN  DN  PAYOFF 


230  DO  260  KJP0S=1,20Q0 
CALL  AGETA 
CALL  3GET 
240  CONTINUE 

DO  250  1=1, NEO 

250  XL(I.NCN)  = XLCI#NCN)*S1G 

WRITE! 10)  ( XL! J NCN)  J = 1 , NEO ), XLAMAI NCN ) 


IF  ( A8S!  FTlME-oiSHN§T  ))'lT.1#E-6)  GO  TO  tZO 
260  CONTINUE 


XLAMP(NCN) 


270  CALL  STP1TC99) 
END 


TRAN3 

CORN 

TRAN3 

TRAN3 

Tfi  AN3 

TRAN3 


TRAH3 
SEP18 
SEPlfi 
TRAN3 
COHN 
TRAN3 
TRAN3 
TRAN3 
COM* 
TRAN3 
COMN 
TRAN3 
_ TRAN3 


180— | 


220—1 


TRAN3 

CDMN 

COM* 


TRAN3 

TRANS 

TRAN3 

TRAN3 

TRAN3 

TRAN3 

TRAN3 

TRAN3 

TRAN3 


220— 1 


TRAN3 

TRAN3 
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SUBR0UT INE 
TRT0SZ 
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Subroutine  TRT0SZ 


Entry  Points.  INTER1,  ARCEND,  TRJEND 


Purpose 

Saves  trajectory  data  required  for  sizing  during  solution  trajectory  integra- 
tion. Entry  INTER!  saves  initial  states.  Entry  ARCEND  saves  data  at 
intermediate  arc  end  points.  Entry  TRJEND  saves  final  weights,  impulsive 
velocity,  and  velocity  losses. 

Description 

Entry  INTER1  is  called  from  FNTG  at  the  initiation  of  the  forward  trajectory. 
Entry  ARCEND  is  called  by  subroutine  PRQiPIN.  Entry  TRJEND  is  called  by 
FNTG  at  the  terminus  of  the  solution  trajectory. 
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FORTRAN 

SYtnBQL 


DESCRIPTION 


STORAGE 
HTCT  LOG  ‘ 


DCON 

d*, 

I 

Asked  for  correction  in  constraint  Bisses  and 

/GENF  /( 

289  > 

C0N3 

0 

OCON 

payoff  vector 

nri3A 

I 

DCOM 

PAY02 

K 

DOOM 

TEST 

a 

OCON 

TOPn 

1 

DCON 

TRTOSZ 

I 

OCON 

DP  SO 

< dP  >e 

I 

Wetfic  of  control  ond  parameter  chinjes  Esd3 

/GENF  /* 

302) 

PAY02 

fl 

DPSQ 

TEST 

fl 

P5IS0 

TRTOSZ 

I 

DPSQ 

DVO 

0 

Arbiter  ideal  velocity  tfps) 

/SIZING/* 

307  ) 

SIZOUT 

J 

OVO 

SIZ1 

c 

OVQ 

SIZ2 

0 

DVO 

SIZ3 

A 

DVO 

SIZq 

0 

DVQ 

TRTOSZ 

0 

DVO 

ER 

E„ 

I 

Earth  radios*  (FT) 

/GLOBAL/* 

2) 

COORDS 

I 

er' 

R 

( 

CRASH 

J 

REfl 

EQUA3 

I 

ER 

GEINP 

I 

ER 

PA0S1 

I 

ER 

PDBC 

I 

ER 

sons 

1 

ER 

TRTOSZ 

] 

ER 

FINN 

I 

Feet  to  naut  ■{  conversion,  I 64579  1 629x1  0*  ** 

/ORTA  /< 

7) 

OUT 

PAOSl 

I 

0 

FTNfl 

FTNfl 

TRTOSZ 

I 

FTNfl 

I ARC 

I 

Arc  number 

/XCOOES/* 

146* 

AOICB3 

] 

I ARC 

ADID3A  I I ARC 
ADJUST  1 I ARC 
AST 3 ] I ARC 

BNTB  rt  I ARC 
ENVPRfl  1 I ARC 
FNTG  A I ARC 
GETIT  1 I ARC 
(10DELA  1 I ARC 
PROPB  1 1 ARC 

PROPIN  1 I ARC 
REU3  1 I ARC 
5DINP  fl  1 ARC 
STAU  I I ARC 
STP3  I I ARC 
TRT05Z  I I ARC 


IOVEL 

0 

Total  ideal  velocity  required  to  orbit  (fps) 

/SIZING/* 

297) 

Sill 

I 

IDVEL 

SIZ2 

1 

IDVEL 

S1Z3 

I 

IOVEL 

SIZ4 

I 

IDVEL 

TRTOSZ 

0 

IOVEL 

INTO 

I 

Branching  and  intermediate  constraint  flag 

/ XCOOES / ( 

31  ) 

AD1C3A 

I 

INTB 

BNTG 

I 

INTB 

ENVPRfl 

I 

INTB 

FNTG 

I 

INTB 

SDINP 

fl 

INTB 

TEST 

I 

INTB 

TRAN3 

I 

INTB 

TRTOSZ 

I 

INTB 

IPFLG1 

0 

IPFLSIFO  supresses  print-out  of  velocity  losses  and 

/GLOBAL/* 

69) 

FNTG 

I 

IPFL61 

inertial  Euler  angles 

OUT 

1 

IPFLfil 

PDBC 

I 

IPFLG1 

PRINT 

I 

IPFLG1 

TRTOSZ 

0 

IPFLS1 

1PFLG2 

0 

IPF|_G2*G  sgpnjtts  print. out  of  orbital  parameters 

/GLOBAL/* 

70) 

PRINT 

I 

IPFL62 

TRTOSZ 

0 

IPFLG2 

1PFLG3 

0 

1PFlG3*G  supresses  print*out  of  impact  data 

/GLOBAL/* 

71  ) 

OUT 

I 

IPFLG3 

PRINT 

I 

IPFL63 

TRTOSZ  0 1PPL63 
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FORTRAN  HATH 

SYMBOL  SYMBOL 


CODE 


DESCRIPTION 


subroutine 

SUBfi  CODE 


JTYP 


NCN 


NSAB 


NS  8 


R 


RAD 


R 


l Siring.  Flag 


1 Number  of  eleacnt*  In  dfr 


I Number  of  ires  on  first  branch 


I Nuaber  of  arcs  prior  to  branch  point  or 
intermediate  constraint 


1 Radial  distance  fro*  earth  center  to  vehicle 


I Radian  to  angle  conversion,  57  29577951 


/SIZING/I 


/XCOOES/t 


/XCOD£S/< 


/XC0DES/< 


(FT)  /GENF — /< 


/DATA  /( 


313)  FNTG 

I 

JTVP 

GEINP 

0 

JTYP 

flOOELA 

JTYP 

PADS1 

JTYP 

PROPIN 

JTYP 

SIZ1N 

JTYP 

TRTOSZ 

JTYP 

160)  A0E03A 

NCN 

A01CB3 

NCN 

AD1C3A 

NCN 

ADI03A 

NCN 

ADJUST 

NCN 

AST3 

n 

NCN 

BNTG 

NCN 

BST03 

NCN 

HTX3A 

NCN 

OUT 

NCN 

PAY02 

n 

NCN 

TEST 

ft 

NCN 

TOPfl 

NCN 

TRAN3 

NCN 

TRTOSZ 

NCN 

139)  ADICB3 

NSAB 

BNTG 

NS  AB 

ENVPRH 

NSAB 

FNTG 

NSAB 

SOI  NP 

H 

NSAB 

TEST 

NSAB 

TRAN3 

NSAB 

TRTOSZ 

NSAB 

133)  ADICB3 

NSB 

BNT6 

NSB 

ENVPRH 

NSB 

FNTG 

NSB 

REUS 

NSB 

50 1 NP 

h 

NSB 

TEST 

NSB 

TRAN3 

NSB 

TRTOSZ 

NSB 

305)  BL9 

R 

BL7 

R 

BL8 

R 

0ER3A 

R 

EQUA3 

n 

R 

rtQDELA 

R 

MODELB 

R 

POBC 

R 

P0Y3A 

R 

TRTOSZ 

R 

2)  BEROCO 

DEG 

BLGCON 

RAD 

ENVPRH 

RAD 

ECUA3 

RAD 

FNTG 

RAD 

GUI3A 

RAD 

nODELA 

RAD 

riTXCA 

RAD 

OUT 

RAO 

P ADS  1 

D 

RAD 

SOI  NP 

RAD 

TRTOSZ 

RAD 
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code  DESCRIPTION 


H A synthesis  data  array  (37,5)  that  contains  the 
flyback  data  and  soat  Injection  quantities 


STORAGE 

block  Loc 


SUBfi  CODE  VAfl 


I Tola!  range 


A synthesis  array  (28)  containing  staging 
parameters  and  aisc  flags 


| Array  of  state  values  at  initial  problem  time  Isd]  /GENF  /(  79) 


0 Saved  payoff  laprsvenent 

0 Saved  control  aatrlc 

1 Arc  end  times  for  nominal  trajectory 


M Booster  staging  velocity  <fps) 
I Weight 


/SIZING/* 

74) 

ENVPRrt 

in 

so 

FLY  6 KP 

rt 

so 

ISPRAT 

i 

so 

POBC 

I 

SQ 

PRITVA 

i 

SO 

RANGE 

n 

SO 

REU3 

0 

so 

SIZE 

0 

so 

SI ZEflR 

n 

so 

SIZIN 

« 

SB 

STAU 

I 

SQ 

SUrtOUT 

rt 

SQ 

TAfIPAR 

0 

SB 

TArtPER 

n 

SO 

THRUST 

n 

so 

TRTOSZ 

n 

SQ 

VEHOF 

in 

50 

UTVOL 

n 

SO 

/ORBIT  /( 

156 ) 

OUT 

i 

STOT 

PDBC 

0 

STOT 

TRTOSZ 

1 

STOT 

/ S J ZING/t 

46) 

ENVPRrt 

rt 

SV 

nvaxp 

? 

sv 

ITERS 

i 

5V 

RANGE 

j 

SV 

SHEAR 

rt 

SV 

SIZIN 

i 

sv 

SSSP 

I 

sv 

SUflOUT 

i 

SV' 

TAflPAR 

0 

sv 

TAnPER 

rt 

sv 

TRTOSZ 

rt 

sv 

VEHDF 

rt 

sv 

UT  VOL 

i 

sv 

/GENF  /( 

79) 

ADJUST 

0 

SVAR 

B«TG 

I 

SVAR 

FNTG 

I 

SVAR 

PAUSE! 

rt 

SVAR 

REU3 

i 

SVAR 

SOINP 

rt 

SVAR 

TEST 

I 

SVAR 

TOPPl 

i 

SVAR 

TRTOSZ 

I 

SVAR 

/SIZING/* 

320) 

TRTOSZ 

0 

SVOCOM 

/SIZIfiG/C 

319  ) 

PAY02 

i 

5VDPS0 

TRTOSZ 

0 

SVOPSO 

/GENF  /( 

*133) 

6NTG 

I 

TST1 

SETIT 

I 

TST1 

PROPIN 

I 

TST 1 

SDINP 

0 

T5T  J 

TEST 

0 

TST1 

TOPrt 

I 

TST1 

TRAN3 

I 

TSTl 

TRTOSZ 

I 

TST1 

/SIZING/ ( 

311  ) 

SIZE 

I 

V5T6 

TRTOSZ 

n 

VSTG 

/ 6ENF  /( 

412) 

0L5 

I 

u 

ENVPfira 

i 

w 

E0UA3 

rt 

V 

FH3 

I 

u 

OUT 

I 

u 

POBC 

I 

u 

REU3 

I 

u 

TRTOSZ 

I 

u 
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UFO  0 Orblter  burnout  «e!ght  (lb)  /SIZING/!  29b)  PftYLOD  PI  UFO 

SHOUT  I UFO 
S!Z1  0 UFO 
SIZ2  0 UFO 
5 1 Z3  0 UFO 
S l ZH  n UFO 
TflflPAR  I UFO 
TRTOSZ  0 UFO 
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7RI0SZ 


1.  SUBROUTINE  TRTOSZ  TfiTOSZ 


2. 

C 

SAVES  TRAJECT08Y-T0-5IZI9G  DATA 

DURING  SOLUTION  T AAJ  £ CTOR 

TRTOSZ 

3* 

C 

ENTRY  POINTS  INCLUDE 

TRTOSZ 

9. 

C 

INTER1  SAVE  IN1T.  STATES 

TRTOSZ 

5 

C 

ARCEND  SAVES  I NTERME0I ATE  DATA 

TRTOSZ 

6. 

c 

TRJEND  SAVES  FINAL  UTS.  AND  JnPULSIVE  VELOCITY 

TRTOSZ 

7. 

c 

TRTOSZ 

8. 

CDMMDN/GENF/ 

GENF 

9. 

• OrtG<  20) 

,0MGP(2C 

,2  ),  VARQ(  9 1 

,TOL(  9) 

,SVAR( 10) 

, UDC( 20  ) 

, 

6ENF 

10. 

• At  9,9 ) 

, ACONt 9 ) 

,BCON( 9 ) 

, COT I C 9 

,9)  DCONt  9 ) 

, DTP 

, 

GENF 

11. 

• DT$ 

,DT 

,G 

, DPSO 

,0 

, 05 

, 

GENF 

12. 

•R 

,RE 

tMACH 

,PA 

,R0 

,CS 

, 

GENF 

13 

• VNU 

.PAR 

, ROR 

, CSR 

, VNR 

, SUMSO 

, 

GENF 

1 9 

•sv  so 

„T l MEPH 

.times 

.TOP 

.TOS 

,TR( 9) 

, 

GENF 

15. 

•TST( 20 ) 

,TP  H (20), 015(20) 

,DIP(20)  .T 

,« 

, 

GENF 

16. 

• TIP 1( 20  > 

.TLS!  ( 20  ).  DIPK  20  I .0151(20)  .TIME 

, OMP 

, 

GENF 

17. 

•TIMPR 

A**1! 

, DRAG 

.TAX 

, T BURN 

, TBUt 20  ) 

, 

GENF 

ie. 

• AE 

,FP 

,fpold 

, FPO 

,MACHR 

,MACHV 

, 

GENF 

19. 

• OR 

,0V 

, FVAC 

, LIFTV 

GENF 

20. 

•LIFTR 

.LIFT A 

DRAGV 

, DR ASH 

.BRAGA 

, 

GENF 

21. 

« 

LIFT  M 

, DBR 

,DB 

,ISP 

, I5PF 

, 

GENF 

22. 

• 

ULFT 

, ULFT V 

, ULFTR 

, ULFT  A 

, 

GENF 

23. 

• xncs 

, XMCGV 

, XMCtjR 

, XMCG  A 

. XMCGM 

, CODAE 

, 

GENF 

29. 

•CULFT 

/ CT 

.CALPHA 

, CDE 

,DELT  AE 

, SI  D 

GENF 

25. 

• COD 

,SIDA£ 

, XCG 

,ZCG 

,XJ 

GENF 

26. 

COMMON  / 

GENF  / 

GENF 

27. 

• XJV 

.XJR 

,GH 

, GAMMAD 

, XK  G 

, XKP 

GENF 

28. 

•FflATEO 

, IRATED 

GENF 

29. 

•PI 

,P2 

>3 

, XK1 

, XK2 

, XK3 

, 

GENF 

30. 

• XK1T 

# XK2T 

,XK3T 

, XKID 

, XK20 

, XK3D 

, 

GENF 

31. 

• XK1A 

, XK2A 

, XK3a 

, XK 1 V 

, XK2V 

, XK3  V 

, 

GENF 

32. 

•XK1G 

, XK26 

,XK3G 

. XK  I P 

. XK2P 

, XK3P 

. 

GENF 

33. 

• XK1R 

, XX2R 

, XK3R 

, XK10 

, XK20 

,XK30 

, 

GENF 

39. 

• XK1U 

,XK2U 

, XK3U 

, XK  1 M 

. XK2M 

, XK3M 

, 

GENF 

35. 

«PV 

.PS 

.PP 

-PR 

,P0 

, DP  DYt  3,8  ) 

GENF 

36. 

REAL  L1FTR  r LIFT 

. lifta,lifth  , 

MACH, 

MACHR, 

GENF 

37. 

* I5P . 1SPF.  HACHV.I 

LI  FT V . IRATED 

FRAT 

38. 

DIMENSION  TPHH  10  J.TSTK  101 

GENF 

39. 

EQUIVALENCE!  TLP1.TPHD.CTLS1. 

TSTl  > 

GENF 

90. 

REAL  HUB. 

MUO.  ISP6.  ISPO.  IDVEL.NNB.NO 

SIZING 

91. 

COMMON  /SIZING/ 

SIZING 

92. 

c 

PHASE  II  SIZING  PARAHERERS 

SIZING 

93. 

»TZ,  V V<  3 ), 

0P(  191, 

EROR.  PZt  5 >.  VO. 

SU(  Z01 

SIZING 

99. 

•5  Vt  28  ), 

50(37.5). 

$E(  11 J. 

TLAT, 

TLNG, 

SIZING 

95. 

c 

PHA5E 

I SIZING  PARAMEfiERS 

SIZING 

96. 

•UBO, 

ULDO, 

DUEB, 

DUEO, 

TOLUT,  UPB 

, TURAT2 

SIZING 

97. 

• BK1, 

BK2, 

8K3, 

BK9 

ISIZE,  TRAFLG,  TURftTO 

SIZING 

98. 

• 0X1, 

0K2, 

0X3. 

0K9, 

PRFL6.  IPASS,  IP5HAX 

SIZING 

99. 

• AEXIT, 

T VACO, 

NO, 

UFO, 

I OVEL,  ISPO,  ISPB, 

SIZING 

50. 

•XPL, 

TVACB,  1 

UNB, 

WEG. 

UEB.  WO. 

ULO, 

SIZING 

51. 

»DVO, 

DVB, 

MUB, 

nuo. 

VST  G.  WPO 

SIZING 

52. 

•, JTYP . 

BECO  , 

BSTG  , 

OROI,  ITNBW  , JTNOW 

9 

SIZING 

53. 

• SVOPSQ 

, SVOCON 

, I HUNT 

I0PST6  , IS2D( 19 ) 

UH 

59. 

COMMON  /XCODES/ 

XCODES 

55 

•ITO  < 9 ),  I COR  (201,111 

, 1NTB 

, JGI D( 20, 

2 ) . JRH  (20.2), 

XCODES 

56. 

• JST  (20) 

.NCNST 

,NSB 

, NS  AB 

,NI  CNB 

XCODES 

57. 

•I20P 

, I COP 

.IFAW 

, IFAR 

. IFB 

, IND 

XCODES 

58. 

•IOPEN 

, IPH 

, I5PH 

, ISST 

. I ARC 

.ISTART 

XCODES 

59. 

• ITCT 

, ITER 

, 1VAR 

,JK 

,JPS 

,JS 

XCODES 

60. 

• KOP 

,XPST 

,* 

,KST 

.NAD 

NCASE 

XCODES 

61. 

• NCN 

, NEQ& 

, NEQ 

, NOP 

, NPH 

XCODES 

62. 

•NST 

f I PST 

, IPRINT 

, ISTN 

. 1 PHN 

, ISTNB 

XCODES 

63. 

•IPHNB 

, I BIK1 

, I BLX2 

, ISTOP 

, ISTPP 

t L 

XC0DE5 

69. 

*1  FOB 

NB 

.LB 

.MB 

, NPHP 

, NPHB 

XCODES 

65. 

•NCT1N 

,NE0F  , ItABI  8 ),  JPRP 

, JGI I , MTT, 

MPIN(20),JP1, 

JP2,JP3 

XCODES 

66. 

COMMON  /PRINT/  AP< JOO) 

TRTOSZ 

67. 

COMMON/  ORBIT/  VI 

gami 

PSII, 

xnui . 

P, 

ORBIT 

68. 

* ECC, 

AINCL 

ARSP, 

ASCNOO, 

SMIMAJ, 

APOGEE, 

0R8IT 

69. 

* PERGEE, 

ANOMLY 

CAPX, 

CAPY, 

ASYMP, 

ENERGY, 

ORBIT 

70. 

• HMNTM, 

oviov; 

DV10G, 

ORBIT 

71 . 

• DVIOH  , 

dviom‘ 

OVlDPS, 

OVIORO, 

DVIOMU, 

OGIOV, 

ORBIT 

72. 

* DGIOG  , 

OGIDH 

DGIOM  , 

DGIOPS, 

DGIORO, 

DGIDMU 

ORBIT 

73. 

* DPIDV  , 

opidg: 

OP I OH  , 

OPIOM  , 

OPIOPS, 

OPIDRO, 

ORBIT 

79. 

* DPIDMU, 

omiov; 

0M10G  . 

OMIDH  , 

oniow  , 

OMIOPS, 

ORBIT 

75 

• DMIDRG, 

OMIDMH,  OPOV  , 

DPDG  , 

DP  OH  , 

DPDM  , 

ORBIT 
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DPOR0  , DPDflU 
DE  COPS , DECDRO, 
Dion  , DIDPS  , 
OB60H  DBEOrt  , 
ONDOG  . OMODH  , 
DSrtOV,  OSflDS, 


OECOV  , 

OECDflU, 

G J OR0  . 

OBE  OPS, 

* DNGOV  , 0N0OG  ^ DNGDH  ; ONODn  , DNQOPS; 

* ONOOPIU,  DSrtOV.  05HDG,  0$HDHt  OSWOn,  I 

cofinaN/ofiBiT/ 

* OSnORO,  OSflD«U,  DAPDV,  DAPDG,  OAPOH,  I 

» DAPOPS,  OAPDRO,  DAPOMU,  OPEDV,  OPEOS,  I 

♦QPEDrt  ,'DPEOPS  , DPEDKO  .OPEDflU  , DANDY 

* DANBH  , 0ANDP1  # OANDPS,  DANDPO,  DANOflU. 

* DCXDG  * OCXDH  , OCXDH  . OCXDPS,  BCXDRO, 

* DCYOV  , QCY  UG  , OCYDH  DCYOd  - OCYDP5,  I 

* DCYOdU,  DASOV  , BASDG  , DASOH  . BASDfl  . I 

* OASOR0 , DASOrtU,  OENDV  DENOG  , DENOH  , 

* OEN0PS,  OEN0RO,  OENOPIU,  0P1ODV  , DflOOG  , 

* Bnoon  , onoops,  daooro,  onooflU 

DIMENSION  ORBPRM  18).PP0( 7, IS) 

EQUIVALENCE  ( VI  .QRBPftriM  OVIDY.PPO  ) 

COnnGW/ORBIT/  YrURF,SnXLrtR,CSXLf1fi , SDOUN,  SCROSS.TD,  TC 
♦.SNPSR  ,C$PSR  .SNGI  . CS G I ,SPSI1 

* STOT  ,CSI  ,$Ni  . SNGNU  ,CSANQ 

* SINDrtU  ,THT  .WTFUEL 

C0P1W0N/STATE3/ 

* VAR(H>  ,DVAR  < 19  ),  VARL  ( 99  ) /BVARL(99)  ,Y0(9) 


OECOG  , 
DI0V  , 

oionu  , 

OSEDRO, 

ONOOPS, 

osnon, 

OAPOH 

OPEOS, 

, DANDY 
DANDnU, 
BCXDRO, 
OCYOP5, 
BASDJ1  . 
DENOH  , 
DflODG  , 


DECOH  , 
01 DG  , 
DBEOV  , 
DBEDrtU, 
DNODRO , 
DSP1DPS 

DAPon  . 
DPEOH  , 

, BANDS 
DCX0V  . 

ocxonu, 

DCYORO, 
OASDPS, 
DENOf)  , 
DflODH  , 


♦ XL<9,9)  , YDP(  20,  9 ) . YD5  < 20. 9 ), COSGAfl 

♦S1NP&I  ,COSPSI  ,S1NRH0  . COSRHO 
♦SVBV  (9)I0P1EGA  ,0nEGA2  . 

♦ VOV  ,G0V  .RDV  MOV 

♦UOV  ,VDG  , GOG  RDG 

♦UD6  , VDR  GBR  riDR 

♦UOR  , von  ,GDn  ,non 

♦GDP  ,PBP  .OOP  . UDP 

♦POD  , UDO  .HTDV  HI OR 

real  non  , nov,  hor 

C0P1P10N/STATE3/ 

♦SJN2R0  , C0S2R0  ,C0S2GN 


, S! NGAH 
,OCORHO 


.CPSI1 

.COSDflU 


,SVY( 10) 
.SAVBPt 15) 
,OC0RO2 


EQUIVALENCE  ( VAR< 1 >,V > .<  VAR(  2 ) , GAP1  > < VAR(  3 ) , ALT  ) .(VAR(9)r«>  t 

♦C  VAR<  5 ),PSI  ),(  VAftt  6 ),fiHO),(VAR(  7),nU>.(  VAR(8),HTJ  , ( YARt  9 ),SQ2 ), 
♦(  OVARt  1 ),  V0  ),(DVAR(  2),  SO  >,<DVAR(  3 ),  HD  ),  ( DVAR(  9 ), HD  ) , < 0VAR(5),PD), 
♦<OVAR<  6),0D),<  OVAR(  T),U0),(OVARl  8).HT0),(  DVAR(  9).S020) 
real  n,nu.no 
COnrtON/DAT  A/ 


♦PI  ,RAD 

,ROI 

,SC 

,UWF 

,T«PF 

•ftnm  ,CAR 

COfmON/GLOBAL/ 

,J0P1 

, J0P2 

, J0P3 

, J0P9 

♦GR  ,ER 

.OflGZ 

. XLAfiRF 

YflURF 

,LUH 

♦ ,JJOP( 10)  , I FATAL 

♦ ,KTAB(  20  ),  IT AB(  20  ) 

. NARC 
,516 

, N6R AN 
,MAXTAB 

t NFARC 

,ID(  9) 

♦,Gn  ,PS I RF, IPFLGI , 

♦, ITPSO  , KSG L , KGLOBK  8 ) 

IPFLG2, IPFLG3 

, IPFLGH, 

I f»£QFL(  20 ) 

ENTRY  INTER1 

SQ< 17,1)  = S VARt 2 ) 

IFtJTYP  NE.2)  GO  TO  5 

I PFLGl-0 

IPFLG2=0 

1PFLG3=0 

S CONTINUE 

50(17,2)  - SVARt  3 )*RAD 
SQ(  17,3)  = SVARt  9 ) 

SQ(  17,9  ) = SVARt  fc  )*RAD 
50(17,5)  ~ SVARt  7 )»R  AO 
SQUS.l  ) = SVARt  8)*RA0 
SVDPSO  = OF SC 
SVDCOK  = DCON(NCN) 

JFHNTB.NE  2)  RETURN 
SV(21  >=i. 

CALL  ENVPRJ 

return 

II  I NTEfitlEOI ATE  ARC  DATA 
ENTRY  ARCEND 
I ill  = I ARC-1 
I F( JTYP  LE  0)  GO  TO  30 

1 1 “A  PHASE  I SIZING  DATA 


7A6 


20  BCT  72  G Ol-'IG 


151-  10  CONTINUE 

152  C I 1-6  TEST  FOR  KEY  ARCS 

153.  C BOOSTER  THRUST  TERM  NAT  I ON  ARC 

15 H.  IF  t IFIXCSat  l.llKtg.ini  1 60  TO  100 

155  C OPTICAL  STAGE  TiflE 


TRTOSZ 

TBTOSZ 

TBTOSZ 

TRTOSZ 

TBTOSZ 


156. 

157 

C 

20 

if<  if i x< sat  i ,2))  Ea.im > 

DPT  I UAL  PITCHOVER 

GO  TO  UC 
T J *E 

TBTOSZ 

TRTOSZ 

158. 

3G 

IF  (IFIXCSQC 13,3))  E3  IA11  GO  TO  120 

TRTOSZ 

159. 

C 

TEST  FOR  BRANCHING 

AND  INJECTION 

AAA 

160. 

1FCINTQ  Efl.2. AND.NSB+NSAB 

GE.lFUCSat  1,31).  AND  IARC  EQ 

NSB+NSAB) 

AAA 

161  - 

* S3  TO  500 

AAA 

162- 

C 

TEST  FOR  BRANCHING 

AND  ENTRY  TERfllNUS 

AAA 

163. 

IFtltiTB-EO  2.9NB.NSB*NSA0. 

-T.IFlJCtSat  1,3  ) ) . AND . I ARC. EG 

NS  B*N$AB ) 

AAA 

16H- 

♦SO  TO  600 

AAA 

165 

return 

TRTOSZ 

166 

C 

BOOSTER  CHARACTERISTIC  VELOCITY 

TRTOSZ 

167. 

100 

VST  6 = API  17) 

TBTOSZ 

168- 

1FC JTYP.EQ-1 ) 60  TO  20 

AAA 

169. 

C 

I1I-A  PHASE  11  AT  STAGING  POINT 

AAA 

1 10. 

QPt 9 ) sftP<9) 

AAA 

171 

S«H  10)=ST0T/ER 

AAA 

172. 

SU(20)=AP(  1) 

AAA 

173. 

SY(7  1=U 

FIN] 

179. 

SVCS)  = AP(3) 

AAA 

175- 

SVt  9 1 =AP<2) 

AAA 

176. 

SVC  1G)=APM) 

AAA 

177. 

SV(  12 1=AP(  32  > 

AAA 

178. 

SV(171=APt5) 

AAA 

179. 

SVC  1 8 )-AP( 7 ) 

AAA 

180. 

SVC  1 9 )=AP( 6 ) 

AAA 

181. 

SVt  211=  0. 

AAA 

182. 

SVt  22  )=  R 

AAA 

183. 

SVt  23)=  Apt  301 

AAA 

189. 

SVt291=  APt  29  1 

AAA 

185. 

SVt  25 1=  0. 

AAA 

186. 

SVt  25 1=  90.-  APt  92 ) 

AAA 

187. 

sat  12,1 1 = Apt  jd/ftnh/er 

AAA 

188. 

S3t3fc,l)=  APt  55  ) 

AAA 

189. 

Sa(36,2)=  APtSfc) 

AAA 

190. 

sat  37,  11=  APU> 

AAA 

191. 

60  To  20 

TRTOSZ 

192. 

110 

sat  18,2)  = API  8 ) 

TRTOSZ 

193. 

60  TO  150 

TRTOSZ 

19*1. 

120 

sat  18,3)  = APt  8) 

• 

TRTOSZ 

195- 

150 

RETURN 

TRTOSZ 

196. 

300 

CONTINUE 

TRTOSZ 

197. 

return 

TRTOSZ 

198. 

ENTRV  trjexo 

TRTOSZ 

199. 

IFt JTVP-1 1150,  310  900 

TRTOSZ, 

200 

310 

ID VEL—  APt 17) 

TRTOSZ 

201. 

DVO  = APIIM  -VST6 

TBTOSZ 

202. 

UFO  = APt  9) 

TRTOSZ 

203. 

60  TO  150 

TRTOSZ 

209. 

NGO 

CONTINUE 

AAA 

205 

IFt 1 NTB . NE-2 ) 60  TO  500 

AAA 

206. 

IFt  I FI  Xt  S0(  1.3  )>-NSB-N$AB  1600,  500. 500 

AAA 

207. 

C 

FrtASE  II  INJECTION  PT 

. DATA 

AAA 

208. 

50C 

PZtl)  = APt  T ) 

AAA 

209. 

PZ<2)  = AP<6> 

AAA 

210. 

Pit  3 ) = AP(21 

AAA 

211- 

Pit  9 1 = SV#R<61»RA0  -AP(  5 3 

AAA 

?;  ■> 

PIt5)  = API  20  1 

AAA 

213- 

SVt  7)  = 5013,51 

OS 

219. 

SVt  3 ) = AP(lf) 

AAA 

215. 

SV(  9 ) = APt  9 1 

AAA 

216. 

SVt  5)  = SVt  71  -SVt  9) 

AAA 

217. 

50(3,11=  APt  67  1 

AAA 

218. 

SOt  3,2  )=  APt  601 

AAA 

219. 

Sat3,31=  APt  59  1 

AAA 

220. 

sat  19,91=  APt  101 

AAA 

221. 

Sat  19,51=  API  2 1 

AAA 

icon 


TIo- 


I £>00 


12C- 1 


llSO- 


31 


0—1*10 


*I0D-il5O-H 


1150-1 


500- 

500- 


1600 
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222. 

S0( 15.3)=  AP< 11  ) 

AAA 

223 

SQ( 15,9>=  AP( 69  > 

AAA 

229. 

S3<  36.31=  AP( 55 > 

AAA 

225 

SQ<36,9>=  APC56) 

AAA 

22  6. 

S0( 36.5 )=  AP<57) 

AAA 

227. 

C 

CRolTER  BURN  TIRE 

AAA 

228. 

I QfiBI  = 5Q< 1,3) 

AAA 

229. 

S3(37,2>  = ARC  1)-  TSTKIORB!) 

AAA 

230 

RETURN 

AAA 

231 

C 

FHASE  11  ENTRV  END  POINT  ( BRUISE  RANSE ) 

AAA 

232 

6CC  5U( 15)  = AP( 20 ) 

AAA 

233. 

RETURN 

AAA 

239. 

END 

TRTG5Z 

SUBR0UTINE 

VT 


.Subroutine  V'L’ 


Entry.  VTNOP 
Purpose 

Subroutine  VT  computes  the  control -dependent  terms  used  in  calculating  the 
in-plane  control  vector.  Entry  VTN£)P  computes  additional  terms  needed  to 
calculate  the  partials  of  the  governing  equations  with  respect  to  the  state. 

Description 

Subroutine  VT  is  called  by  BLGCQiN  within  its  iterative  scheme  which  solves 
for  the  in-plane  control  vector.  This  occurs  on  both  forward  trajectories 
and  backward  adjoint  solutions.  Entry  VTN0P  is  called  by  BLGC0N  only 
on  backward  adjoint  solutions  after  the  governing  equations  have  been  solved. 
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DESCRIPTION 

ALPHA  o,  I Angle  of  attack 


CO 

CD 

I 

Or  »g  coefficient  , 

CDA 

acD/ao 

I 

See  sy «bo i 

COM 

acD/an 

I 

See  syiibol 

CL 

CL 

I 

Lift  coef  fi ci ent 

CLA 

clc 

I 

Lift  coefficient  slope 

CLM 

acL/an 

I 

See  symbol 

CM 

c# 

I 

P)o»ent  coefficient 

CP1A 

I 

?1o«ent  coefficient  slope 

CMP) 

ac^/am 

I 

See  sytbol 

COD 

C 0 S<  6g  ) 

n 

See  symbol 

COOAE 

c a s(  ot-  s£  > 

0 

See  sy »bo 1 

COSA 

C 0 s« 

11  See  sy*bo  I 

DB 

D. 

I Base  drag 

FORTRAN 

SVHBOL 


HATH 

SYMBOL 


STORAGE  SUBROUTINE  USAS 

BLOl  K LOL  3UBR  LODE  VAR 


/ AEC03 

/( 

3 > 

8ER0C0 

1 

ALPHA 

BLGCON 

FI 

ALPHA 

BL2 

1 

ALPHA 

FNTG 

0 

ALPHA 

piapieCP 

I 

ALPHA 

MODEL  A 

FI 

ALPHA 

MOOELB 

0 

ALPHA 

REU3 

a 

ALPHA 

VT 

i 

ALPHA 

/AEC03 

/< 

52) 

BEROCO 

0 

CD 

OUT 

i 

CO 

VT 

i 

CD 

/AEC03 

/( 

53) 

BEROCO 

M 

CDA 

VT 

I 

COA 

/ AECQ3 

/( 

5N) 

BEROCO 

0 

CDF] 

VT 

t 

CDF) 

/AEC03 

/( 

A9  ) 

BEROCO 

n 

CL 

OUT 

I 

CL 

VT 

) 

CL 

/ AEC03 

/< 

50  ) 

BEROCO 

FI 

CLA 

E0UA3 

FI 

CLA 

VT 

I 

CLA 

/AEC03 

/( 

51) 

BEROCO 

FI 

CLH 

VT 

I 

CLM 

/AEC03 

/( 

Al  ) 

MAMECO 

0 

CD 

VT 

I 

CM 

/AEC03 

/( 

N2> 

EQUA3 

FI 

CMA 

nAfiECO 

I 

cma 

VT 

I 

CMA 

/AEC03 

/( 

AN) 

MAMECO 

0 

tern 

VT 

I 

cmm 

/GENF 

n 

556  ) 

EL2 

I 

coo 

OUT 

1 

COD 

VT 

Ft 

COD 

/GENF 

a 

5N9  ) 

ACCEL 

1 

CODAE 

BLR 

I 

COOAE 

BL6 

I 

CODAE 

BL7 

I 

CODAE 

BL8 

I 

CODAE 

FH3 

I 

COOAE 

SDER3 

I 

COOAE 

VT 

0 

CODAE 

/AEC03 

n 

8) 

ACCEL 

I 

COSA 

BLN 

1 

COSA 

BL6 

I 

COSA 

BL7 

I 

COSA 

BL8 

I 

COSA 

FH3 

I 

COSA 

OUT 

I 

COSA 

VT 

n 

COSA 

/GENF 

/< 

537  ) 

ACCEL 

i 

DB 

BLN 

i 

DB 

BL6 

i 

DB 

BL7 

i 

DB 

BL8 

i 

DB 

ESUA3 

I 

DB 

FH3 

i 

DB 

OUT 

i 

DB 

SCER3 

i 

DB 

VT 

i 

DB 

30  OCT  72  G 0 1 -06 


751 


DESCRIPTION 


i.  i jjjjftj 

110  1 


suiHiiuiiMf  u r. ft t. e 
S UBH  ll)DE  VAR 


CSR  I Parti a I of  bait  drag  wr  t altltudl  /GENF  /<  5361  ACCEL  I DBR 

BLR  I DBR 
BL6  [ DBR 
BL7  I DBR 
BL8  I DBR 
EQUA3  1 DBR 
FH3  1 DBR 
VT  1 DBR 


DELTAE 

b „ 

I Engine  global  deflection  angle 

< RADI 

/GENF  /( 

554  ) BLGCON 

n 

DELTAE 

E 

ELI 

1 

DELTAE 

OUT 

1 

DELTAE 

REU3 

0 

DELTAE 

VT 

I 

DELTAE 

DRAG 

D 

ft  Aer ody naoi c drag 

< LBS  1 

/GENF  H 

497  ) ACCEL 

I 

DRAG 

BL5  I DRAG 
BLT  I DRAG 
BL8  1 DRAG 
ENVPRM  I DRAG 
EH3  I DRAG 
OUT  l DRAG 
PRQPB  3 DRAG 
PROPIN  0 DRAG 
S0ER3  I DRAG 
VT  M DRAG 

DRAGA  M Partial  of  drag  »rt  angle  of  attack  /GENF  /(  534 1 ACCEL  I DRAGA 

BL5  I DRAGA 
BLT  5 DRAGA 
BL8  J DRAGA 
FH3  I DRAGA 
VT  14  DRAGA 

DRAGR  M Partial  drag  art  altitude  /GENF  /(  533  ) ACCEL  I DRAGR 

BL5  I DRAGR 
BL7  I DRAGR 
BLB  I DRAGR 
FH3  I DRAGR 
VT  It  DRAGR 

DRAGV  M Partial  of  drag  art  velocity  /GENF  /(  53Z)  ACCEL  I ORAGV 

BL5  I ORAGV 
BL7  1 DRAGV 
BLB  I DRAGV 
FH3  I ORAGV 
VT  n ORAGV 


DREF 

Dr*f 

I 

Aerodynamic  reference  length 

/ARCOAT/I 

37) 

VT 

I 

DREF 

] ATM 

I 

Atmosphere  option  flog 

/arcdat/< 

7) 

E0UA3 

I 

I AT  ra 

FXDAT 

1 

1 AT  ft 

OUT 

1 

I AT  FI 

PDBC 

1 

I ATM 

VT 

I 

5 ATM 

JAER 

I 

Aerodynamic  model  option  flag 

/ARCOAT/t 

9 ) 

BEROCO 

1 

JAER 

EQUA3 

i 

JAER 

GEINP 

I 

JAER 

OUT 

I 

JAER 

PROP  8 

I 

JAER 

PROPIN 

I 

JAER 

VT 

I 

JAER 

LIFT 

L 

Q 

Aerodynamic  lift 

(LBS)  /GENF  /< 

496  ) 

ACCEL 

I 

LIFT 

BL4 

I 

LIFT 

BL5 

I 

LIFT 

BL6 

I 

LIFT 

ENVPRM 

I 

LIFT 

FH3 

I 

LIFT 

OUT 

I 

LIFT 

PROPB 

0 

LIFT 

PROPIN 

0 

LIFT 

VT 

0 

LIFT 

30  OCT  72  G. 01-46 
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FORTRAN 

SYPIBOL 


HATH 

SYpibol 


CODE 


DESCRIPTIOW 


SlORAGF  SUBROUTINE  U 5 ft G I 

H l 0 1 K lOC  SUBK  I.UPE  VAR 


LIFT  A 


LIFTPI 


L1FTR 


LIFTV 


PIACHR 


PIACHV 

Q 


OR 

OS 

QV 


SID 


SIDAE 


SINA 


0 

Partial  of 

lift  »r i angte-oT  attack 

/GENF 

/( 

$31  ) 

ACCEL 

I 

LIFTA 

BL9 

I 

LIFTA 

BL5 

1 

LIFTA 

BL6 

I 

LIFTA 

FH3 

1 

LIFTA 

VT 

0 

LIFTA 

0 

Partial  of 

LIFT  vr t aiii 

/ GENF 

/( 

$35  )' 

ACCEL 

I 

LIFTPI 

BL9 

I 

LlFTM 

BL5 

I 

LIFTP) 

BL6 

I 

LIFTtl 

FH3 

I 

LIFTPI 

VT 

0 

LIFTPI 

0 

Part  f a 1 of 

IHt  art  a H 1 1 ud« 

/GENF 

/( 

530  ) 

ACCEL 

I 

LIFTR 

BL9 

I 

LIFTR 

BL5 

I 

LIFTR 

BL6 

I 

LIFTR 

FH3 

I 

LIFTR 

VT 

0 

LIFTR 

0 

Partial  of 

lift  »rt  velocity 

/GENF 

/< 

529  ) 

ACCEL 

I 

LIFTV 

BL9 

I 

LIFTV 

BL5 

I 

LIFTV 

BL6 

I 

LIFTV 

FH3 

I 

LJFTV 

VT 

0 

LIFTV 

I 

P art  i a 1 o i 

»ath  number  art  altitude 

/GENF 

/( 

529  ) 

E0UA3 

0 

PIACHR 

PROPB 

0 

ZERO 

PROPIN 

0 

ZERO 

VT 

I 

PIACHR 

I 

Partial  of 

each  number  mrt  velocity 

/GENF 

/( 

525  > 

Efll)A3 

0 

P1ACHV 

VT 

I 

P1ACHV 

1 

Dynanic  pressure 

(PSF) 

/GENF 

/( 

303  > 

ENVPRPI 

I 

a 

E0UA3 

n 

0 

OUT 

I 

Q 

PDBC 

I 

0 

VT 

I 

a 

i 

Par  t i a 1 of 

dynamic  pressure  mrt  altitude 

/GENF 

/( 

526  ) 

E9UA3 

PI 

QR 

VT 

I 

OR 

I 

Product  of 

dyname  pressure  and  aero 

Ref  Area 

/GENF 

/( 

309  ) 

E3UA3 

0 

as 

( LBS  ) 

VT 

I 

os 

I 

P ar  t i a I of 

dynaaic  pressure  «rt  vetoci 

ity 

/GENF 

/( 

527  ) 

EQDA3 

n 

.QV 

TEST 

s 

QV 

VT 

I 

QV 

s i n<  ) 

PI 

See  sy  »bo  1 

/GENF 

/( 

555  ) 

EL2 

I 

SID 

OUT 

I 

SID 

VT 

pi 

SID 

s i n( »~ir  ) 

0 

See  sy *bo  1. 

/GENF 

n 

557  ) 

ACCEL 

I 

SIDAE 

E 

BL9 

I 

SIDAE 

BL6 

I 

SIDAE 

BL7 

I 

SIDAE 

BL8 

I 

SIDAE 

FH3 

I 

SIDAE 

VT 

0 

SIDAE 

s i n« 

PI 

See  sy »bo 1 

/ AEC03 

/< 

7 ) 

ACCEL 

I 

SINA 

BL9 

I 

SINA 

BL6 

I 

SINA 

BL7 

I 

SINA 

BL8 

I 

SINA 

FH3 

I 

SINA 

GUI3A 

PI 

SINA 

OUT 

I 

SINA 

VT 

PI 

SINA 

30  OCT  72  G.OJ-96 
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FORTRAN 

sypibol 


PiATH 

SYMBOL 


DESCRIPTIOM 


CODE 


SUBftOUUNE  USAGE 
SU8R  COOk  VAR 


SREF 

Sr.f 

l 

Aerodynamic  reference  are* 

( FT2  ) 

/ARCOAT/I 

1 ) 

BNTG 
Ed  UA3 

1 

1 

ARCDA 

SREF 

FNTG 

I 

ARCDA 

FXOAT 

I 

ARCDA 

FXOAT 

0 

1 ARCDA 

' 

GEINP 

n 

ARCDA 

SBINP 

i 

ARCDA 

S1ZIN 

i 

ARCDA 

S I Z ) N 

it 

SREF 

THRUST 

i 

SREF 

VT 

i 

SREF 

ULFT 

L„ 

n 

Untr i mmed  aero  .lift 

/GENF 

/( 

5 HO  ) 

BL3 

i 

ULFT 

U 

P10DELA 

i 

ULFT 

VT 

it 

ULFT 

ULFTA 

M 

Partial  of  ULFT  art  angle  of  attack 

/GENF 

/( 

593  ) 

BL3 

i 

ULFTA 

VT 

it 

ULFTA 

ULFTR 

n 

Partial  of  ULFT  *rt  altitude 

/GENF 

/( 

592  ) 

BL3 

i 

ULFTR 

VT 

m 

ULFTH 

ULFTV 

n 

Partial  of  ULFT  mrt  velocity 

/GENF 

/! 

591  > 

BL3 

1 

ULFTV 

VT 

it 

ULFTV 

XCG 

i 

Center  of  gravity  body  x station 

( FT  ) 

/GENF 

/( 

558  ) 

EL2 

I 

XCG 

CG 

EGUA3 

I 

XCG 

VT 

1 

XCG 

XCGIt 

aX-./am 

i 

See  sy nbo  1 

/ AEC03 

/( 

38) 

EL2 

I 

XCGIt 

E0UA3 

0 

XCGIt 

VT 

l 

XCGIt 

XCGR 

XCGR 

l 

Reference  it c g location 

(FT) 

/ARCDAT/( 

32) 

VT 

i 

XCGR 

XJ 

I 

i 

Control  blend  factor 

/GENF 

/( 

560  ) 

EL2 

i 

XJ 

J 

E0UA3 

i 

XJ 

OUT 

i 

XJ 

VT 

i 

XJ 

X JR 

i 

Partial  of  blend  factor  mrt  altitude 

/GENF 

/( 

562) 

EL2 

i 

X JR 

E0UA3 

0 

X JR 

VT 

1 

X JR 

XJV 

i 

Partial  of  blend  factor  mrt  velocity 

/GENF 

/( 

561 ) 

EL2 

1 

XJV 

E0UA3 

0 

XJV 

VT 

1 

XJV 

xpicg 

n 

Aerodynamic  moment  about  center  of  gravity 

/GENF 

/( 

599  ) 

EL2 

I 

XPICG 

CG 

( FT-LBS ) 

OUT 

1 

XMCG 

VT 

It 

XPICG 

XDCGA 

M 

Partial  of  XP1CG  mrt  angle  of  attack 

/GENF 

/( 

557  ) 

EL2 

I 

XPICGA 

VT 

It 

xpicga 

X PIC  Git 

n 

Partial  of  XPICG  mrt  aass 

/GENF 

/( 

558  > 

EL2 

I 

XltCGIt 

VT 

ft 

XPICGIt 

XltCGR 

pi 

Partial  of  XMCG  mrt  altitude 

/GENF 

/( 

556  ) 

EL2 

I 

XPICGR 

VT 

PI 

XP1CGR 

XltCGV 

n 

Partial  of  XfICG  mrt  velocity 

/GENF 

/( 

555  ) 

EL2 

1 

XMCGV 

VT 

It 

XfICGV 

XT 

*T 

! 

Aerodynamic  trim  surface  body  x station 

/ ARCBAT/( 

36  ) 

VT 

I 

XT 

ZCG 

1 

Center  of  gravity  body  z station 

(FT) 

/GENF 

/( 

558  ) 

EL2 

1 

ZCG 

CG 

EBUA3 

I 

ZCG 

VT 

1 

ZCG 

ZCGrt 

d ~L  / 8 TT 

I 

See  symbol 

/ AECO  3 

/( 

39  ) 

EL2 

I 

ZCGPI 

LG 

EBUA3 

0 

ZCGtt 

VT 

I 

ZCGlt 

ZCGR 

ZCGR 

I 

Reference  zcg  location 

(FT  ) 

/ ARCDAT /( 

33  ) 

VT 

I 

ZCGR 

ZE 

Z- 

I 

Engine  thrust  centroid  body  i station 

/ ARCD AT/( 

35  > 

EL2 

I 

ZE 

E 

VT 

I 

ZE 
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?m 


V? 


i. 

SUBROUTINE  VT 

VT 

2 

REAL  LCD, 

LSD . LCOA. 

LS  DA 

VT 

3. 

REAL  LCDV. 

LCDS.  LCDVV.  LCD Vfi . LCDfifi.  LCOVA.  LCORA. 

LCDAA,  LSDV, 

VT 

9 

♦LSDR.  L5DVV . LSQVR.  LSDVA.  lSORR 

. L5DRA.  L5DAA 

VT 

5. 

COMMON/ ARCDAT/ 

ARC DAT 

6. 

♦ SREF 

,EJ 

,XISP 

, TMULT 

, DTNC 

, DTPI 

ARCOAT 

7. 

♦ lain 

, I MODE 

,JAER 

, JPBO 

, QMAX 

GMAX 

ARCOAT 

8. 

♦XLMAX 

HOMAX 

, GnDOT 

, ALf MAX 

, P UMAX 

MAEA 

ARCOAT 

9 

♦ MAEB 

, MAEC 

, MAEO 

,maee 

, MAEF 

, riAEG 

ARCOAT 

10 

♦m 

, M1$P 

, flXCG 

,MZCG 

,MUOA 

MUDB 

ARCOAT 

n. 

♦mob 

, XCGR 

,ZCGR 

,XE 

,*T 

ARCOAT 

12 

*DREF 

.MCNO 

, R HO  B 

.OMULT 

, REMAX 

ARCOAT 

13. 

* ,FRATE  , 

ARCD!  9) 

fiETAP 

1** 

DIMENSION 

ARCOA!  90) 

ARCDAT 

15 

ECU! VALENCE(  SREF.ARCOA) 

ARCDAT 

16 

COMMGN/GENF/ 

SENF 

17. 

*QnG<  20  ) 

, DMGPt 20,2 

, V ARQ( 9 ) 

,TOL(  9 ) 

, S VAR! 10) 

_ falDC!  20  ) 

GENF 

18. 

*A( 9, 9 ) 

,ACQN(  9) 

.BC0N19) 

,COTI( 9,9) 

, DCONC  9 ) 

.DTP 

GENF 

19 

♦ DTS 

,DT 

, G 

,OPSO 

,0 

,os 

GENF 

20. 

♦R 

,R£ 

,MACH 

.PA 

, RQ 

cs 

SENF 

21 . 

♦ VNU 

, P AR 

,ROR 

,csn 

VNR 

,SUMS0 

GENF 

22 

*sv$o 

.TIMEPH 

, TIMES 

, TOP 

, TOS 

'tR( 9) 

GENF 

23 

♦T5T( 20 ) 

. TPH  (20) 

-DISC  20  > 

, DIP! 20 ) 

,T 

GENF 

29- 

♦TLP1< 20) 

, TLS1  ! 20  ) 

,DIP1(20) 

,0151(20) 

,TIME 

,OMP 

GENF 

25. 

♦TIMPR 

,LIFT 

,ORAG 

,TAX 

, TBURN 

TBU( 20 ) 

GENF 

26. 

*AE 

,FP 

,FPOLO 

, FPD 

, MACKR 

,P1ACHV 

GENF 

27 

♦ Qfl 

, Q V 

, F VAC 

f LIFTV 

GENF 

28. 

♦LlFTfl 

, LIFTA 

DRAGV 

, OR  AGR 

QRAGA 

SENF 

29 

* 

L1FTM 

'OBR 

,0B 

,ISP 

,ifiPF 

GENF 

30. 

* 

ULFT 

,ULFTV 

, ULFTR 

, ULFT A 

GENF 

31. 

*XMC& 

, XMCGV 

,XMCGR 

, XMCGA 

,xncsn 

, CODAE 

GENF 

32 

♦CULFT 

,CT 

.CALPHA 

, COE 

, DELTAE 

,510 

GENF 

33. 

♦ COD 

, SI  DAE 

,XCG 

,ZCG 

^XJ 

SENF 

39 

COPIflON  / GENF  ( 

GENF 

35 

♦ XJV 

, X JR 

,Gh 

, GAMMAD 

, XK6 

,X*P 

GENF 

36. 

♦FRATED  , 

IRATED 

GENF 

37 

♦ PI 

,P2 

>3 

XK1 

,XK2 

, XK3 

GENF 

38. 

♦ XX1T 

, XK2T 

, XK3T 

,XK1D 

, XK2D 

, XX3D 

GENF 

39. 

*XK  1 A 

,XK2A 

, X K3A 

,XK1V 

, XK2V 

, XK3V 

GENF 

90 

♦ XK1G 

, XK2G 

,XK3G 

, XK1P 

,XK2P 

, XK3P 

GENF 

91. 

♦ XKlfl 

,XK2R 

,XK3R 

,XK10 

,XK20 

,XX30 

GENF 

92. 

♦ XKlll 

, XK2U 

, XK3U 

,xkim 

, XK2M 

,XX3M 

GENF 

93 

♦PV 

PG 

.PP 

!pr 

>0 

, OPDV! 3,6) 

GENF 

99. 

REAL  LI  FIR  , LIFT  , 

LIFTA, LIFTM  , 

MACH, 

MACHR, 

GENF 

95. 

♦ ISP,  ISPF 

, MACHV.LIFTV  . IRATED 

FRAT 

96 

DIMENSION 

TPHK  10  ),TSTl(  10) 

GENF 

97 

EQUIVALENCE!  TLP1.TPH1 

MTLSl.TSTl) 

GENF 

98. 

COMMON/ ST  ATE 3/ 

STATE30 

99, 

♦ VAR(  19) 

.OVAR  (19) 

.VARL  (99) 

□VARL( 99) 

, V0( 9 ) 

,$VV( 10) 

STATE30 

50. 

♦ XL!  9,9) 

, YDP( 20,9  ), YDS  (20.9), 

C0S6AM 

, S I NGAM 

,5AVBP( 15) 

f 

STATE3D 

51, 

♦SINPSI 

,C0SP5I 

,S I NRHO 

, COSRHO 

,0  COR  HO 

, 0CQRO2 

t 

STATE3D 

52 

♦SVBV  ! 9 

f OMEGA 

.0MEGA2 

STATE3D 

53 

♦VDV 

, GOV 

#RDV 

, MOV 

,PDV 

,OOV 

, 

STATE3D 

59 

♦ UDV 

, VOG 

,GDG 

,RDG 

,PDG 

,ODG 

, 

STATE30 

55 

♦ UOG 

, VOR 

,GDR 

,MDR 

,P0R 

,ODR 

STATE30 

56 

♦ UOR 

, VDM 

,GDM 

, MDM 

,PDM 

, VDP 

STATE3D 

57. 

♦ GDP 

,PDP 

,0  DP 

, OOP 

, VDD 

, GDO 

, 

5TATE30 

58. 

♦ POD 

,U00 

,HTDV 

, HTDR 

STATE3D 

59. 

REAL  MDfl  , 

MOV,  nOR 

STATE3D 

60 

C0MM0N/STATE3/ 

STATE3D 

61. 

*51 N2R0 

. C0S2R0 

, C0S2GH 

STATE3D 

62 

C0MM0N/AEC&3/ 

AEC03 

63. 

♦ APHO 

, APHR 

, ALPHA 

, VDA 

, GDA 

.PDA 

AECQ3 

69 

♦ SINA 

, COS  A 

,PHIO 

, PHI  0 

,PH1 

51 NPH1 

AEC03 

65. 

♦COSPHI 

, GDPH 

,PDPH 

, XLAMA! 9 ) 

, XLAMP(  9 ) 

, CDO 

AEC03 

66 

♦ CDOrt 

, ClO 

,FK 

, XCGP1 

, ZCGM 

,CLOM 

AEC03 

67. 

♦cn 

, CMA 

,CMAM  , cnn 

, CMO 

, CMOfl 

,FXf1 

AEC03 

68 

♦ CLAM 

, CL 

, CLA 

,clm 

AEC03 

69 

♦ CD 

. COA 

-COM 

AEC03 

70 

ASSIGN  109 

1 TO  LABL3 

VT 

71. 

ASSIGN  1071  TO  LA8L9 

VT 

72 

ASSIGN  1061  TO  LA8L5 

VT 

73. 

GO  TO  100 

VT 

79 

EHTRV  VTNOP 

VT 

75 

ASSIGN  106 

TO  LABL3 

VT 
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76 

ASSIGN  109  TO  LABLN 

VT 

77 

ASSIGN  1063  TO  LABLS 

VT 

78 

IOC 

SlNft  = SIN<  ALPHA) 

VT 

79 

C05A  = C05< ALPHA) 

VT 

80 

SID  = SI N<  BELT AE ) 

VT 

ei. 

COO  = COS(OELTAE) 

VT 

62 

SIDAE  = $1 NA*CQD  - COS A*5l D 

VT 

83 

COOAE  = COS A*COD  + SINA*S1D 

VT 

8H 

10A 

1F{  SREF  LE  0.  .OR  I AT*  EO.  2)  RETURN 

VT 

85 

CALL  BEROCO 

10 

86. 

60  TO  IABL3 

VT 

67 

10H1 

8PIV  = Q*flACHV 

VT 

68. 

CUR  = Q*ftACHR 

VT 

39. 

ULFTV  = SREF*<OV*CL  + Q«V*CLH) 

VT 

90 

DRAGV  = $REF*<QV*CD  ♦ OrtV*CDR> 

VT 

91 

ULFTR  = SREF*(QR*CL  + OftR*CL«) 

VT 

92 

DRAGR  = 5fi£F*<  0R*CD  + OmR*CDA) 

VT 

93 

106 

LtLFT  A = QS*CLA 

VT 

99 

ORAGA  s QS*C0A 

VT 

95. 

ULFT  = OS*CL 

VT 

96 

DRAG  = QS+CD 

VT 

97. 

1F(JAER  .ED.  3)  GO  TO  107 

VT 

107  — 

90. 

GO  TO  LABL5 

VT 

99. 

1061 

CONTINUE 

VT 

ICO 

UFTV  = ULFTV 

VT 

101 

LIFTR  = ULFTR 

VT 

102 

1063 

LIFT  A = ULFT  A 

VT 

103. 

LIFT  = ULFT 

VT 

109. 

RETURN 

VT 

105. 

107 

CALL  PlAflECO 

HAR19 

-* — — — 

106. 

OSD  = QS*DR£F 

VT 

107. 

LCD  = ULFT*CO$A  ♦ DR AG*$I NA 

VT 

108 

LSD  = ULFT*$INA  - DflAS*COSA 

VT 

109 

LCDA  = ULFT  A*C05 A + DR  AGA*S I NA 

VT 

no 

LSOA  - ULFT A*SI NA  - DRAGA*C0$A 

VT 

ill 

XF  = XCG  - XCGR 

VT 

112 

Z F = ZC6  - ZC6R 

VT 

113. 

YF  - ZE  - ZC5 

VT 

in. 

UF  = XT  - XCG 

VT 

115. 

FACTOR  = XJ/NF 

VT 

116. 

LCDAA  = LCD A - LSD 

5EP18 

117. 

LSDAA  - LSDA  + LCD 

5EP18 

118. 

XDCGA  = LCOAA*XF  ♦ L$OAA*ZF  + OSO^CMA 

VT 

119 

XI1CG  = LCD*XF  + L5D*ZF  ♦ DB*YF  ♦ QSD*C* 

VT 

120 

GO  TO  LABL9 

VT 

121. 

1071 

SD  = SREF*DREF 

VT 

122. 

LCOV  = COS A*ULFTV  + 51 NA*DRAGV 

VT 

123 

LCOR  = COSA*ULFTR  + S I NA*Dfi AGR 

VT 

129. 

LSOV  = SI NA+ULFT V - CG56*DRAS¥ 

VT 

125. 

LSDR  = SINA* ULFTR  - CG5A*0RAGR 

VT 

126. 

xnccv  = so*<av*cm  + onv*crm)  + lcov*xf  + lsdv*zf 

VT 

127 

XMCGA  =■  SO»(OR*Crt  + QHR#CHfl  > ♦ LCOR*XF  + L$OR*ZF 

+ DBR*YF  VT 

128. 

XnCGn  - LC0*XC6H  + (LSD  “ 0B)*ZCGf1 

VT 

129. 

XCGflUF  = XCGR/UF 

VT 

130 

FACT  V = XJV/WF 

VT 

131 

FACTR  = XJR/UF 

VT 

132 

FACTri  = FACTOR* XCGflUF 

VT 

133 

LI  FT  V = FACTOR*  XttCGV  + FACTV*XflCG  ■*  ULFTV 

VT 

139 

LIFTR  = FACT0fi*XrtCGR  + FACTR*XPIC6  + ULFTR 

VT 

135 

LlFTfl  = FACTOfl*XnCGn  + FACTfl*XflC6 

VT 

136. 

109 

LIFTA  = ULFTA  ■*  FACTOR*XflCGA 

VT 

137. 

LIFT  = ULFT  + FACTOFUXflCG 

VT 

138. 

RETURN 

VT 

139. 

END 

VT 
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SUBR0UT INE 
YREF3 


757 


Subroutine  YREF  3 


Entry  Points.  YREF,  PSD 


Purpose 

Subroutine  YREF3  (ENTRY  YREF)  refines  cut-off  tune  and  stale  using 
third -order  interpolation. 

Entry  PSD  saves  derivative  at  estimated  cut-off  point  for  use  in  entry  YREF. 
Description 

The  equations  and  logic  for  the  subroutine  are  described  in  Section  15.  1 of 
Volume  I.  This  routine  is  called  for  non-time  arc  cut-offs  from  FNTG. 
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NMH 

SYMBOL 


DESCRIPTION 


S TQKaiE 
mum  LOL 


UBH  COOt 


DT 

0 

Integration  interval  (SEC) 

/GENF  /< 

300  ) 

BNTG 

M 

OT 

FNTG 

M 

DT 

REU3 

1 

OT 

RKTA3A 

I 

P 

RKTB3A 

I 

P 

STP3 

1 

DT 

YREF3 

0 

OT 

OVAR 

* 

I 

State  vector  derivatives  In  steepest  descent  module 

/STATE3/( 

15  ) 

ADI CB3 

M 

DVAR 

y 

AOIC3A 

1 

OVAR 

AD1D3A 

n 

DVAR 

OER3A 

0 

VO 

OTF3 

i 

VT 

ENVPRM 

i 

DVAR 

PDBC 

i 

VO 

PROP  J N 

0 

OVAR 

REU3 

i 

DVAR 

RXTA3A 

I 

OV 

5DER3 

0 

DVAR 

STP3 

I 

OVAR 

YREF3 

I 

□ VAR 

YREF3 

I 

VT 

FP 

I 

Current  value  of  cut-off  function  - non-linear  only 

/GENF  /< 

521) 

DTF3 

I 

FP 

STP3 

I 

FP 

T0L3 

I 

FP 

YREF3 

I 

FP 

FPD 

I 

Rate  of  change  of  non-linear  cut-off  function 

/GENF  /( 

5231 

C0N3 

1 

FPD 

DTF3 

1 

FPD 

STP3 

I 

FPD 

YREF3 

I 

FPD 

FPCLD 

I 

Value  of  non-linear  cut-off  function  at  prior 

/GENF  /( 

522) 

0TF3 

I 

FPOLO 

conput e i nt er va 1 

STP3 

0 

FPCLD 

T0L3 

0 

FPOLO 

YREF3 

i 

FPOLD 

NEQ 

1 

Number  of  integrated  states 

/XCG  0ES/< 

162) 

ADICB3 

i 

NEO 

ADIC3A 

i 

NEB 

AOl D3A 

i 

NEO 

AGETB3 

i 

NEO 

AST3 

i 

NEO 

BGET3 

i 

NEO 

B5TD3 

i 

NEC 

MTX3A 

i 

NEO 

OUT 

i 

NEO 

REU3 

i 

NEO 

SDER3 

i 

NEO 

SOI  NP 

pi 

NEO 

TOPM 

i 

NEO 

TRAN3 

i 

NEO 

YREF3 

i 

NEO 

SVV 

y-i 

I 

State  and  ti*e  array  at  previous  conpute  interval 

/STATE3/( 

236) 

OTF3 

i 

SVV 

REU3 

pi 

SVV 

YREF3 

i 

SVV 

TIME 

t 

m 

Tine  ( e i apsed  ) 

/GENF  /( 

B93  ) 

AOl CB3 

0 

TINE 

AST3 

1 

tire 

BNTG 

n 

tire 

CDN3 

i 

TIRE 

DTF3 

I 

tire 

ENVPRM 

I 

tire 

EQUA3 

i 

TIRE 

FNTG 

pi 

tire 

MODELA 

I 

TIRE 

OUT 

i 

TIRE 

PDBC 

i 

TIRE 

PROPIN 

I 

tire 

REU3 

M 

tire 

RKTA3A 

M 

TT 

RKTB3A 

M 

TT 

YREF3 

PI 

TIRE 
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FORTRAN 

5YF1B0L 


MATH 

SYF1BOL 


CODE 


DESCRIPTION 


S TpRflSF 


HuKA 


IOC 


SUDROU11NF  USAGE 
SUBH  I'UOE  VAR 


V 


VT 


V 


y 


m Relative  velocity  (FT/SEC)  /STATE3/(  1)  ACCEL  I V 


ADI  CB3 

0 

VAR 

ADJUST 

n 

VAR 

AGETB3 

0 

VAR 

AST  3 

i 

VAR 

BIB 

i 

V 

BL7 

i 

V 

BL8 

i 

V 

C0N3 

i 

VAR 

DER3A 

i 

V 

DTF3 

i 

V 

ENVPRIA 

i 

VAR 

E0UA3 

i 

V 

P10DELA 

i 

V 

FIODELA 

i 

VAR  . 

FIOOELB 

i 

V 

FITX3A 

i 

VAR 

OUT 

i 

V 

OUT 

i 

VAR 

PDBC 

i 

V 

PDY3A 

i 

V 

REU3 

FI 

VAR 

R KT  A3A 

FI 

Y 

STP  3 

I 

VAR 

TOP« 

D 

KblOtd 

YREF3 

"1 

V 

I State  vector  derivatives  in  steepest  descent  nodule  /STATE3/I  15)  AOICB3  n DVAR 

A0IC3A  I DVAR 
ADI  D3A  FI  DVAR 
DER3A  0 VD 
DTF3  I VT 
ENVPRF1  I DVAR 
POBC  I VD 
PROF  IN  0 DVAR 
REU3  I DVAR 
RKTA3A  I DY 
S0ER3  0 DVAR 
STP3  1 DVAR 
YREF3  1 " DVAR 
YREF3  I VT 
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YREF3 


1. 

SUBROUTINE  YREF3C II.ON) 

YREF3 

2 

C 

CORN 

3. 

C 

REFINES 

. CUT-OFF 

TIME  AND 

5TATE 

CORN  : 

9 . 

c 

USING  THIRD 

i ORDER 

INTERPOLATION 

CORN 

5. 

c 

CORN 

6 

CQRRON/ST  ATE3/ 

STATE30 

7 

*VAR(  19  ) 

OVAR  < 19  ) 

,VARL  ( 99  ) . DVARL! 99  ) 

VO!  9 ) 

,SVY(  10 ) 

STATE30 

8 

•XL!  9,9) 

, YDP<  20,9 ), 

VOS  ( 20 , 

9 ),  COSGAM 

,SINGAM 

SAVBP! 15) 

STATE30 

9. 

•SlNPS! 

,COSPSI 

,$INRHD 

, C05RHO 

,OCORHO 

,DC3R02 

STATE30 

10. 

*5V&v  (9) 

i, OMEGA 

,0MEGA2 

5TATE30 

11  . 

•vov 

, GOV 

,ROV 

'mdv 

,POV 

, OD  V 

STATE30 

12. 

•UDV 

,VDG 

",  GOG 

,RDG 

,PDG 

, ODG 

STATE30 

13. 

•uos 

,908 

,GDR 

,MDR 

, P DP 

.OCR 

STATE3D 

19 

•UDR 

, VDM 

,GOM 

, MDM 

P DM 

, VDP 

STATE3D 

15 

•SDP 

,POP 

.OOP 

,UDP 

,VDO 

,GDO 

STATE3D 

16. 

•POO 

,UDO 

, HTDV 

,HTDR 

STATE30 

17. 

REAL  tlDH  . 

MOV.  MDR 

STATE3D 

18. 

COPIM0N/5T  ATE3/ 

STATE30 

19. 

•SIN2R0 

, C0S2R0 

, CDS2GR 

STATE3D 

20. 

COnnON/GENF/ 

GENF 

21. 

•OflGC  20  ) 

,0MGP(20,2l 

,VARQ(9) 

,TOLC  9) 

, S VAR(  10  ] 

I , UDCl 20 ) 

SENF 

22 

•At  9,9) 

,ACON(  9) 

, BCON!  9 ) 

,COTI( 9,9) 

DCONC  9 ) 

.DTP 

GENF 

23. 

• OTS 

,DT 

,G 

, BPSO 

,0 

,os 

6ENF 

29. 

*R 

're 

.MACH 

, P A 

,R0 

,CS 

GENF 

25 

•VNU 

.PAR 

, RQR 

,CSR 

, VNR 

, SUMSQ 

GENF 

26 

•svsq 

, TI MEPH 

,TIME5 

,TOP 

TOS 

,TR!  9 ) 

GENF 

27 

•TST! 20 ) 

,7PH  ! 20  > 

, DI S! 20  ) 

.DIP!  20 ) 

,T 

,u 

GENF 

28 

•TLPIf 20  ) 

, TLSl  (20) 

, DIP  1(  20  ) .0151(20) 

,TI  ME 

, OMP 

SENF 

29 

•TlftPR 

.LIFT 

.DRAG 

.TAX 

TBURN 

, TBU( 20) 

GENF 

30. 

•AE 

, FPOLD 

, FPD 

,HACHR 

,MACHV 

GENF 

31. 

•Qfi 

,0V 

, FVAC 

, LIFTV 

GENF 

32. 

•LI  FTP 

,LlFTA 

, 

DRAGV 

'dragr 

.DRAGA 

GENF 

33. 

* 

L1FTR 

, DBR 

, OB 

,1SP 

, I SPF 

GENF 

39. 

* 

4 

ULFT 

, ULFTV 

. ULFTR 

, ULFT A 

GENF 

35. 

♦xrcg 

. XMCGV 

, XMCGR 

, XMC6A 

xtiCGM 

, CO  DAE 

GENF 

36 

•culft 

,CT 

, CALPHA 

, COE 

CELT  AE 

,51D 

GENF 

37 

•coo 

■SIOAE 

,XCG 

t ZCG 

;xj 

GENF 

38. 

COMMON  J genf  / 

GENF 

39. 

* 

•XJV 

,xjr 

, GH 

, SAMMAD 

, XK6 

, XKP 

GENF 

90. 

•FRAT60  , 

j RATED 

, 

GENF 

91. 

• PI 

,P2 

,P3 

,XX1 

,XK2 

, XK3 

GENF 

92. 

•XKlT 

, XK2T 

, XK3T 

, XK  ID 

XK20 

, XK3D 

GENF 

93. 

•XK1A 

, XK2A 

, XK3  A 

, XK1 V 

, XK2V 

, XK3V 

GENF 

99 

•xkig 

. XK2G 

. XK3  6 

. XK  IP 

' XK2P 

, XK3P 

GENF 

95- 

•XKin 

, XK2R 

, XX3R 

, XK  10 

’ XK20 

, XK30 

GENF 

96. 

•xkiu 

, XK2U 

, XK3U 

, XKlfl 

,XX2M 

,XK3M 

GENF 

97. 

»PV 

,P6 

,PP 

.PR 

,P0 

, DPDV! 3,8) 

6ENF 

98 

REAL  L1FTR  , LIFT  . 

LIFTA.UFTPl  . 

MACH, 

MACHR, 

■ GENF 

99. 

* ISP,  I SPF 

' MACHV, LI  FT V , {RATED 

FRAT 

50. 

DIMENSION 

TPHK  10  ) ,T$T1!  10) 

GENF 

51. 

EOUI VALENCE!  TLP1 , TP Hi  ),<TLS1. 

TST1  ) 

SENF 

52 

COMMON  /XCODES/ 

XCGDES 

53 

•ITQ  (91 

I.ICOR  (20) 

,ITI 

, I NTB 

, JGIO!  20. 

2 ), JPH  ! 20,2 ), 

X CODES 

59 

•JST  (20) 

, NCNST 

, NSB 

, N5AB 

, NICNB 

XCOOES 

55 

•I20P 

, I COP 

, IFAU 

I F AR 

IF& 

, I NO 

XCGDES 

56. 

•IOPEH 

,iph 

,ISPH 

, 1 SST 

, I ARC 

, ISTART 

KCODES 

57. 

♦ITCT 

.ITER 

, I VAR 

,JK 

,JPS 

XCOOES 

58. 

•XOP 

, KPST 

,K 

, KST 

. NAO 

, NCASE 

XCODES 

59 

•NCN 

, NEOB 

,ne  a 

, NOP 

, NPH 

'n 

XCOOES 

60. 

•NST 

' I PST 

, I PRINT 

, ISTN 

I PHN 

. ISTNB 

XCODES 

61 

•IPHNB 

, I 8LK1 

,I6LK2 

, ISTOP 

, ISTPP 

,L 

XCODES 

62 

•1F0B 

, NB 

, LB 

'mb 

. NPHP 

. NPHB 

XCOOES 

63 

♦NCTIN 

.NEOF  , I LAB! 8 ), JPRP 

, JGj I . MTT.MPINi 20). JP1 . JP2 . JP3 

XCODES 

69. 

CORRON/DATA/ 

DATA 

65 

•PI 

.RAD 

, RDI 

,SC 

,UMF 

,TMPF 

DATA 

66 

•FTNfl 

.CAR 

,J0P1 

,J0P2 

,J0P3 

, JCP9 

DATA 

67 

DIMENSION 

Vt  1 ),VT(  D. 

S VOV! 9 ) 

VREF3 

68. 

dimension 

SX(  B ) 

VREF3 

69. 

EflUI VALENCE!  VAR, V > . < DVAR , VT  ) 

VREF3 

70. 

ENTRY  YREF 

YPEF3 

n. 

1=  II 

YREF3 

72. 

c 

CORN 

73 

c 

I IF  STATE  CUT  OFF  COMPUTE  SPACING 

AND  SET 

DERIVATIVES 

CORN 

79 

c 

ELSE 

GO  TD  III 

CORN 

75. 

IF! I.GT.7) 

GO  TO  30 

YREF3 
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76. 

H=  V<  I 1-  S VYC  1 + 1 > 

YREF3 

77. 

hp=  on  - svvu+n 

YREF3 

78. 

ZON  - SVDYC 1 ) 

YREF3 

1 9. 

ZONl  = VT  Cl) 

YREF3 

eO. 

10 

REZ=HP/H 

YREF3 

81. 

R2=  REZ*REZ 

YREF3 

62. 

B=  R2*< 3.“2.*REZ> 

YREF3 

63. 

AA=l.-& 

YREF3 

$9. 

C=  REZ»<REZ-1. )**2 

YREF3 

85. 

0=  R2  *< FEZ-1.) 

YREF3 

66. 

TIRE  = AA*5VYCl>  +B*TJRE  +H*l  C/ZON  + 0/ZDN1  ) 

YREF3 

87. 

DT  = T 1 HE  - SVYC  1 ) 

YREF3 

£8. 

DO  20  IK=  1 , NED 

YREF3 

69. 

YDN=  SVDYC 1 K )/ZON 

VREF3 

90. 

Y0N1  = VTim/ZDNl 

YREF3 

91. 

¥(  IK)  = AA*$VY( IK+1  ) * B*  VC  IK)  + H*C C*YCN  *D*YDNl ) 

YREF  3 

92. 

20 

CONTINUE 

YREF3 

93. 

RETURN 

YREF3 

99. 

C 

COHN 

95. 

C 

III  FUNCTION  CUT-OFF  COMPUTE  SPACING  AND  DERIVATIVES 

CQ*N 

96. 

30 

H=  FP-FPOLD 

YREF3 

97. 

HP=Dfl  -FPOLD 

YREF3 

98. 

ZDN=  FPD 

YREF3 

99. 

*0=0 

YREF3 

ICO. 

1*11*2 

YREF3 

101. 

CALL  PDBC  (IOVAR5X,FPD,3.*0) 

YREF3 

102. 

ZDN1  = FPD 

YREF3 

103. 

60  TO  10 

YREF3 

10  — 

-i 

109. 

c 

COHN 

1 05. 

c 

IV  EVTRV  USED  TO  STORE  DERIVATIVE  AT  ESTIMATED 

COrtN 

106. 

c 

CUT-OFF  POINT  FOR  USE  IN  YREF  ABOVE 

CONN 

107. 

ENTRY  PSD 

YREF3 

108. 

00  HO  KI-1 , HEQ 

YREF3 

109. 

90 

SVDYC  <1  )=  VTC  KI  ) 

YREF3 

110. 

IFCII.LT. 7)  60  TO  50 

YREF3 

50  — 

111. 

*0=0 

YREF3 

112. 

1=11+2 

YREF3 

113. 

CALL  PDBC  U ,DVAR,$XfFPD,3,*0 ) 

YREF3 

119. 

5G 

CONTINUE 

YREF3 

115. 

RETURN 

YREF  3 

116. 

END 

YREF3 
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